Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: lucy123 am 02.10.12 - 14:07:54
-
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
-
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