'this code grabs all the fields in the database and sticks them in the flds field
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
fieldCount = 0
Redim Preserve f(0) As String
Forall form In db.Forms
If Isempty(form.Fields) Then
'Messagebox form.Name & " has no fields"
Else
Forall field In form.Fields
f(fieldcount)= field
fieldcount=fieldcount+1
Redim Preserve f(fieldcount)
End Forall
End If
End Forall
'Messagebox "postopen " & Ubound(f)
Dim uiw As New notesuiworkspace
Dim uidoc As notesuidocument
Set uidoc = uiw.CurrentDocument
Dim doc As notesdocument
Set doc = uidoc.document
Dim fun As Variant
fun =Arrayunique(f)
'Messagebox "postopen " & Ubound(fun)
Dim temp As String
'sort the fun array
For a=1 To Ubound(fun)-1
For b=Ubound(fun) To a Step -1
If fun(b) < fun(b-1) Then
temp=fun(b-1)
fun(b-1)=fun(b)
fun(b)=temp
End If
Next b
Next a
'poulate the field in the open form if required
'Call doc.ReplaceItemValue("flds",fun)