Das Notes Forum

Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: Klafu am 08.08.13 - 11:28:42

Titel: Beim anhaken eines Checkboxfeldes soll eine Prompt Abfrage erscheinen
Beitrag von: Klafu am 08.08.13 - 11:28:42

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

Titel: Re: Beim anhaken eines Checkboxfeldes soll eine Prompt Abfrage erscheinen
Beitrag von: Banni am 08.08.13 - 11:36:55

Ich denke hier  ;)

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

Gruß Jan

Titel: Re: Beim anhaken eines Checkboxfeldes soll eine Prompt Abfrage erscheinen
Beitrag von: Klafu am 08.08.13 - 11:50:29

 :o

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

Vielen Dank!! :D

Titel: Re: Beim anhaken eines Checkboxfeldes soll eine Prompt Abfrage erscheinen
Beitrag von: pram am 08.08.13 - 21:48:22

Mit "Option declare" wäre das nicht passiert ;)

Titel: Re: Beim anhaken eines Checkboxfeldes soll eine Prompt Abfrage erscheinen
Beitrag von: Klafu am 09.08.13 - 10:32:21

Danke für den Tipp  ;)