Получение списка всех полей формы

Set nForm = notesDatabase.GetForm( name$ )
msgbox(join(nForm.Fields, {
}))

Msgbox(Join(nForm.Fields, Chr(13)))

Dim doc As NotesDocument
 
Forall i In doc.Items
Messagebox( i.Name )
End Forall

Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Forall form In db.Forms
Forall field In form.Fields
fieldCount = fieldCount + 1
msgString = msgString & Chr(10) & "  " & field
End Forall
Messagebox form.Name & " has " & fieldCount & " field(s):" & Chr(10) & msgString
End If
Exit Sub
End If
End Forall

    Dim w As New NotesUIWorkspace
Dim doc As NotesDocument
Dim itemval As string
Dim i As Integer
 
Set doc=w.Currentdocument.Document
 
ForAll item In doc.Items
i=i+1
itemval=doc.Getitemvalue(doc.Items(i))
If itemval="" Then
itemval="EMPTY"
End If
End ForAll

Dim w As New NotesUIWorkspace
Dim doc As NotesDocument
Dim itemval As Variant
Dim i As Integer
 
Set doc=w.Currentdocument.Document
 
ForAll item In doc.Items
i=i+1
itemval=doc.Getitemvalue(Item.Name)
itemval = Fulltrim(itemval)
If itemval(0)="" Then
itemval="EMPTY"
End If
End ForAll

If itemval(0)="" Then
itemval="EMPTY"
Set item = doc.ReplaceItemValue(Item.Name, itemval)
End If

Set item = doc.ReplaceItemValue(Item.Name, itemval)