Office: (Office 2007) Ungültige Daten bei Abbruch löschen

Hallo zusammen,

zum Abschluss einer Dateneingabe in einem Formular habe ich zum Ende eine msgBox mit der Frage ob alle Daten korrekt sind. Falls nicht gibt es die Option zum Abbruch mit dem Befehl:
Me.Undo
Damit werden zwar alle Felder geleert, aber die Daten sind trotzdem in der Tabelle gespeichert. Werden mit Me.Undo nicht alle Eingaben gelöscht?
Wie kann ich das Speichern verhindern?

Dann noch eine Frage. Wie kann man ein leeres Modul löschen?

Für Eure Hilfe im Voraus besten Dank

:)

 

Von welchem Formularereignis sprichst Du?

 

Hallo,

die fehlt vmtl ein Cancel=True - vgl.
donkarls Access-Seiten

 

Hallo Maxel,

ich fülle in einem Formular alle für die Buchung benötigten Felder aus und habe am Ende eine msgBox mit der Frage ob alle Daten korrekt sind.

Darin gibt es 3 Schaltflächen:
Daten korrekt, weitere Eingabe
Daten korrekt, Formular verlassen
Daten falsch, Daten neu eingeben

Bei der 3. ist der Befehl
Code:

Damit sollen alle Felder gelöscht, ein neuer Datensatz geöffnet und der Focus auf das erste Feld zur neuen Eingabe gesetzt werden.

@Jürgen
gehört das
Cancel = True nicht zur msgBox?

 

In welchem Ereignis verwendest Du den obigen Code?
Zeige bitte die gesamte Prozedur!

 

Hallo,
die Frage von Maxel nach dem Ereignis hast Du nicht beantwortet.
Außerdem sind diese Codeschnipsel wenig hilfreich, eher nichtssagend. Wenn Du gleich den kompletten Code gezeigt hättest, (mit Prozedurkopf) wäre das Problem schon längst gelöst.

Nein, das gehört zum Ereignis, daher müsste man es ja wissen, ob Du das richtige hast.

 

Hier der Code: Code:

 

Hallo,
das geht so nicht. Der Code muss in das Ereignis "Vor Aktualisierung" des Formulars. Dieses Ereignis hat den Parameter Cancel, der muss auf True gesetzt werden, damit das Speichern verhindert wird. Me.Undo funktioniert nur dann.

 

genau Klaus, steht aber auch bei Donkarl - sogar in Fettschrift *wink.gif*

 

Hallo Ihr 2,

es ist schon von Vorteil wenn man nicht nur lesen kann, sondern auch alles liest!*wink.gif*

Ja, es steht dick und fett dort geschrieben, wo es hin muss.*cool.gif*

Nun gut, ausprobiert habe ichs, aber leider bringt es mir nicht den gewünschten Effekt, da die Abfrage dann schon nach der ersten Eingabe erscheint. Ich möchte eigentlich erst alle Felder des Formulars füllen, dann am Ende die msgBox und gegebenenfalls die Eingaben wieder verwerfen.

Wenn ich es richtig verstehe sind in dem aktuellen Datensatz aber die zuvor gemachten Eingaben schon in dem Datensatz eingetragen?
Wäre es dann eine Lösung statt Me.Undo diesen Datensatz zu löschen?
Wie lautet der Befehl dazu?

PS
Habt bitte auch ein wenig Nachsicht mit Anfängern wie ich einer bin.
Manche Fragen versteht man nicht direkt so im Detail.
Und ich habe durch Eure Hilfe hier schon viel gelernt, auch wenn manches etwas dauert. Danke *wink.gif*

 

Hallo,

kann nicht sein, Du hast wahrscheinlich das falsche Ereignis. Es muss das FormularEreignis verwendet werden, nicht von einem Feld.

 

Was wieder einmal die Notwendigkeit unterstreicht, den kompletten Code zu posten. Man redet sich hier manchmal den Mund fusselig.

 

Hallo,

hier der Code Code:

Im Voraus schon mal vielen Dank für Eure Hilfe

 

Hallo,
wie bereits mehrfach beschrieben, muss der Code zum Prüfen in das FORMULAR Ereignis "Vor Aktualisierung". Du hast das immer noch unter WrEnde(). Das geht nicht.
Weiterhin, muss der Code zur Vorbelegung von Feldern (z.B. fraKostenart= in das Feld Ereignis "Nach Aktualisierung". Exit würde ich auch nicht verwenden, besser auch "Nach Aktualisierung".

Du hast Da einen ziemlichen Durcheinander programmiert.

 

Hallo Klaus,

auf WrEnde wird von verschiedenen Stellen verwiesen. Daher hatte ich den Code in WrEnde() auskommentiert und in Private Sub Form_BeforeUpdate(Cancel As Integer) eingefügt. An allen Verweisen auf WrEnde habe ich dann entsprechend Form_BeforeUpdate eingefügt.
Da kam dann wie gestern schon beschrieben nach Verlassen von fraArt die msgBox.
Beim Kompilieren bekomme ich die Fehlermeldung "Argument ist nicht optional" zu dem Verweis.
Ich habe mich dann eine ganze Weile damit vergeblich beschäftigt, daher habe ich dann lieber den Originalcode gepostet.

Dem möchte ich nicht widersprechen. Allerdings glaube ich, dass ich zu Beginn "Nach Aktualisierung" verwendet hatte, dann aber auf "Exit" gewechselt bin, weil etwas nicht funktionierte. Das war das erste Mal, dass ich "Exit" verwendet habe.

Bei den Ereignisprozeduren steht zwar grob drin wann sie ausgeführt werden, aber im Detail gibt es sicher feine Unterschiede. Leider habe ich noch nichts gefunden, wo man speziell hierzu etwas lesen kann.

Viel Erfahrung mit Access und VBA habe ich auch noch nicht, und wenn etwas nicht so klappt wie ich mir das vorstelle wird halt probiert. Und dann gibt es schon mal ein Durcheinander.
Wenn jemand den Code aufräumen würde... Nur zu, ich würde mich riesig freuen, wenn ich das Ergebnis dann auch nachvollziehen und verstehen kann.
Ich räume auch gerne selber auf, wenn jemand die Geduld aufbringt mir dies zu erklären *wink.gif* Wenn ich weiß, was wie und warum geändert werden soll ist mir der Aufwand egal.