habe eine ansicht mit daten... eine maske zum suche dieser daten... eine frameset mit suchmaske, ansicht!
wenn ich in der suchmaske den button bestätige sollen die ansicht mit allen daten durch den ordner mit den mit dem suchtext übereinstimmten doks ersetzt werden... funktioniert in notes, aber nicht im web!
der button startet folgenden agenten:
Sub Initialize
Dim workspace As New NotesUIWorkspace
Dim s As New NotesSession
Dim db As NotesDatabase
Dim thisdb As NotesUIDatabase
Dim doc As NotesDocument
Dim view As Notesview
Dim vc As NotesViewEntryCollection
Dim switch As Integer
Dim suchtext As String
'Inhalte aus erg löschen!!
Set db = s.CurrentDatabase
Set view = db.GetView("erg")
Set vc = view.AllEntries
Call vc.RemoveAllFromFolder("erg")
'INIT: suche
Set view = db.getview("alle")
Set thisdoc = workspace.CurrentDocument
Set thisdb = workspace.Currentdatabase
suchtext = thisdoc.fieldgettext("suchtext")
Set doc = view.getfirstdocument
switch=0
'suche
Do Until (doc Is Nothing)
If Not Instr(doc.getitemvalue("name")(0) , Strconv(suchtext,3)) = 0 Then
switch=1
Elseif Not Instr (doc.getitemvalue("abt")(0), Ucase(suchtext)) = 0 Then
switch=1
Elseif Not Instr (doc.getitemvalue("zimmer")(0) , Ucase(suchtext)) = 0 Then
switch=1
Elseif Not Instr (doc.getitemvalue("tel")(0) , suchtext) = 0 Then
switch=1
End If
If switch = 1 Then
Call doc.putinfolder("erg",True)
switch = 0
End If
Set doc=view.getnextdocument(doc)
Loop
Call workspace.settargetframe("main")
Call thisdb.openview("erg")
End Sub
danke
