Office: (Office 2016) On Error wird immer ausgeführt

Wieso braucht es in einer Combobox eine Fehlerbehandlung zur Vermeidung der Eingabe doppelter Werte?

Biete in der Abfrage, die der Combobox zugrunde liegt, die bereits vorhandenen (also zu vermeidenden) Werte gar nicht erst zur Auswahl an.

 

Du hast aber auch (bisher) NICHT den Code verfolgt, der hier geboten wurde!
Vergleich doch mal selber!!!

Also erzähle hier keinen Käse!

 

Schau doch Deinen Code aus #9!!!!!!!!!

 

Hallo LWetzold,

ist es wirklich so schwer? Oder nur einer der sprichwörtlichen Momente mit den Bäumen, die den Blick auf den Wald verdecken *Smilie
Bitte schau Dir #4 und #7 nochmals genau an.
Die zweite Zeile lautet stets "On Error Goto SprungAdresseBeiError". Die sorgt dafür, daß bei Auftreten eines Fehlers (innerhalb der Prozedur) zu dieser Adresse gesprungen wird. Die Sprungadresse ist in der Regel im Endbereich der Prozedur und beinhaltet den Codeabschnitt, der als Errorhandler bezeichnet wird. Das häufigste Element dort ist eine MsgBox, die über den Error informiert.

Ist die Prozedur so aufgebaut, wie in Deinem Beispiel in #1, dann wird der Codeabschnitt mit dem Errorhandler aber auch ohne Error irgendwann erreicht - und natürlich auch ausgeführt. Es liegt jedoch in der Natur der Sache, daß dies nicht beabsichtigt ist. Daher findest Du jeweils vor der Sprungadresse des Errorhandlers das Commando "Exit Sub". Dann endet die Ausführung an dieser Stelle.
Ich hoffe, es ist nun etwas klarer?
Übrigens, die Empfehlung, sich über den Resume-Befehl zu informieren, kann ich nur unterstreichen.

Am Rande:
Ich empfehle Dir, im Setup Deines Forumaccounts eine Signatur hinzuzufügen, in der Du Deinen Vornamen oder irgend einen Nickname unter den Grüßen anführst. Wir sprechen uns hier nur ungern mit dem Familiennamen an.

 

Deine Lektüre nich nur Lesen und Abschreiben!
Du musst das auch Verstehen!

Erst dann kannst Du es Anwenden!!!

Verurteile deshalb nicht gleich dieses Forum!

 

Guten Morgen,

ich versuche es jetzt nochmal und stelle euch den ganzen Code zur Verfügung. Zur Ausgangslage: Zur Darstellung habe ich das einfachere Formular gewählt, in dem der neue Wert angelegt wird. (Im "größeren" Formular ist das Feld eine Combobox zum Auswählen. Beim einfachen Formular habe ich drei Felder. Das erste ist ein Textfeld mit Index ohne Doppelung. Hier soll ein neues Kürzel vergeben werden. Das zweite ist das Auswahlfeld zur Auswahl der Adresse. Das dritte ist zur Information und optional.

Die Speichern Schaltfläche ist mit Makro programmiert (weil es für mich als Anfänger (ich habe bisher vielleicht insgesamt 300 Stunden mit Access und VBA gearbeitet, daher vielleicht auch mein fehlendes Verständnis)

Das ist der vollständige Code für das Formular:

Code:

Im Anhang ist die Meldung, die beim Speichern ausgelöst wird. Also die, die ich auch möchte. Der Fehler bei der EIngabe im Feld Mandantenkürzel wird allerdings nicht ausgeführt, trotz Exit Sub vor dem ErrHandler (ich habe es so verstanden, dass es VOR dem Error Handler stehen muss, damit der Fehler nicht kontinuierlich ausgeführt wird.

Lösche ich allerdings das Makro beim Speichern und gebe stattdessen
Code:

kriege ich die Standardmeldung von Access statt meiner eigenen.

Nehme ich beim Mandantenkürzel das "Exit Sub" vor dem Error Handler raus, wird der Fehler immer angezeigt (warum habe ich verstanden da der Code durchläuft).

Meine Frage ist,
a)
wieso wird die richtige Meldung beim Makrospeichern angezeigt beim vba-code aber nicht?
b)
wo muss ich Exit sub richtig positionieren, damit der Fehler nur bei Auftritt angezeigt wird und warum? Vielleicht kann es mir jemand in einfachen Worten erklären, offensichtlich verstehe ich die Ausführen meiner Lektüre nämlich nicht.

PS: Danke für den Hinweis, hatte es gestern schon kurz gesucht aber nicht auf die Schnelle gefunden *Smilie

 

Ich habe es so verstanden, dass Resume bedeutet, die Anweisung wird nach der Fehlerauslösenden Prozedur weiter ausgeführt. Next bedeutet, dass die Anweisung direkt nach der fehlerauslösenden Prozedur weiter ausgeführt wird. Es scheitert jedoch daran, dass ich das nicht praktisch umsetzen kann, da ich schlichtweg nicht weiß, was den Fehler auslöst. Nochmal: ich bin Anfänger und mache das nur nebenbei eigentlich bin ich Wirtschaftsberaterin und habe mir ALLES selbst beigebracht, also habt bitte Nachsicht, wenn ich die Dinge, die für ein einfach erscheinen, nicht auf Anhieb verstehe. und nein, ich verurteile nicht das gesamte Forum, da es mir schon viel geholen hat.

 

Das habe ich mir auch schon überlegt, aber damit bin ich heillos überfordert und habe gar keine Ahnung, wie ich das realsieren kann. In einem Formular (zur Anlage) ist es ein Textfeld, in einem anderen Formular (zur Auswahl für einen neuen Datensatz) ist es ein Combofeld zur besseren Anwendbarkeit für die Nutzer. wie würde man das denn realisieren, meine einzige Idee wäre über eine Abfrage..?

 

Als Umsetzung dazu würde man eine Inkonsistenzprüfung vornehmen.
A wäre die vollständige Menge, vermutlich Deine bisherige Tabelle/Abfrage. B wäre die Menge der bereits in der Zieltabelle vorhandenen Einträge.

Ansonsten: Programmsteuerung über Fehler (wie oben) lasse ich gerne links liegen. Tendenziell bemühe ich mich, fehlerfrei zu programmieren, also schauen und prüfen und dann erst abgeleitet handeln (das ist auch beim Autofahren günstiger als eine Fehlerbehandlung).
Eine Fehlerbehandlung dient dann "nur" der Begegnung mit unerwarteten (unvorhersehbaren) Fehlern.

Man könnte also mit Aktualisierung des Feldinhaltes prüfen, ob es diesen Wert schon in der Zieltabelle gibt und somit ein Speichern zu einem ungewünschten Duplikat führen würde:
Code:

Wenn im Form_BeforeUpdate sowieso Prüfungen erfolgen, könnte man auch die Duplikatprüfung dort, also vor dem unmittelbaren Speichern des Datensatzes, vornehmen und somit das Speichern ggf. abbrechen.

 

Also ich habe mittlerweile den Fehler gefunden und es lag daran, dass beim Speichern mittels vba-Code der Fehler über "Form_Error" nicht abgefangen werden kann. Dieser Code fängt keine Laufzeitfehler von vba ab (https://docs.microsoft.com/de-de/off...ss.form.error).
Deswegen funktionierte die Fehlerüberprüfung, wenn über Makro gespeichert wurde. Der code

Code:

ist also immer nur dann anzuwenden, wenn der Fehler nicht durch VBA erzeugt wird sondern durch Makros.

Wenn die Prüfung dennoch stattfinden soll (wie in meinem Fall) muss der Fehler mittels On Error Goto abgefangen werden und zwar genau in der Prozedur, wo der Fehler erzeugt wird. In dem Fall beim speichern. Richtig ist also der Code

Code:

Hier war also der Code auch richtig, aber nicht im richtigen Ereignis eingestellt, da bei AfterUpdate noch nicht in der Tabelle geprüft wird, ob der Datensatz den Indexregeln entspricht.

Also vielen Dank an alle, die mir wirklich versucht haben zu helfen.

 

Hallo,
oder man prüft mittels DCount ob es die Nummer schon gibt, dann kommt es erst gar nicht zum Fehler.
Steht schon in #24 von Eberhard.

 

Wenn man verschiedene Welten (Objekte) durcheinander mischt und quasi parallel arbeiten lässt, braucht man sich nicht wundern, wenn die eine Welt von der anderen Welt nicht weiß, was sie gerade tut.

 

Genau in dieser Situation hatte es ja funktioniert..nur nicht bei reiner vba-programmierung..