Domino 9 und frühere Versionen > ND6: Entwicklung
Felder einer anderen Maske anzeigen (@DocFields)
FC:
Danke Bernhard,
nimms mir nicht über, aber kannst Du mir evtl noch verraten, mit welchem Formelbefehl ich dann das Item anspreche :-:
koehlerbv:
Das ist ganz einfach der Feldname ...
FC:
Hmm, hatte ich fast befürchtet :-[
Also ich habe folgendes Script, was mir mein Item füllt:
Sub Onload(Source As Notesuidocument)
Dim session As New NotesSession
Dim maske As Variant
Dim msgString (40) As String
Dim i As Integer
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim txt_Item As NotesItem
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set db = session.CurrentDatabase
maske = "gefahrstoff"
Forall form In db.Forms
If Lcase(form.Name) = maske Then
If Isempty(form.Fields) Then
Messagebox form.Name & " hat keine Felder"
Else
i = 0
msgString (i) = " "
Forall field In form.Fields
msgString (i)= field
i = i + 1
End Forall
End If
Set txt_Item = New NotesItem (doc, "Felder",msgString)
Exit Sub
End If
End Forall
End Sub
In der Auswahlbox beziehe ich mich dann als Vorgabewert auf : txt_Item oder Felder ???
Bekomme immer nur: "Fehler - Schlüsselwörter müssen aus Text bestehen"
Thomas Schulte:
Du musst dich auf "Felder" beziehen. Schließlich ist das der Name des Feldes das du intern erzeugt hast.
Aber wenn ich mir deinen Code so anschaue, dann hast du Das Feld zwar erzeugt, aber das UIDOC hat keine Ahnung das es das Feld gibt. Deswegen der Fehler.
koehlerbv:
Abgesehen davon: Warum dimensionierst Du das StringArray starr und nicht dynamisch ? Und warum so kompliziert ?
Mit NotesDatabase.GetForm holst Du Dir die Gefahrstoff-Maske. Mit Form.Fields holst Du Dir auf einen Schlag alle dortigen Feldnamen in ein Variant - und Du bist schon fertig.
Bernhard
Navigation
[0] Themen-Index
[#] Nächste Seite
[*] Vorherige Sete
Zur normalen Ansicht wechseln