Änderung wird nicht gespeichert

[lucy123]

Hallo, habe folgendes Problem: es werden Datensätze in einen Kalender eingetragen. Die Einträge sind soweit beschränkt, dass Mo-Do 6 Datensätze, Fr 3 Datensätze und am WE keine Datensätze eingetragen werden können. Möchte ich jetzt z.B. Dienstags, wo schon 6 Einträge enthalten sind, einen Datensatz ändern, wird dies mit der enthaltenen Fehlermeldung, das es schon 6 Einträge gibt, abgelehnt. (siehe Programmcode)
Wer kann helfen?
Gruß und Danke im Voraus - Uwe 

Sub Querysave(Source As Notesuidocument, Continue As Variant)
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim strSearch As String
   Dim collection As NotesDocumentCollection   
   Set db = session.CurrentDatabase   
'Suche nach allen Dokumenten mit dem entsprechenden Datum
   'strSearch = {"AufDat" = "} & Source.FieldGetText("AufDat") & {"}
   strSearch = {AufDat=[} & Source.FieldGetText("AufDat") & {]}   
   Set collection = db.Search(strSearch, Nothing, 0)   
   count = collection.Count   
'Abfrage ob Wochentag = Freitag
   Select Case Weekday(Source.FieldGetText("AufDat"))
   Case 2 To 5  'Montag - Donnerstag
      If count > 5 Then
         Msgbox "Montag bis Donnerstag bitte nicht mehr als 6 Einträge in den Kalender eintragen !",0+16,"HINWEIS"
         continue = False
         Exit Sub
      End If   
   Case 6 'Freitag
      If count > 3 Then
         Msgbox "Freitags bitte nicht mehr als 4 Einträge in den Kalender eintragen !",0+16,"HINWEIS"
         continue = False
         Exit Sub
      End If
   Case 1, 7 'Wochenende
      Msgbox "Juchu. Wochenende",0+16,"Schönes Wochenende"
   End Select
End Sub

[ascabg]

Hallo,

Du musst halt die DokumentenID des aktuellen Dokumentes hernehmen und diese in den Dokumenten der gebildeten Collection suchen.

Ist die DokumentenID dabei, speichern moeglich, da ja Aenderung, DokumentenID nicht vorhanden, neuer Eintrag, Speichern verhindern.

Auch kannst Du noch vorher abfragen, ob es sich bei dem aktuellen Dokument un ein neues Dokument handelt.


Andreas