LN-Meldung bei Validierung im QuerySave

[Alexis]

Hallo Forum,

kann man die Lotus Notes Meldung "NoteUIDocument Save cancelled" bei der Validierung von Feldern im QuerySave unterbinden?

Code

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

[koehlerbv]

Das spricht dafür, dass Du auch Validierungsformeln verwendest. Man sollte sich da auf ein Verfahren einigen.
Im QuerySave kannst Du aber zu Beginn den Errorstatus abfragen und ggf. QuerySave gleich verlassen.

Bernhard

[Alexis]

Sorry Berhard,

auch mit

Code

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

[koehlerbv]

Nach dem Continue = False fehlt noch ein Exit Sub, Du nimmst also den Fehlerstatus weiter mit, anstatt ihn zu zerstören. QuerySave wird so "normal" verlassen - mit der Kenntnis über einen Fehler.

HTH,
Bernhard

[Alexis]

Hallo Bernhard,

auch wenn ich nerve:

Exit Sub hilft auch nicht!

Interessanterweise klappt es, wenn ich über das Schließen des Workspaces (X) gehe.

Alexis

[koehlerbv]

Du nervst nicht, Alexis. Aber nachvollziehen kann ich diesen Fehler nicht - zumindest, wenn das gepostete der ganze Code ist.

Bernhard

[it898ur]

Hallo ich kenne den Fehler, wenn das Speichern des Frontends durch ein Script aufgerufen wird
==> uidoc.save()
Nach einem Fehler im QuerySave mag diesen Script dann nicht weiterarbeiten, da das Speichern ja verboten wurde. Hier hilft nur das Speichern via Formel und mit
@if(@command([FileSave])
den Fehler abfangen oder die Fehlerprüfung in eigenes Script auslagern und dieses zu Prüfung der Bedingungen aufrufen und auswerten.

André

[Alexis]

Hallo,

ich habe das Problem dadurch gelöst, dass ich den Button zum Saven (was für eine Sprache!) durch @Formelsprache ersetzt habe und im QuerySave die Validierungen in Script realisiert habe.

Danke für Euer Mitdenken.

Alexis