Hallo, habe 2 Fragen:
Ich möchte in einem Ordner alle Doks auflisten, die in einem Zeitraum vom - bis liegen. Dafür gibt es 2 Datums-Eingabefelder.
1. Frage: habe im Exiting der Felder eine Umwandlung in ein Textfeld geschrieben. Das klappt, wenn ich das ganze im Debugger durchlaufen lasse. Es klappt aber nicht, wenn der Debugger aus ist. Warum?
2. Frage: für die Suche habe ich folgendes geschrieben:
Sub Click(Source As Button)
'aktuelles Frontend-Dok benennen und Werte auslesen
Dim uiws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = uiws.CurrentDocument
'aktuelle DB und Backend-Dok benennen
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim doc As NotesDocument
Set doc = uidoc.Document
Dim dat, datb As Variant
dat = doc.M3Datumvonverw(0)
datb = doc.M3Datumbisverw(0)
Dim wert1 As String
wert1 = "(FIELD Datum1Lverw > " & dat & " OR FIELD Datum1Lverw = " & dat & ") AND (FIELD Datum1Lverw < " & datb & " OR FIELD Datum1Lverw = " & datb & ")"
Dim dc As NotesDocumentCollection
If dat <> "" And datb <> "" Then
Set dc = db.FTSearch(wert1, 0)
End If
If dc.Count = 0 Then
Msgbox "Keine Dokumente gefunden"
End If
Call dc.PutAllInFolder("Auswahl")
Call uiws.ViewRefresh
End Sub
Da werden mir aber nur ein Teil der zutreffenden Dokumente angezeigt. Warum nicht alle Doks, die in dem Zeitraum liegen? Habe in den Dokumenteigenschaften der fehlenden Doks kontrolliert, aber die Werte sind in den gesuchten Feldern drin und müßten so mit gelistet werden.
Danke im voraus.
Gruß Kaki1
