Habs mal so versucht, aber es klappt nicht.
Hab ich da irgendwo nen Denkfehler drin
Dies Stück steht im ELSE-Teil einer IF-Abfrage:
'Reservierung über mehrere Tage
temp = Source.fieldgettext("rpRaum")
temp2 = Source.fieldgettext("rpBuchDatum")
temp3 = Source.fieldgettext("rpBuchDatumBis")
searchFormula$ = "Form = ""rpfrmBuchung"" & rpRaum= """& temp &""" & rpBuchDatum >= """ & temp2 & """ & rpBuchDatum <= """ & temp3 & """ | rpBuchDatumBis >= """ & temp2 & """ & rpBuchDatumBis <= """ & temp3 & """"
Set dc = db.Search(searchFormula$,dateTime,0)
Do
Set dctemp = db.Search(searchFormula$,dateTime,0)
Set aktdoc = dctemp.getfirstdocument
If aktdoc Is Nothing Then
Exit Do
End If
Call dc.addDocument(aktdoc)
Loop
'Überprüfung, ob der Raum überhaupt schonmal gebucht wurde
If dc.count = 0 Then
'Der Raum ist auf jeden Fall frei
Else
'Reduzierung der NotesDocumentCollection auf den gewählten Raum mit dem angegebenen Datum
Call dc.ftsearch(rpBuchDatum, 0)
'Prüfung, ob das angegebene Datum in der Collection vorhanden ist
If dc.count > 0 Then
'Der Raum ist an dem Datum bereits reserviert
Messagebox "Der gewählte Raum ist zu dem angegebenen Zeitraum an mindestens einem Tag bereits reserviert."
Continue = False 'Verhindert das Speichern
End If
End If
