Domino 9 und frühere Versionen > Entwicklung

Problem mit Datumsüberprüfung vorm Speichern

<< < (4/6) > >>

Tina:
Danke!  ;)
Werd mir das aber leider erst heute abend zu Hause anschauen können. Komm von der Firma aus nicht dran. :'(

klaussal:
... was ist das denn für eine firma, wo mann/frau nix darf  ;D ;D ;D

Tina:
Gut ne?!  :-\ Erleichtert das Arbeiten ungemein! ::) ::)

Muss mal schauen, ob es nich doch noch nen Weg gibt da dran zu kommen!

14.01.04  13:15:
Hab jetzt da noch n bisschen rumgewurstelt und bekommen jetzt zumindest raus, wenn ein Raum zu nem Datum besetzt ist. Und zwar so:
Dim db As notesdatabase   
Dim session As New notessession   
Dim dc As notesdocumentcollection   
Dim Datum As Variant
Dim RaumDatum As Variant
Dim doc As notesdocument
Dim view As notesview
   
On Error Goto ErrHandler
   
Set db = session.currentdatabase
Set view = db.getView("rpvwRaum")
Set dc = view.Getalldocumentsbykey(rpRaum,True)
'Überprüfung, ob der Raum überhaupt schonmal gebucht wurde   
   If dc.count = 0 Then
   'Der Raum ist an dem Datum auf jeden Fall frei
   Goto Ende
   End If

'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
   'Dies ist der Fall, also ist der Raum an dem Datum bereits reserviert
   Messagebox "Der gewählte Raum ist zu dem angegebenen Datum bereits reserviert."
   End If

Ende:
   Exit Sub   

ErrHandler:
   'Vorläufige Fehlermeldung, muss noch geändert werden   
   Messagebox "Ein Fehler ist aufgetreten!"   
   Resume Ende
End Sub

Tina:
Ich habs geschafft! ;D ;D ;D

Hier meine Lösung (dachte euch interessierts veilleicht  ;)):

Sub Querysave(Source As Notesuidocument, Continue As Variant)
%REM
Überprüfen, ob der ausgewählte Raum zum gewählten Zeitraum noch zur Verfügung steht
%END REM
   Dim session As New notessession   
   Dim db As notesdatabase   
   Dim dc As notesdocumentcollection   
   Dim view As notesview
   Dim doc As notesdocument   
   
   On Error Goto ErrHandler
   
   Set dateTime = New NotesDateTime( "05/20/95" )
   Set db = session.currentdatabase
   temp = Source.fieldgettext("rpRaum")
   temp2 =  Source.fieldgettext("rpBuchDatum")
   searchFormula$ = "Form = ""rpfrmBuchung"" & rpRaum= """& temp &""" & rpBuchDatum = """ & temp2 & """"
   Set dc = db.Search(searchFormula$,dateTime,0)
   
'Ü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 Datum bereits reserviert."
         Continue = False  'Verhindert das Speichern
      End If
   End If
   
Ende:
   Exit Sub   
ErrHandler:
   'Vorläufige Fehlermeldung, muss noch geändert werden   
   Messagebox "Ein Fehler ist aufgetreten!"   
   Resume Ende
End Sub

klaussal:
gut gemacht  :-*

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete