Gut, danke.
Kann es sein daß das ganze nur für Dokumente vom Typ Antwort funktioniert?
Hab ein Dokument mit einem Feld DDokument mit dem Datum drin und darunter zwei Antwortdokumente mit einem Feld ADokument ebenfalls mit Datum drin.
Das Datum ist jeweils das heutige, die Suche geht von "20.12.2005" bis "23.12.2005".
Die Suche nach ADokument liefert collection.count = 2 zurück,
die Suche nach DDokument connection.count = 0
Wie kann das sein?
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim strSearchFormula As String
Dim view As NotesView
Dim vc As NotesViewEntryCollection
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Set db = session.CurrentDatabase
Set view = db.GetView("(oProduktLinie)")
Set vc = view.AllEntries
Call vc.RemoveAllFromFolder("(oProduktLinie)")
strSearchFormula = {SELECT DDatumsfeld > [} & uidoc.fieldGetText("datVon") & {] & DDatumsfeld < [} & uidoc.FieldgetText("datBis") & {]}
Set collection = db.Search(strSearchFormula, Nothing,0)
Call collection.PutAllInFolder( "(oProduktLinie)" , True)
Msgbox collection.Count
workspace.ViewRefresh
End Sub
