AtNotes Übersicht Willkommen Gast. Bitte einloggen oder registrieren.
25.02.20 - 12:52:10
Übersicht Hilfe Regeln Glossar Suche Einloggen Registrieren
News: Jetzt mit HCL Notes / Domino 11 und einem Extraboard für Nomad!
Schnellsuche:
+  Das Notes Forum
|-+  Domino 8 und frühere Versionen
| |-+  Entwicklung (Moderatoren: Axel, eknori, Hoshee, ata, Thomas Schulte, koehlerbv)
| | |-+  Änderung wird nicht gespeichert
« vorheriges nächstes »
Seiten: [1] Nach unten Drucken
Autor Thema: Änderung wird nicht gespeichert  (Gelesen 3577 mal)
lucy123
Frischling
*
Offline Offline

Geschlecht: Männlich
Beiträge: 41


Tach zusammen


« 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  Huh Smiley

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
Gespeichert
ascabg
Gold Platin u.s.w. member:)
*****
Offline Offline

Geschlecht: Männlich
Beiträge: 3696


« Antworten #1 am: 02.10.12 - 14:14:42 »

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
Gespeichert
Seiten: [1] Nach oben Drucken 
« vorheriges nächstes »
Gehe zu:  


Einloggen mit Benutzername, Passwort und Sitzungslänge

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006, Simple Machines Prüfe XHTML 1.0 Prüfe CSS
Impressum Atnotes.de - Powered by Syslords Solutions - Datenschutz | Partner: