Domino 9 und frühere Versionen > Entwicklung

Hinweis auf Datensatzanzahl

(1/3) > >>

lucy123:
Hallo,

möchte in einem Kalender folgende Funktion durchführen:
wenn 7 Einträge gemacht wurden, soll eine MsgBox erscheinen mit dem Hinweis: "Nicht mehr als 7 Einträge bzw. nicht mehr als 5 Einträge".

Gruß Willi

Glombi:
Das geht mit Script:

Skizze:

Im Queryopen der Maske:

'view = NotesView Objekt für Deine Ansicht
'.... diverse Dims....
Anzahl der vorhandenen Einträge ermitteln:
Set nvec = view.AllEntries
count = notesViewEntryCollection.Count

If count > 5 then
msgbox "Bitte nicht mehr als 5 Einträge",0+16,"Abbruch"
Continue = False
Exit Sub
End if

Andreas

koehlerbv:
Das sollte besser ins QuerySave - sonst kann man bestehende Kalendereinträge auch nicht mehr ansehen oder ändern.

Bernhard

lucy123:
Hallo,

erst mal vielen Dank für die schnelle Antwort. Leider klappt es noch nicht so, liegt aber sicher an meiner Problembeschreibung. Es sollen in einem Kalender pro Tag nur 7 Einträge gemacht werden  und freitags nur 5 Einträge.
Gruß W

Axel:
Du musst im QuerySave eine Suche einbauen, die beim Speichern alle Dokumente mit dem entsprechenden Datum ermittelt. Wenn du dass mit NotesDatabase.Search machst, erhälst du als Ergebnis eine NotesDocumentCollection. Mit NotesDocumentcollection.Count kannst du dann die Anzahl der Dokument ermitteln. Mit der Script-Funktion Weekday ermittelst du den Wochentag und mit diesen Infos kannst du dann die Prüfung durchführen.

Schau die mal zu den einzelnen Methoden und Funktionen die Designer-Hilfe an. Dort findest du einiges an Zusatzinfos und Beispiele.


Axel

Navigation

[0] Themen-Index

[#] Nächste Seite