Beim anhaken eines Checkboxfeldes soll eine Prompt Abfrage erscheinen

[Klafu]

Hallo,

ich versuche grade, dass eine Prompt YesNo Abfrage erscheint, wenn man ein Checkbox-Feld anhakt.
Ich denke der richtige Ort dafür ist das OnChange Event des Feldes.

ich hab es mit dem Script probiert und es läuft auch bis zu Ende Nur die Promptabfrage wird nicht angezeigt obwohl sie im Debugger durchlaufen wird.
Was hab ich vergessen?

Code

Sub Onchange(Source As Field)
	Dim s As New NotesSession
	Dim ws As New NotesUIWorkspace
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim uidoc As NotesUIDocument
	
	Set db = s.CurrentDatabase
	Set uidoc = uiws.CurrentDocument
	If uidoc.FieldGetText("SAPCRM") = "SAP CRM" Then
		If uidoc.FieldGetText("NotesCheck") = "" Then
			Frage1 = ws.Prompt(ROMPT_YESNO, "Notes Account vorhanden?", "Besitzt der Benutzer bereits einen Notes-Account?")
			If Frage1 = 0 Then 
				Call uidoc.FieldSettext("Notescheck", "0")
				Print "Done"
			End If
		End If
	End If
End Sub

Chris

[Banni]

Ich denke hier  

Frage1 = ws.Prompt(PROMPT_YESNO, "Notes Account vorhanden?", "Besitzt der Benutzer bereits einen Notes-Account?")

Gruß Jan

[Klafu]

 

Klasse. Das wars. Ich denk da muss ich nicht viel dazu sagen... 

Vielen Dank!!

[pram]

Mit "Option declare" wäre das nicht passiert

[Klafu]

Danke für den Tipp