Hallo Forum,
kann man die Lotus Notes Meldung "NoteUIDocument Save cancelled" bei der Validierung von Feldern im QuerySave unterbinden?
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument
If uidoc.FieldGetText("SupportCenter") = "" Then
Messagebox "Please select Support Center"
continue = False
End If
End Sub
Alexis
Sorry Berhard,
auch mit
Sub Querysave(Source As Notesuidocument, Continue As Variant)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
On Error Goto Errhandle
Set uidoc = ws.CurrentDocument
If uidoc.FieldGetText("SupCenter") = "" Then
Messagebox "Please select Support Center"
continue = False
End If
Errhandle:
Messagebox "Error" & Str(Err) & ": " & Error$
End Sub
bekomme ich den Errorcode 0 zurück
danach die besagte LN-Meldung.
???
Da muss wohl was anderes noch mitspuken.
Alexis