Negativ Sir. Ich hab das jetzt so eingebunden:
Sub Querysave(Source As Notesuidocument, Continue As Variant)
On Error Goto Error_Refresh
Source.Refresh
If proofInput(Source) = False Then
continue = False
Exit Sub
End If
Exit Sub
Ende:
Error_Refresh:
continue = False
Resume Ende
End Sub
Fehlermeldung tritt nach wie vor auf.
An der Funktion liegt es nicht, die testet nur ein paar Feldwerte - auch
Sub Querysave(Source As Notesuidocument, Continue As Variant)
On Error Goto Error_Refresh
continue = False
Ende:
Exit Sub
Error_Refresh:
Resume Ende
End Sub
liefert den Fehler ...