Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Tommy B am 06.07.05 - 09:25:31
-
Hallo zusammen,
weiß jemand mit welchen Methoden/Funktionen überprüfen kann, ob es eine Maske gibt, bevor man diese öffenen kann?
Maskenamen wird mittels Variable übergeben und dann sollte die entsprechende Maske über eine Schaltfläche geöffnet werden, aber nur wenn diese auch existiert.
Falls diese nicht existiert sollte das Script mit einer Fehlermeldung beendet werden!
Danke Gruß Tommy B
-
Du bekommst alle Masken mit
Array of NotesForm objects
Syntax
To get: notesForm Array = notesDatabase.Forms
Andreas
-
Hallo,
bin nicht so fit in Notes!
gehts vielleicht noch ein bischen ausführlicher!
Wäre super
danke
-
Hi,
schau dir mal in der Designer-Hilfe die Klasse NotesDatabase an und dort das Property Forms. Da steht alles was du brauchst.
Beisp. aus der Hilfe:
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Forall form In db.Forms
Messagebox form.Name
End Forall
Zeigt die Namen aller, in der aktuellen Datenbank vorhandenen, Masken an.
Axel
-
Hallo Miteinander.
Ist es auch moeglich die Maske anhand des Maskennames zu ermitteln?
z.b
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim form As NotesForm
Set db = session.CurrentDatabase
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
if form.name = "Maske A" then
Aktion A
elsif form.name = "Maske B" then
Aktion B
End if.
-
Natürlich - in Deinem Dokument doc ist doch der Maskenname im entsprechenden Item gespeichert. Ein Objekt vom Typ NotesForm braucht es dafür nicht.
Bernhard
-
Die Maske steht im form-Feld des Documents.
Also doc.Form(0).
Grüße David
-
Danke für die Hilfe.