Überprüfen ob Maske vorhanden ist

[Tommy B]

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

[Glombi]

Du bekommst alle Masken mit

Array of NotesForm objects
Syntax
To get: notesForm Array = notesDatabase.Forms

Andreas

[Tommy B]

Hallo,

bin nicht so fit in Notes!
gehts vielleicht noch ein bischen ausführlicher!
Wäre super
danke

[Axel]

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

[MatzeW]

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.

[koehlerbv]

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

[atbits]

Die Maske steht im form-Feld des Documents.
Also doc.Form(0).

Grüße David

[MatzeW]

Danke  für die Hilfe.