It’s Friday Afternoon Brain Death Time!!!
I’m using notesUIWorkspace.OpenFileDialog to put multi path strings into a UI text field using uidoc.fieldsettext
Help says I can put multi values in the field using uidoc.fieldsettext with delimiters that are set in the field, which is all set.
When I select multi files in the OpenFileDialog, there is no way to “cleanly” enter a delimter. What is the best way to do this? I can loop through the OpenFileDialog array and use FieldAppendText, but that doesnt list the values with new lines as I have set in the field propeties.
Subject: FieldSetText & Multi OpenFileDialog values …
a followup to my post…
From Help on the FieldSetText …
To enter multiple values for a multi-value field, separate the values with the input separator as specified in the field properties.
I can’t get this to work. What’s the trick?
Xie Xie
Subject: RE: FieldSetText & Multi OpenFileDialog values …
got it, thanks to Michael Robinson post…
http://www-10.lotus.com/ldd/nd6forum.nsf/55c38d716d632d9b8525689b005ba1c0/993795aaed14ba2f85256dae006f1d60?OpenDocument
Here is my work around…
Dim stringArray As Variant
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
stringArray = workspace.OpenFileDialog(True,"Open some files")
temp1 = Join(stringArray, Chr$(13) & Chr$(10))
Call uidoc.FieldSetText("myField",temp1)
Not quite what help suggest, which for the most part … Blows
(but still not as bad as the crap MS puts out as help so I give IBM at least that)
I still love Notes !!!
Subject: RE: FieldSetText & Multi OpenFileDialog values …
I’m on a roll!!!
to expand on that code. If a user enters file string values into the UI field, then goes back and enters more…
Dim stringArray As Variant
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
stringArray = workspace.OpenFileDialog(True,"Open some files")
If Isempty(stringArray) Then
Exit Sub
End If
If uidoc.FieldGetText("Field") <> "" Then
temp1 = Join(Arrayappend(stringArray, uidoc.FieldGetText("Field")),Chr$(13) & Chr$(10))
Else
temp1 = Join(stringArray, Chr$(13) & Chr$(10))
End If
Call uidoc.FieldSetText("Field",temp1)