Hi,
ich habe eine Aktionsschaltfläche 'Optionen' im Posteingang. Wenn der User diese klickt, geht eine Maske auf, wo er Daten eingeben kann. Gleichzeitig wird beim Klick ein userspez. Profildokument angelegt, in welches die Maskeneingaben nachher gespeichert werden.
Code hinter dieser Aktionsschaltfläche 'Optionen':
| REM {öffnet Maske "AFPS-ExportOptionen" und legt gleichzeitig userspezifisches Profildokument an}; |
| @Command([EditProfileDocument]; "AFPS-ExportOptionen"; @UserName) |
In der Maske selbst, wird im QueryOpen auf das Profildokument zugegriffen und verschiedene Werte ausgelesen und verarbeitet.
| Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant) |
| Dim session As New NotesSession |
| Dim db As NotesDatabase |
| Dim doc As NotesDocument |
| Dim item As NotesItem |
| Dim views As Variant |
| |
| Set db = session.CurrentDatabase |
| Set doc = db.GetProfileDocument("AFPS-ExportOptionen", session.UserName) |
| |
| ' doc verwende ich dann weiter, um auf Items etc. zuzugreifen |
| |
Ich erhalte beim erstmaligen Aufruf der Maske jedoch eine Mitteilung: "Object variable not set."
Danach geht die Maske trotzdem auf. Wenn ich dann in der Maske auf 'Speichern und Schließen' gehe, wird das Profildokument ja erst gespeichert und ist somit immer existent... die Mitteilung erscheint nie wieder.
Wenn ich jedoch 'Abbrechen' klicke, wird ohne speichern die Maske geschlossen und die Mitteilung erscheint beim nächsten Aufruf wieder.
Wie kann ich diesen Effekt umgehen? ...ich dachte mir vielleicht sowas wie 'if doc.exist' oder ähnlich. Was gibts da?
Danke und Gruß
Rico.