Hallo habe in einer Maske einenButton der mir folgendes Script ausführt:
Sub Click(Source As Button)
Dim Session As New NotesSession
Dim ws As New NotesUIWorkspace
Dim Doc As NotesUIDocument
Dim uiview As NotesUIView
Set Doc = ws.CurrentDocument
Dim beDoc As NotesDocument
Set beDoc = doc.Document
Dim varErr As Variant
varErr = False
Dim strSend_DIG As Variant
strSend_DIG = True
Dim success As Variant
success = beDoc.ComputeWithForm(False, False)
If success Then
Call Mailsend(Doc, True, Doc.FieldGetText("Bearbeiter_PW"), varErr, strSend_DIG)
If varErr = False Then
Call doc.Close
Call ws.OpenDatabase("server", "Navigator.nsf")
Set uiview = ws.CurrentView
End If
End If
End Sub
In der Maske gibt es ein Feld, das auf leeren Inhalt in der InputValidation überprüft wird.
Drücke ich F9 in der Maske wird die IV auch ausgeführt und ich bekomme die Fehlermeldung.
Aber wenn ich den Button drücke, wird einfach die mail verschickt, obwohl in der Zeile (die Fett ist) ja auch die Inputvalidation ausgeführt werden soll.
Haben 6.5.4 im einsatz.