dokument nicht schliessen, wenn Eingaben noch fehlen

[cfiber]

Guten morgen!

in einem Dokument müssen in Feldern Angaben gemacht werden.


Fehlt in mind. einem Feld eine Angabe, so soll das Dokument nicht gespeichert werden und offen bleiben.

1. Das mit dem nicht-speichern habe ich im Querysave gelöst. (saveoptions = 0)
2. Das mit dem nicht-schliessen habe ich im Queryclose gelöst. (Continue = False)

Sobald die Angaben alle gemacht wurden, ist alles perfekt.

Problem:

Wenn der User das x oder "cancel" drückt tut sich nix mehr, denn Continue ist auf False. Mir fällt nichts ein, wie ich das auf True wieder setzen kann.



Hat da jemand eine Idee??


Danke....

[Axel]

Hi,

wieso fackelst du das Ganze nicht im QuerySave-Event ab?

Du überprüfst dort ob die betreffenden Felder entsprechend gesetzt sind. Wenn nicht, dann setzt du dort Continue auf False und das war's dann. SaveOptions brauchst du auch nicht und ebenfalls Continue=False im QueryClose-Event.


Axel

[cfiber]

hatte ich schon, aber so kommt noch das dumme "wanna save?" Fenster.

Prinzipiell funktioniert es ja, aber es ist halt "unelegant"...

[Axel]

Wann kommt das Fenster?

Ich setze diese Lösung in allen Datenbanken ein und hatte diesbezüglich noch nie Probleme.

Axel

[cfiber]

hier nen Auszug aus meinem Code:

Code

If doc.name(0) = "" Then
		Messagebox "Enter the name of the employee."
		Call Source.GotoField("name")
		Continue = False
End If

Nach der Messagebox kommt die Frage, ob ich speichern will. Wenn alles korrekt eingegeben wurde, setze ich Continue auch wieder auf True.

[Axel]

Hi,

versuch's mal so:

If doc.name(0) = "" Then
      Messagebox "Enter the name of the employee."
      Call Source.GotoField("name")
      Continue = False
                                Exit Sub
End If

Dann sollte Ruhe sein, denn dadurch wird die Ausführung des Events abgebrochen.

Axel

[cfiber]

Hatte ich auch schon probiert, das Fenster kommt trotzdem.


Ich bin auch im Querysave, versteh auch nicht, warum der zickt...

[Axel]

Hi,

ich glaube, ich hatte dich das schon mal gefragt. Wann wird das Fenster angezeigt?

Durchforste mal deine Maske, eventuell wird irgendwo noch mal ein Speichern ausgelöst.


Axel

[cfiber]

Ja nach der Messagebox (oben gesagt).

Der Debugger läuft bis zum Ende und dann kommt die Frage. Obwohl Continue auf False ist.

[Axel]

Auch wenn du Exit Sub einfügst?

Axel

[cfiber]

die Zeile Continue = False steht am Ende, macht es einen Unterschied, wenn ich da noch Exit Sub vor End Sub schreibe?

[Axel]

Wenn danach nichts mehr kommt macht es keinen Unterschied. Sehr mysteriös das Ganze.

Wie sieht denn der Code im QuerySave-Event aus? Gibt es noch andere Ecken wo ein Save oder Close ausgelöst werden kann?


Axel

[cfiber]

mein code:

Code

If doc.name(0) = "" Then
		Messagebox "Enter the name of the employee."
		Call Source.GotoField("name")
		Goto dontsave
	End If
'andere Sachen, die übersprungen werden
dontsave:
	Continue = False
End Sub

[Axel]

Hi,

rein gefühlsmässig sollte das funktionieren. Allerdings ist die Verwendung von Gotos nicht unbedingt ein guter Programmierstil. Man sollte die goto-Anweisung nur dort verwenden, wo es sich unter keinen Umständen vermeiden lässt.

Darum würde ich das Ganze so machen:

Code

If doc.name(0) = "" Then
  Messagebox "Enter the name of the employee."
  Call Source.GotoField("name")
  Continue = False
  Exit Sub
End If

'andere Sachen, die übersprungen werden

End Sub

Das Problem was ich bei deinem Code sehe, ist, das eigentlich gar nicht gespeichert wird. Denn auch wenn das Feld gefüllt ist, am Ende des Events Continue aud False gesetzt wird.

Axel