<\/p>\n
Manche Felder sollen zusätzlich zu den Primärschlüsselfeldern der eindeutigen Indizierung eines Datensatzes dienen. Der Zweck ist dann nicht hauptsächlich auf Seiten des Datenmodells zu finden, sondern eher bei der Anzeige: Wenn Sie etwa mehrere gleiche Artikel haben, die sie aber in unterschiedlichen Verpackungseinheiten in der Artikeltabelle pflegen, können Sie den Artikel nicht nur nach dem Artikelnamen identifizieren. Hier hilft ein weiteres Bezeichnungsfeld, das den Artikelnamen um eindeutige Informationen erweitert. Dieser Beitrag zeigt, wie Sie die Zuweisung eindeutiger Werte für ein solches Feld sicherstellen.<\/b><\/p>\n
über welche Konstellation Sie nun dazu gelangen, ein Feld mit eindeutigen Werten belegen zu müssen, spielt eigentlich keine Rolle – Tatsache ist, dass Sie dem Benutzer eine ergonomische Möglichkeit bieten sollten, diese Werte einzugeben.<\/p>\n
In unserem Beispiel wollen wir in der Tabelle tblArtikel <\/b>eine eindeutige Artikelbezeichnung durchsetzen, weshalb wir das Feld Artikelbezeichnung <\/b>der Tabelle, die Sie im Entwurf in Bild 1 sehen, mit einem eindeutigen Index versehen haben.<\/p>\n
![\"Tabelle](\"..\/fileadmin\/_temp_\/2014_04\/pic_941_001.png\")
<\/p>\n
Bild 1: Tabelle mit eindeutig indiziertem Feld<\/span><\/b><\/p>\n Um die Eingabe durch einen Benutzer zu ermöglichen, haben wir ein denkbar einfaches Formular namens frmArtikel <\/b>erstellt, das an die Tabelle tblArtikel <\/b>gebunden ist und lediglich die beiden darin enthaltenen Felder anzeigt (s. Bild 2).<\/p>\n Bild 2: Formular zur Eingabe von Artikeln<\/span><\/b><\/p>\n Wenn der Benutzer nun einen neuen Datensatz anlegt und eine Artikelbezeichnung einträgt, die bereits einmal in der Tabelle vorhanden ist, liefert dies die folgende Fehlermeldung zutage:<\/p>\n Die von Ihnen gewünschten änderungen an der Tabelle konnten nicht vorgenommen werden, da der Index, der Primärschlüssel oder die Beziehung mehrfach vorkommende Werte enthalten würde. ändern Sie die Daten in den Feldern, die gleiche Daten enthalten, entfernen Sie den Index, oder definieren Sie den Index neu, damit doppelte Einträge möglich sind, und versuchen Sie es erneut.<\/b><\/p>\n Diese Meldung wollen wir dem Benutzer natürlich so nicht präsentieren. Abhilfe schaffen wir nicht mit einer herkömmlichen Fehlerbehandlung, denn dieser Fehler wird ja gar nicht in einer VBA-Prozedur ausgelöst, sondern direkt bei der Eingabe in ein gebundenes Steuerelement eines Formulars.<\/p>\n Also schauen wir uns zunächst an, wie Sie dieses Problem nachträglich beheben – also wenn der Benutzer bereits alle Daten eingegeben hat und den Datensatz speichern will. Hier können Sie auf den Fehler über die Ereigniseigenschaft Bei Fehler <\/b>des Formulars reagieren.<\/p>\n Für dieses legen Sie eine Ereignisprozedur wie in Listing 1 an. Diese liefert zwei Parameter: DataErr <\/b>übergibt die Nummer des Fehlers, der zum Auslösen dieses Ereignisses geführt hat. Response <\/b>erwartet eine Access-Konstante, die Access mitteilt, wie mit dem Fehler verfahren werden soll. In diesem Fall prüfen wir in einer Select Case<\/b>-Anweisung, ob DataErr <\/b>den Fehler mit der Nummer 3022 <\/b>liefert (dies entspricht dem obigen Fehlertext, wie Sie auch im Direktbereich mit der Anweisung Debug.Print AccessError(3022) <\/b>prüfen können).<\/p>\n Listing 1: Benutzerdefinierte Fehlermeldung bei Eingabe eines bereits vorhandenen Wertes in ein eindeutiges Feld<\/span><\/b><\/p>\n In diesem Fall geben Sie eine entsprechende Meldung aus und stellen den Fokus auf das Textfeld zur Eingabe des Artikelnamens ein. Das Ergebnis sieht dann etwa wie in Bild 3 aus, das Beispiel finden Sie im Formular frmArtikel_PruefungBeimSpeichern<\/b>.<\/p>\n Bild 3: Benutzerdefinierte Fehlermeldung<\/span><\/b><\/p>\n Prüfung bei der Eingabe<\/b><\/p>\n Nun kann es sein, dass die Datenherkunft des Formulars mehrere eindeutig indizierte Felder enthält. In diesem Fall fällt die Prüfung, welches Feld nun für den Fehler verantwortlich ist, entsprechend schwerer. Doch zum Glück können wir auch direkt nach der Eingabe eines Textes in ein Feld prüfen, ob der Wert bereits in der Tabelle vorhanden ist, und den Benutzer gegebenenfalls darauf hinweisen.<\/p>\n Dazu verwenden wir die Ereignisprozedur, die durch das Ereignis Vor Aktualisierung <\/b>des Textfeldes txtArtikelbezeichnung <\/b>ausgelöst wird (s. Listing 2). Die Prozedur prüft per DLookup<\/b>-Anweisung, ob die Tabelle tblArtikel <\/b>bereits einen Datensatz enthält, der im Feld Artikelbezeichnung <\/b>den soeben durch den Benutzer eingegebenen Wert aufweist.<\/p>\n Listing 2: Prüfung des Artikelnamens vor dem Speichern des Feldes<\/span><\/b><\/p>\n Ist dies der Fall, liefert die DLookup<\/b>-Funktion den Primärschlüsselwert dieses Datensatzes zurück und speichert diesen in der Variablen lngArtikelID<\/b>, anderenfalls den Wert Null<\/b>. Dieser wird durch die umschließende Nz<\/b>-Funktion in den Wert 0 <\/b>umgewandelt.<\/p>\n Die folgende If…Then<\/b>-Bedingung prüft lngArtikelID<\/b>. Enthält diese nicht den Wert 0<\/b>, ist die Artikelbezeichnung bereits vorhanden. In diesem Fall erscheint wieder eine entsprechende Meldung.<\/p>\n Wichtig ist an dieser Stelle, dass wir den Parameter Cancel <\/b>auf den Wert True <\/b>einstellen, damit das Speichern der Eingabe in das Textfeld abgebrochen wird und der Fokus auf dem Textfeld verbleibt.<\/p>\n Zusätzlich können Sie noch das Textfeld leeren, und zwar mit dieser Anweisung:<\/p>\n Dummerweise erschlagen wir damit nicht alle denkbaren Fälle: Es kann ja auch geschehen, dass der Benutzer den Wert im Feld Artikelbezeichnung <\/b>eines bestehenden Datensatzes erst einmal ändert, das Feld verlässt und dann wieder den ursprünglichen Wert für das Feld einträgt.<\/p>\n <\/p>\n In diesem Falle wird deutlich, dass der Datensatz bei der Eingabe in ein Formular zwar temporär gespeichert wird, aber erst etwa beim Datensatzwechsel in die Tabelle übernommen wird: Unsere für dieses Formular definierte Ereignisprozedur wird in diesem Fall nämlich ausgelöst, obwohl wir nur die Artikelbezeichnung erneut in den gleichen Datensatz eingetragen haben.<\/p>\n Sprich: Ein Datensatz enthält den Wert Beispielartikel <\/b>im Feld Artikelbezeichnung<\/b>. Wir ändern diesen auf Testartikel <\/b>und verlassen das Feld – kein Problem, sofern Testartikel <\/b>noch nicht in einem anderen Datensatz gespeichert ist. Dann kehren wir zurück zum Feld und geben wieder Beispielartikel <\/b>ein. Die Prozedur txtArtikelbezeichnung_BeforeUpdate <\/b>wird in beiden Fällen ausgelöst. Im zweiten Fall findet sie den Wert des Feldes Artikelname <\/b>jedoch in der Tabelle vor und zeigt die entsprechende Meldung an.<\/p>\n Also erweitern wir den Aufruf der DLookup<\/b>-Funktion so, dass diese den aktuellen Datensatz ausdrücklich nicht mit in die Untersuchung einbezieht. Dazu fügen wir ein weiteres Kriterium hinzu, das den Datensatz mit dem Primärschlüsselwert des aktuell im Formular angezeigten Datensatzes ausschließt:<\/p>\n Nun können Sie auch bei bestehenden Datensätzen den Artikelnamen ändern und wieder zurücksetzen, ohne dass ein für den Benutzer nicht erklärbarer Fehler angezeigt wird.<\/p>\n Das Beispiel zu diesem Abschnitt finden Sie im Formular frmArtikel_PruefungNachEingabe<\/b>.<\/p>\n Prüfung vor der Eingabe<\/b><\/p>\n Manchmal möchten Sie den Wert für ein eindeutig indiziertes Feld bereits vor der Eingabe prüfen. Wenn Sie dann auch noch die gängigen Mechanismen bei der Eingabe in gebundene Felder umgehen möchten, werden Sie möglichweise auf die InputBox<\/b>-Funktion zurückgreifen.<\/p>\n In diesem Beispiel haben wir das Textfeld zur Eingabe der Artikelbezeichnung einmal gesperrt, damit der Benutzer die Eingabe nur über die Schaltfläche rechts vom Textfeld aktivieren kann – s. Bild 4.<\/p>\n Bild 4: Eingabe der neuen Bezeichnung per InputBox<\/span><\/b><\/p>\n Ein Klick auf die Schaltfläche löst die Prozedur aus Listing 3 aus. Diese speichert zunächst einen Standardwert, der beim Anzeigen der Inputbox vorgegeben werden soll, in der Variablen strStandardwert<\/b>.<\/p>\n Listing 3: Abfrage einer Bezeichnung per InputBox<\/span><\/b><\/p>\n Die folgende Anweisung zeigt bereits die Inputbox an. Das Ergebnis soll an die Variable bolVorhanden <\/b>zurückgegeben werden. Die InputBox<\/b>-Funktion verhält sich nun so, dass immer der angegebene Text zurückgeliefert wird – außer, wenn der Benutzer die Abbrechen<\/b>-Schaltfläche betätigt. In diesem Fall liefert die Funktion eine leere Zeichenkette zurück.<\/p>\n Nun wollen wir die Aufgabe, auf eine leere Zeichenkette und auf eine eventuell bereits vorhandene Zeichenkette zu prüfen, an eine mit Parametern ausgestattete und somit wiederverwendbare Funktion auslagern.<\/p>\n Was genau soll diese Funktion erledigen<\/p>\n Die Funktion heißt BezeichnungErmitteln<\/b> und sieht wie in Listing 4 aus. Diese Prozedur erwartet die folgenden Parameter:<\/p>\n Listing 4: Ermitteln einer eindeutigen Bezeichnung für einen Datensatz<\/span><\/b><\/p>\n Die Prozedur prüft zunächst, ob der Benutzer gegebenenfalls eine leere Bezeichnung eingegeben hat, was als Betätigen der Abbrechen-Schaltfläche gewertet werden soll. Die Funktion liefert in diesem Fall den Wert False <\/b>zurück und wird an dieser Stelle beendet.<\/p>\n Anderenfalls versucht die Prozedur, den Primärschüsselwert für einen Datensatz mit dem angegebenen Wert in dem angegebenen Feld zu ermitteln. Ist kein solcher Datensatz vorhanden, liefert die hier verwendete DLookup<\/b>-Abfrage den Wert Null <\/b>zurück, der mit der Nz<\/b>-Funktion durch den Wert 0 <\/b>ersetzt wird. Der gefundene Primärschlüsselwert oder der Wert 0 <\/b>landen in der Variablen lngID<\/b>. Dieser wird dann mit dem Wert 0 <\/b>verglichen.<\/p>\n Liefert die entsprechende If…Then<\/b>-Bedingung den Wert True<\/b>, stellt die Prozedur den Rückgabewert der Funktion auf True <\/b>ein – die vom Benutzer eingegebene Bezeichnung ist noch nicht vorhanden und kann verwendet werden.<\/p>\n Anderenfalls prüft die Funktion nun, ob beim Aufruf ein benutzerdefinierter Titel und ein entsprechender Text für die InputBox<\/b>-Funktion übergeben wurden. Falls nicht, trägt die Funktion entsprechende vorgefertigte Ausdrücke in die beiden Variablen strMeldung <\/b>und strTitel <\/b>ein.<\/p>\n Dann beginnt die Prozedur mit dem Durchlaufen einer Do While<\/b>-Schleife, die solange läuft, bis der in lngID <\/b>gespeicherte Wert nicht mehr 0 <\/b>ist und die Variable bolAbbrechen <\/b>nicht True <\/b>ist.<\/p>\n Ersteres bedeutet, dass der Benutzer einen Wert eingegeben hat, der noch nicht im betroffenen Feld enthalten ist, zweites bedeutet, dass der Benutzer entweder eine leere Zeichenkette eingegeben und auf OK <\/b>geklickt hat oder dass er direkt die Abbrechen<\/b>-Schaltfläche betätigt hat.<\/p>\n Innerhalb der Schleife fragt die Prozedur nun erneut durch den Aufruf einer InputBox<\/b>-Funktion die Bezeichnung für den neuen Datensatz ab.<\/p>\n Als Parameter übergibt sie den in strMeldung <\/b>gespeicherten Meldungstext, die in strTitel <\/b>gespeicherte überschrift und den aktuellen Wert aus der Variablen strBezeichnung<\/b>. Das Ergebnis landet wiederum in der Variablen strBezeichnung<\/b>.<\/p>\n Die Funktion prüft dann mit der Len<\/b>-Funktion, ob die Länge des Ausdrucks in strBezeichnung <\/b>ungleich 0 <\/b>ist (also größer als 0<\/b>, da Len <\/b>ja keine negativen Werte liefern kann). Ist dies der Fall, ermittelt die Funktion mithilfe des Aufrufs der DLookup<\/b>-Funktion, ob die nun eingegebene Bezeichnung bereits in dem mit strBezeichnungsfeld <\/b>angegebenen Feld der mit strTabelle <\/b>angegebenen Tabelle enthalten ist. Das Ergebnis, also entweder der Primärschlüsselwert des betroffenen Datensatzes oder die Zahl 0<\/b>, landen in der Variablen lngID<\/b>.<\/p>\n Sollte die Länge der Zeichenkette 0 <\/b>sein, stellt die Funktion die Variable bolAbbrechen <\/b>direkt auf den Wert True <\/b>ein.<\/p>\n Dies prüft die Funktion dann beim nächsten Start der Do While<\/b>-Schleife. Diese wird erst abgebrochen, wenn die Variable lngID <\/b>den Wert 0<\/b> enthält, also die angegebene Bezeichnung noch nicht in dem eindeutigen Feld der Tabelle enthalten ist oder wenn die Variable bolAbbrechen <\/b>den Wert True <\/b>aufweist.<\/p>\n Hat der Benutzer also entweder einen noch nicht vorhandenen Wert für das eindeutige Feld eingegeben oder bei leerem Eingabefeld auf OK <\/b>geklickt beziehungsweise direkt auf Abbrechen<\/b>, dann verlässt die Funktion die Schleife. Im positiven Fall legt die Funktion als Rückgabewert noch den Wert True <\/b>fest.<\/p>\n Diese Funktion können Sie an Stellen, an denen Sie ohne Einsatz eines gebundenen Feldes einen neuen Wert ermitteln wollen, der noch nicht in einem bestimmten Feld einer vorgegebenen Tabelle enthalten ist, einsetzen.<\/p>\n Ein Beispiel zur Anwendung dieser Funktion finden Sie im Formular frmArtikel_PruefungBeiDerEingabe<\/b> der Beispieldatenbank, die Funktion im Standardmodul mdlNeueWerteInEindeutigenFeldern<\/b>.<\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n Für den Benutzer Ihrer Anwendung ist es unbefriedigend, wenn er Daten eingibt und für den Laien schwer verständliche Fehlermeldungen erhält, wenn er beispielsweise doppelte Werte in Tabellenfelder mit eindeutigem Index eingibt.<\/p>\n In diesem Beitrag finden Sie einige Beispiele, wie Sie solche Probleme umgehen können und dem Anwender aussagekräftige Hinweise liefern statt der Standardfehlermeldungen von Access.<\/p>\n Enthaltene Beispieldateien:<\/p>\n NeueWerteInEindeutigenFeldern.mdb<\/p>\n![\"Formular](\"..\/fileadmin\/_temp_\/2014_04\/pic_941_002.png\")
<\/p>\nPrivate Sub <\/span>Form_Error(DataErr As Integer<\/span>, Response As Integer<\/span>)\r\n Select Case DataErr\r\n Case <\/span>3022\r\n MsgBox<\/span> \"Die Artikelbezeichnung ''\" & Me!Artikelbezeichnung & \"'' ist bereits vergeben.\", _\r\n vbExclamation + vbOKOnly, \"Doppelte Artikelbezeichnung\"\r\n Me!Artikelbezeichnung.SetFocus\r\n Response = acDataErrContinue\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Benutzerdefinierte](\"..\/fileadmin\/_temp_\/2014_04\/pic_941_003.png\")
<\/p>\nPrivate Sub <\/span>txtArtikelbezeichnung_BeforeUpdate(Cancel As Integer<\/span>)\r\n Dim <\/span>lngArtikelID As Long<\/span>\r\n lngArtikelID = Nz(DLookup(\"ArtikelID\", \"tblArtikel\", \"Artikelbezeichnung = ''\" _\r\n & Me!txtArtikelbezeichnung & \"''\"), 0)\r\n If <\/span>Not<\/span> lngArtikelID = 0 Then<\/span>\r\n MsgBox<\/span> \"Die Artikelbezeichnung ist bereits in der Datenbank enthalten.\", _\r\n vbExclamation + vbOKOnly, \"Doppelte Artikelbezeichnung\"\r\n Cancel = True<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nMe!txtArtikelbezeichnung.Undo<\/pre>\n
lngArtikelID = Nz(DLookup(\"ArtikelID\", \"tblArtikel\", \"Artikelbezeichnung = ''\" _\r\n & Me!txtArtikelbezeichnung & \"'' AND NOT ArtikelID = \" & Me!ArtikelID), 0)<\/pre>\n
![\"Eingabe](\"..\/fileadmin\/_temp_\/2014_04\/pic_941_004.png\")
<\/p>\nPrivate Sub <\/span>cmdNeu_Click()\r\n Dim <\/span>bolVorhanden As String<\/span>\r\n Dim <\/span>strArtikelbezeichnung As String<\/span>\r\n Dim <\/span>strStandardwert As String<\/span>\r\n strStandardwert = \"[Artikelbezeichnung]\"\r\n strArtikelbezeichnung = InputBox(\"Geben Sie die neue Artikelbezeichnung ein.\", \"Neuer Artikel\", _\r\n strStandardwert)\r\n bolVorhanden = BezeichnungErmitteln(strArtikelbezeichnung, \"tblArtikel\", \"ArtikelID\", _\r\n \"Artikelbezeichnung\", True<\/span>)\r\n If <\/span>bolVorhanden = True<\/span> Then<\/span>\r\n Me!txtArtikelbezeichnung = strArtikelbezeichnung\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n\n
Public Function <\/span>BezeichnungErmitteln(strBezeichnung As String<\/span>, strTabelle As String<\/span>, _\r\n strPrimaerschluesselfeld As String<\/span>, strBezeichnungsfeld As String<\/span>, _\r\n Optional<\/span> strMeldung As String<\/span>, Optional<\/span> strTitel As String<\/span>) As Boolean<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>lngID As Long<\/span>\r\n Dim <\/span>bolAbbrechen As Boolean<\/span>\r\n Set<\/span> db = CurrentDb\r\n If <\/span>Len<\/span>(strBezeichnung) = 0 Then<\/span>\r\n BezeichnungErmitteln = False<\/span>\r\n Exit Function<\/span>\r\n End If<\/span>\r\n lngID = Nz(DLookup(strPrimaerschluesselfeld, strTabelle, strBezeichnungsfeld & \"=''\" _\r\n & strBezeichnung & \"''\"))\r\n If <\/span>lngID = 0 Then<\/span>\r\n BezeichnungErmitteln = True<\/span>\r\n Else<\/span>\r\n If <\/span>Len<\/span>(strMeldung) = 0 Then<\/span>\r\n strMeldung = \"Die Bezeichnung ist bereits vorhanden. Geben Sie eine andere Bezeichnung ein.\"\r\n End If<\/span>\r\n If <\/span>Len<\/span>(strTitel) = 0 Then<\/span>\r\n strTitel = \"Doppelte Bezeichnung\"\r\n End If<\/span>\r\n Do While<\/span> Not<\/span> lngID = 0 And bolAbbrechen = False<\/span>\r\n strBezeichnung = InputBox(strMeldung, _\r\n strTitel, strBezeichnung)\r\n If <\/span>Not<\/span> Len<\/span>(strBezeichnung) = 0 Then<\/span>\r\n lngID = Nz(DLookup(strPrimaerschluesselfeld, strTabelle, _\r\n strBezeichnungsfeld & \"=''\" & strBezeichnung & \"''\"))\r\n Else<\/span>\r\n bolAbbrechen = True<\/span>\r\n End If<\/span>\r\n Loop<\/span>\r\n End If<\/span>\r\n If <\/span>lngID = 0 And bolAbbrechen = False<\/span> Then<\/span>\r\n BezeichnungErmitteln = True<\/span>\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\n\n
Downloads zu diesem Beitrag<\/h3>\n