Domino 9 und frühere Versionen > ND7: Entwicklung

Alle Forms einer DB prompten

<< < (2/2)

diali:
Du musst das Forms-Array durchgehen und den NAmen auslesen und in ein Array schreiben. Dieses Array übergibst Du dann.
--- Code: ---redim FormArray(0)
Forall form In db.Forms
  If FormArray(0) <> "" Then Redim preserve FormArray(Ubound(FormArray) + 1)
  FormArray(Ubound(FormArray)) = form.Name
End Forall
--- Ende Code ---

BMWTordi:
Vielen Dank Dirk. Hast mir sehr geholfen.

Gruß Thorsten

BMWTordi:
Mit ein bischen Hilfe sieht die Geschichte jetzt so aus:

   Redim FormArray(0)
   Forall form In db.Forms
      If  Not Left$(form.Name,3) = "dlg" Then
         If FormArray(0) <> "" Then Redim Preserve FormArray(Ubound(FormArray) + 1)
         FormArray(Ubound(FormArray)) = form.Name
      End If
   End Forall
   erg = ws.Prompt(7, "Bitte eine Maske auswählen", "Bitte eine Maske auswählen.",FormArray(0),FormArray)
   

Nur für den Fall das jemand ein ähnliches Problem hat.

HarryB:
Dass der Code jedes mal dann aufgerufen wird, wenn der Benutzer entsprechend ein neues Dokument erstellen will ist aber nur dann sinnvoll, wenn die Masken in der Datenbank einer laufenden Veränderung unterliegen. Ansonsten ist es sinnvoller, die Masken zum Beispiel in ein Profil- oder Konfigurationsdokument einzulesen und dort in ein Textfeld mit Mehrfachwerten zu hinterlegen.

Letzteres habe ich in einer Datenbank auch schon gemacht.

Viele Grüße
Harry

Glombi:
Man kann sich eine Ansicht gestalten, die nur die Masken als Dokumente anzeigt. Dort sollte es möglich sein, per @DbColumn zuzugreifen.

Ist etwas tricky, aber warum nicht. Spart auf jeden Fall Zeit und aufwändige Sortierungen etc.

siehe dazu
http://www.nsftools.com/tips/NotesTips.htm#formulaclass

Andreas

Navigation

[0] Themen-Index

[*] Vorherige Sete