Prompt Method - Again

HCL Domino Domino Forum
1

I have a button that calls a Prompt. There is a field on the form I want filled in with the result from that prompt and it is not working. What am I missing? Here is the code:Sub Click(Source As Button)

Dim w As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim response As Variant

Dim values(5) As Variant

values(0) = “SS Mileage”

values(1) = “Other Mileage”

values(2) = “Lunch”

values(3) = “HW/SW”

values(4) = “Parking”

values(5) = “Miscellaneous”

response = w.Prompt (PROMPT_OKCANCELLIST, “Select an Expense Type”, “Select an Expense Type.”, values(0), values)

If Isempty (response) Then

Messagebox “User canceled”, , “Expense not added”

Else

Set uidoc = w.CurrentDocument

Call uidoc.FieldSetText(“FieldValue0”, response)

End If

End Sub

Someone mentioned:

New topic Post response Add to My Interests Previous Next

RE: Prompt Method

Posted by Collin Brendemuehl on 26.Apr.05 at 10:01 AM using a Web browser

Category: Domino Designer Release: 6.5.3 Platform: Windows XP

The problem is in putting non-text (a variant) into something requesting text.

Instead of …

Call uidoc.FiedSetText(“FieldValue0”, response)

try

Call uidoc.document.FieldValue0 = response

call uidoc.reload

Collin

KC8TKA

But that doesn’t work and I’m in a real jam, can somebody else help?

2

Subject: Well, I just tried (w/ a Notes Client) from a button in this document your code…

Only changing the name of the Field to set the text of (Changed it to Subject_1). It worked perfectly fine. Are you sure the field is named “FieldValue0” and that it is editable?

Sub Click(Source As Button)

Dim w As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim response As Variant

Dim values(5) As Variant

values(0) = "SS Mileage"

values(1) = "Other Mileage"

values(2) = "Lunch"

values(3) = "HW/SW"

values(4) = "Parking"

values(5) = "Miscellaneous"

response = w.Prompt (PROMPT_OKCANCELLIST, "Select an Expense Type", "Select an Expense Type.", values(0), values)

If Isempty (response) Then

	Messagebox "User canceled", , "Expense not added"

Else

	Set uidoc = w.CurrentDocument

	Call uidoc.FieldSetText("Subject_1", response)

End If

End Sub

3

Subject: Prompt Method - Again

uidoc.Document.FieldValue0 = response