Domino 9 und frühere Versionen > ND8: Entwicklung

Beim anhaken eines Checkboxfeldes soll eine Prompt Abfrage erscheinen

(1/1)

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
--- Ende Code ---

Chris

Banni:
Ich denke hier  ;)

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

Gruß Jan

Klafu:
 :o

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

Vielen Dank!! :D

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

Klafu:
Danke für den Tipp  ;)

Navigation

[0] Themen-Index