Forall statements

[LNbeginner]

Dim data As String

data = source.FieldGetText("files&quot
test = Evaluate("@Explode(data; ,)&quot
Forall x In test
Messagebox x
End Forall

Trying to take a field and turn it into a list or array so that I can run all the items through a forall statement. With the above code x is blank. I have tried other ways but this is as close as I have gotten.

Thanks

 

[eggy]

I did this for one of my db :

Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim curdoc As Notesdocument
Dim s_DocAccess As String

Set curdoc = Source.Document

'Initialize the variable
s_DocAccess = ""

Forall x In curdoc.DocAccess
'Check if x is already in the list
If Instr( 1, s_DocAccess , x ) = 0 Then
'If not
s_DocAccess = s_DocAccess & "; " & x
End If
End Forall

curdoc.DocAccess = s_DocAccess

End Sub

Hope that it will help you.