![\"Ein](\"..\/fileadmin\/_temp_\/2017_06\/pic_1110_001.png\")
<\/p>\nIn Datenbanken wie Microsoft Access gibt es einen entscheidenden Unterschied zwischen einem leeren Feld und einem Feld mit einer leeren Zeichenkette. Und es gibt noch mehr interessante Dinge rund um dieses Thema, zum Beispiel die Funktion IsNull, die Funktion Nz und weitere VBA-Elemente, die sich mit \u00e4hnlichen Dingen befassen – wie etwa Nothing, Empty oder Missing. Dieser Beitrag erl\u00e4utert diese VBA-Elemente und zeigt die wichtigsten Unterschiede und Einsatzzwecke auf.<\/b><\/p>\n
Wer hat sich beim Einstieg in die Access-Welt nicht mindestens einmal in die Nesseln gesetzt, als er versucht hat, ein leeres Textfeld mit dem Wert „“ (f\u00fcr eine leere Zeichenkette) zu vergleichen<\/p>\n
Schauen wir uns ein einfaches Szenario an: Das Formular aus Bild 1 ist an eine Tabelle mit einem Prim\u00e4rschl\u00fcsselfeld und den beiden Textfeldern Vorname <\/b>und Nachname <\/b>gebunden. Wenn der Benutzer auf die Schaltfl\u00e4che Speichern <\/b>klickt, sollen die Felder validiert werden. Verl\u00e4uft die Validierung erfolgreich, wird der Datensatz gespeichert.<\/p>\n
<\/p>\n
Bild 1: Ein einfaches Formular mit einem Textfeld<\/span><\/b><\/p>\n Dazu legen wir zun\u00e4chst die Prozedur f\u00fcr die Schaltfl\u00e4che cmdSpeichern <\/b>an, welche schlicht eventuell vorhandene \u00c4nderungen am Datensatz speichert:<\/p>\n Die Fehlerbehandlung haben wir hinzuf\u00fcgt, weil der Versuch, den Datensatz zu speichern, beim Abbrechen mit der nachfolgend vorgestellten Prozedur einen Fehler ausl\u00f6sen w\u00fcrde. Die folgende Ereignisprozedur wird durch das Ereignis Vor Aktualisierung <\/b>ausgel\u00f6st. Es pr\u00fcft, ob das Feld Nachname <\/b>eine leere Zeichenkette enth\u00e4lt. Ist das nicht der Fall, soll eine entsprechende Meldung erscheinen, das Textfeld den Fokus erhalten und die Aktualisierung durch Setzen des Parameters Cancel <\/b>auf den Wert True <\/b>abgebrochen werden:<\/p>\n Wenn wir dies ausprobieren, geschieht – nichts! Obwohl doch das Textfeld leer ist! Warum Weil das Textfeld tats\u00e4chlich leer ist und der Inhalt genau nicht einer leeren Zeichenkette entspricht.<\/p>\n Diesen Sachverhalt pr\u00fcfen wir nicht mit =““<\/b>, und auch nicht mit = Null<\/b>. Und auch das Is<\/b>-Schl\u00fcsselwort kommt hier nicht zum Einsatz, Is Null <\/b>hilft also auch nicht. Hier gibt es vielmehr zwei M\u00f6glichkeiten. Die erste ist, zus\u00e4tzlich zum Vergleich mit der leeren Zeichenkette auch noch die Funktion IsNull <\/b>einzusetzen:<\/p>\n Wenn wir den Datensatz nun speichern wollen, erscheint die gew\u00fcnschte Meldung (s. Bild 2). Die Bedingung Me!Nachname = „“ <\/b>wird \u00fcbrigens mit den Standardeinstellungen nicht eintreten.<\/p>\n Bild 2: Es wurde ein Textfeld mit dem Inhalt Null erkannt.<\/span><\/b><\/p>\n Dies erreichen Sie erst, wenn zwei bestimmte Eigenschaften des Feldes im Tabellenentwurf spezielle Werte aufweisen. Die Eigenschaft Eingabe erforderlich <\/b>muss dabei den Wert Ja <\/b>aufweisen, die Eigenschaft Leere Zeichenfolge <\/b>ebenfalls den Wert Ja <\/b>(s. Bild 3).<\/p>\n Bild 3: Einstellung f\u00fcr leere Zeichenketten<\/span><\/b><\/p>\n Erst dann k\u00f6nnen Sie tats\u00e4chlich eine leere Zeichenfolge in das Feld Nachname<\/b> eingeben – siehe Bild 4. Um auf Nummer Sicher zu gehen, was die zugrunde liegende Tabelle angeht, k\u00f6nnen Sie auch einfach eine Kombination der beiden Bedingungen nutzen:<\/p>\n Bild 4: Eingabe einer leeren Zeichenkette<\/span><\/b><\/p>\n Und es geht noch eine Nummer eleganter: Die Funktion Nz()<\/b> erwartet den zu pr\u00fcfenden Ausdruck, also beispielsweise ein Textfeld wie in unserem Beispiel. Wenn der Inhalt des Textfeldes Null <\/b>ist, liefert die Funktion den Wert zur\u00fcck, der standardm\u00e4\u00dfig f\u00fcr diesen Datentyp verwendet wird. Bei Textfeldern ist das eine leere Zeichenkette.<\/p>\n Sie k\u00f6nnen allerdings auch explizit angeben, welcher Wert zur\u00fcckgegeben werden soll, wenn der gepr\u00fcfte Ausdruck den Wert Null <\/b>liefert. In diesem Fall geben Sie als zweiten Parameter etwa die leere Zeichenkette an und pr\u00fcfen dann nur noch, ob die Funktion eine leere Zeichenkette zur\u00fcckgeliefert hat:<\/p>\n Bei einem Feld, das entweder den Wert Null <\/b>oder den Wert 0 <\/b>aufweisen darf, wird es interessanter. Dazu f\u00fcgen wir der Tabelle ein Fremdschl\u00fcsselfeld namens AnredeID <\/b>hinzu, mit der der Benutzer einen der Datens\u00e4tze der Tabelle tblAnreden <\/b>ausw\u00e4hlen k\u00f6nnen soll. F\u00fcr das Kombinationsfeld, mit dem wir dies erledigen wollen, hinterlegen wir die folgende Datensatzherkunft:<\/p>\n Dies liefert, wenn wir als Standardwert den Wert 0 <\/b>einstellen, die Auswahl aus Bild 5 f\u00fcr einen neuen Datensatz. Wenn wir die beiden Textfelder ausf\u00fcllen und das Kombinationsfeld so beibehalten, gibt es Fehler 3201 <\/b>(Der Datensatz kann nicht hinzugef\u00fcgt oder ge\u00e4ndert werden, da ein Datensatz in der Tabelle ““tblAnreden““ mit diesem Datensatz in Beziehung stehen muss.<\/b>). Diesen wollen wir nat\u00fcrlich verhindern, und zwar mit einer passenden Validierung. Damit der Fehler nicht ausgel\u00f6st wird, nehmen wir diesen zun\u00e4chst in die Ereignisprozedur der Schaltfl\u00e4che cmdSpeichern <\/b>hinzu:<\/p>\n Bild 5: Ein Kombinationsfeld, das nicht den Wert 0 oder Null liefern soll<\/span><\/b><\/p>\n Danach legen wir die folgende If…Then<\/b>-Bedingung in der Methode Form_BeforeUpdate <\/b>an:<\/p>\n Wenn wir nun allerdings einen neuen Datensatz anlegen, die beiden Textfelder ausf\u00fcllen, den Standardwert des Kombinationsfeldes beibehalten und auf die Schaltfl\u00e4che cmdSpeichern <\/b>klicken, geschieht nichts! Der Datensatz wird nicht gespeichert, aber es erscheint auch keine Fehlermeldung. Der Grund ist einfach: Sobald Sie den Datensatz in den Bearbeitungsmodus versetzen, was geschieht, wenn Sie eines der Felder \u00e4ndern, wird der urspr\u00fcngliche Wert, also Null<\/b>, durch den als Standardwert festgelegten Wert ersetzt, also 0<\/b>. Den Wert 0 <\/b>fangen wir nicht ab, also wird der Datensatz einfach kommentarlos nicht gespeichert. Also pr\u00fcfen wir einfach auf den Wert 0<\/b> statt auf Null<\/b> (und klappen das Kombinationsfeld auch noch auf, wenn es den Wert 0 <\/b>enth\u00e4lt):<\/p>\n Nun kann es allerdings sein, dass der Benutzer einfach das Kombinationsfeld leert. Dies w\u00fcrde bedeuten, dass der Wert Null <\/b>im entsprechenden Feld der Datenbank gespeichert wird, denn wir pr\u00fcfen in der Validierung nicht auf dieses Feld und in der mit referenzieller Integrit\u00e4t festgelegten Beziehung ist der Wert Null<\/b> auch erlaubt. Wir m\u00f6chten aber weder den Wert 0 <\/b>noch Null <\/b>im Feld AnredeID <\/b>haben. Also pr\u00fcfen wir auf beide:<\/p>\n Wenn AnredeID <\/b>den Wert Null <\/b>hat, wird es durch die Funktion Nz <\/b>in 0 <\/b>konvertiert, anderenfalls hat es gegebenenfalls durch den Standardwert bereits den Wert 0<\/b>. In beiden F\u00e4llen erscheint eine entsprechende Meldung.<\/p>\n Da es sich bei dem Feld AnredeID <\/b>um ein Zahlenfeld handelt, k\u00f6nnen Sie sogar den zweiten Parameter der Nz<\/b>-Funktion weglassen – diese liefert dann ohnehin den Wert 0 <\/b>als Standardwert f\u00fcr Zahlenwerte, die Null <\/b>sind:<\/p>\n Der Wert Null <\/b>kann nicht nur in Datenbankfeldern vorkommen, sondern nat\u00fcrlich auch in VBA-Variablen. Allerdings gibt es nur einen einzigen Variablendatentyp, der den Wert Null aufnehmen kann, und das ist der Datentyp Variant<\/b>. Das folgende Beispiel zeigt den Unterschied etwa zwischen dem Datentyp Variant <\/b>und dem Datentyp String<\/b>:<\/p>\n So nimmt die String<\/b>-Variable nat\u00fcrlich die Zeichenkette auf und auch die Zahl, wobei diese in eine Zeichenkette umgewandelt wird. Aber die Zuweisung des Wertes Null <\/b>liefert einen Fehler (s. Bild 6). Bei der Variant<\/b>-Variablen var <\/b>hingegen erfolgen alle Zuweisungen ohne Fehler. Die Zahl wird als Zahl gespeichert und der Wert Null <\/b>als Null<\/b>. Dies macht den Datentyp Variant <\/b>nat\u00fcrlich pr\u00e4destiniert f\u00fcr F\u00e4lle, in denen der \u00fcbergebene Wert gleich Null <\/b>werden kann.<\/p>\n Bild 6: Fehler beim Zuweisen des Wertes Null zu einer String-Variablen<\/span><\/b><\/p>\n Wo wir schon beim Datentyp Variant <\/b>sind, k\u00f6nnen wir uns auch gleich noch seine Besonderheiten ansehen. Wenn wir eine String<\/b>-Variable deklarieren, wird diese automatisch mit dem Wert „“ <\/b>initialisiert. Die folgende Prozedur gibt die Inhalte der Variablen aus:<\/p>\n Das Ergebnis lautet:<\/p>\n Dass es sich um eine leere Zeichenkette handelt, weisen wir einfacher so nach:<\/p>\n Was aber geschieht, wenn wir eine Variant<\/b>-Variable initialisieren und diese abfragen, ohne sie vorher zu f\u00fcllen<\/p>\n Dies gibt scheinbar eine leere Zeichenkette im Direktfenster aus. Also auch hier die Gegenprobe:<\/p>\n Jetzt probieren wir mal etwas Verr\u00fccktes:<\/p>\n Dies liefert:<\/p>\n Aber wie kann eine Variable gleichzeitig den Wert einer leeren Zeichenkette („“<\/b>) und 0 <\/b>aufweisen Dahinter steckt etwas mehr: Eine Variant<\/b>-Variable wird n\u00e4mlich nicht etwa gleichzeitig mit den Werten „“ <\/b>und 0 <\/b>initialisiert und gibt sich je nach Anforderung als das eine oder andere aus.<\/p>\n Nein: Eine Variant<\/b>-Variable wird mit dem Wert Empty <\/b>initialisiert, und Empty <\/b>liefert mal die leere Zeichenkette und mal den Wert 0<\/b>!<\/p>\n Deswegen k\u00f6nnen Sie auch testen, ob eine Variant-Variable noch leer ist, indem Sie diese einfach mit Empty <\/b>vergleichen:<\/p>\n Wenn Sie bereits einmal mit Objekten programmiert haben, wissen Sie, dass diese, wenn sie nicht initialisiert wurden, den Wert Nothing <\/b>enthalten. Das kann beispielsweise passieren, wenn Sie mit der Microsoft XML-Bibliothek arbeiten und mit der SelectSingleNode<\/b>-Funktion eines der Elemente referenzieren wollen (Verweis auf die Bibliothek Microsoft XML, x.0 <\/b>erforderlich):<\/p>\n Diese Prozedur gibt Folgendes im Direktfenster aus:<\/p>\n \u00e4ndern Sie die vorletzte Zeile wie folgt:<\/p>\n Dies liefert den Fehler aus Bild 7. Das Element unterelement <\/b>ist zwar vorhanden, aber es kann nicht in der ersten Ebene gefunden werden. Wie k\u00f6nnen wir diesen Fehler verhindern Nat\u00fcrlich, indem wir den korrekten XPath-Ausdruck eintragen (hier beispielsweise test\/unterelement<\/b>).<\/p>\n Bild 7: Die Objektvariable wurde nicht zugewiesen.<\/span><\/b><\/p>\n Aber manchmal sind erwartete Elemente ja auch einfach nicht vorhanden. Dann pr\u00fcfen wir einfach nach der Zuweisung, ob objNode <\/b>ein Objekt enth\u00e4lt!<\/p>\n Die folgende Variante gibt den Inhalt des Elements aus, wenn dieses gefunden wurde (Not objNode Is Nothing<\/b>). Anderenfalls erscheint der Text Nicht gefunden.<\/b>:<\/p>\n Mit der Eigenschaft Nothing <\/b>und dem Vergleich \u00fcber den Vergleichsoperator Is <\/b>k\u00f6nnen Sie also ermitteln, ob einer Objektvariablen ein Objekt zugewiesen wurde.<\/p>\n K\u00f6nnen wir auch eine Variant<\/b>-Variable mit Nothing <\/b>vergleichen Ja, aber nur, wenn dieser auch mit Set <\/b>ein Objekt zugewiesen wurde (oder auch eben nicht). Auf das Beispiel mit dem XML-Element bezogen w\u00fcrde dies bedeuten, dass wir statt des Datentyps IXMLDOMNode <\/b>einfach Variant <\/b>angeben:<\/p>\n Wichtig ist, dass wir versuchen, dieser Variablen ein Objekt mit der Set<\/b>-Methode zuweisen. Damit k\u00f6nnen wir nun mit objNode Is Nothing <\/b>pr\u00fcfen, ob objNode <\/b>ein Objekt referenziert.<\/p>\n Mit Empty <\/b>k\u00f6nnen wir diese Variant<\/b>-Variable nun nicht mehr vergleichen:<\/p>\n Dies liefert den Fehler aus Bild 8. Allerdings auch nur, nachdem wir bereits versucht haben, der Variablen mit Set ein Objekt zuzuweisen! Wenn wir diese Bedingung vor der Set<\/b>-Anweisung unterbringen, liefert sie die erwartete Antwort. Eine Variant<\/b>-Variable wird also erst durch die Set<\/b>-Anweisung, ob erfolgreich oder nicht, zu einer Objekt-Variablen. Sie k\u00f6nnen den Datentyp allerdings auch wieder ver\u00e4ndern, indem Sie varNode<\/b> beispielsweise einen String zuweisen:<\/p>\n Bild 8: Fehlermeldung beim Test einer Objekt-Variant-Variablen auf Empty<\/span><\/b><\/p>\n Eine letzte Funktion, die wir uns in diesem Zusammenhang ansehen wollen, ist die Funktion IsMissing<\/b>. Wenn Sie VBA-Prozeduren oder -Funktionen programmieren, k\u00f6nnen Sie am Ende einen oder mehrere optionale Parameter angeben. Das sieht dann etwas wie folgt aus:<\/p>\n Die Prozedur pr\u00fcft, ob der optionale Parameter \u00fcbergeben wurde oder nicht. Falls nicht, erscheint der Text var ist leer.<\/b>, sonst der entsprechende Inhalt. Mit der folgenden Prozedur testen wir dies f\u00fcr einen nicht \u00fcbergebenen Parameter:<\/p>\n Und hier noch die Variante mit Parameter:<\/p>\n Wichtig ist in diesem Zusammenhang, dass der Parameter den Datentyp Private Sub <\/span>cmdSpeichern_Click()\n On Error Resume Next<\/span>\n RunCommand acCmdSaveRecord\n Select Case Err.Number\n Case <\/span>0, 2501\n Case Else<\/span>\n MsgBox<\/span> \"Fehler \" & Err.Number & \" \" _\n & Err.Description\n End Select<\/span>\n On Error GoTo<\/span> 0\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_BeforeUpdate(Cancel As Integer<\/span>)\n If <\/span>Me!Nachname = \"\" Then<\/span>\n MsgBox<\/span> \"Der Nachname ist eine leere Zeichenkette.\", \u00b5 \n vbOKOnly\n Me!Nachname.SetFocus\n Cancel = True<\/span>\n End If<\/span>\nEnd Sub<\/span><\/pre>\nDie Access IsNull()-Funktion<\/h2>\n
...\nIf <\/span>IsNull(Me!Nachname) Then<\/span>\n MsgBox<\/span> \"Der Nachname ist Null.\", vbOKOnly\n Me!Nachname.SetFocus\n Cancel = True<\/span>\nEnd If<\/span>\n...<\/pre>\n![\"Es](\"..\/fileadmin\/_temp_\/2017_06\/pic_1110_002.png\")
<\/p>\n![\"Einstellung](\"..\/fileadmin\/_temp_\/2017_06\/pic_1110_003.png\")
<\/p>\n![\"Eingabe](\"..\/fileadmin\/_temp_\/2017_06\/pic_1110_004.png\")
<\/p>\nIf <\/span>Me!Nachname = \"\" Or IsNull(Me!Nachname) Then<\/span>\n MsgBox<\/span> \"Der Nachname ist Null oder eine leere Zeichenkette.\", vbOKOnly\n Me!Nachname.SetFocus\n Cancel = True<\/span>\nEnd If<\/span><\/pre>\nDie Nz()-Funktion<\/h2>\n
If <\/span>Nz(Me!Nachname, \"\") = \"\" Then<\/span>\n MsgBox<\/span> \"Der Nachname ist Null oder eine leere Zeichenkette.\", vbOKOnly\n Me!Nachname.SetFocus\n Cancel = True<\/span>\nEnd If<\/span><\/pre>\nSELECT 0, \"<Ausw\u00e4hlen>\" \nFROM tblAnreden \nUNION \nSELECT [tblAnreden].[AnredeID], [tblAnreden].[Anrede] \nFROM tblAnreden;<\/pre>\n
![\"Ein](\"..\/fileadmin\/_temp_\/2017_06\/pic_1110_005.png\")
<\/p>\nPrivate Sub <\/span>cmdSpeichern_Click()\n ...\n Select Case Err.Number\n Case <\/span>2501, 3201\n ...\nEnd Sub<\/span><\/pre>\n If <\/span>IsNull(Me.AnredeID) Then<\/span>\n MsgBox<\/span> \"W\u00e4hlen Sie eine Anrede aus.\", vbOKOnly\n Me!AnredeID.SetFocus\n Cancel = True<\/span>\n End If<\/span><\/pre>\nIf <\/span>Nz(Me!AnredeID, 0) = 0 Then<\/span>\n MsgBox<\/span> \"W\u00e4hlen Sie eine Anrede aus.\", vbOKOnly\n Me!AnredeID.SetFocus\n Me!AnredeID.Dropdown\n Cancel = True<\/span>\nEnd If<\/span><\/pre>\nIf <\/span>Nz(Me!AnredeID, 0) = 0 Then<\/span><\/pre>\nIf <\/span>Nz(Me!AnredeID) = 0 Then<\/span>\n...<\/pre>\nNull in Variant-Variablen<\/h2>\n
Public Sub <\/span>VariantNull()\n Dim <\/span>strTest As String<\/span>\n Dim <\/span>var As Variant<\/span>\n strTest = \"\"\n strTest = 123\n strTest = Null\n var = \"\"\n var = 123\n var = Null\nEnd Sub<\/span><\/pre>\n![\"Fehler](\"..\/fileadmin\/_temp_\/2017_06\/pic_1110_006.png\")
<\/p>\nLeere Variant-Variablen<\/h2>\n
Public Sub <\/span>Initialisieren()\n Dim <\/span>strTest As String<\/span>\n Dim <\/span>intTest As Integer<\/span>\n Debug.Print<\/span> strTest\n Debug.Print<\/span> intTest\nEnd Sub<\/span><\/pre>\n (leere Zeichenkette)\n0<\/pre>\n
Debug.Print<\/span> strTest = \"\"<\/pre>\nPublic Sub <\/span>VariantInitialisieren()\n Dim <\/span>var As Variant<\/span>\n Debug.Print<\/span> var\nEnd Sub<\/span><\/pre>\nDebug.Print<\/span> var = \"\"\n Wahr<\/pre>\nPublic Sub <\/span>VariantInitialisieren()\n Dim <\/span>var As Variant<\/span>\n Debug.Print<\/span> var = \"\"\n Debug.Print<\/span> var = 0\nEnd Sub<\/span><\/pre>\nWahr\nWahr<\/pre>\n
Public Sub <\/span>VariantEmpty()\n Dim <\/span>var As Variant<\/span>\n Debug.Print<\/span> var = Empty\nEnd Sub<\/span><\/pre>\nIst Empty gleich Nothing<\/h2>\n
Public Sub <\/span>XMLNothing()\n Dim <\/span>objXML As <\/span>MSXML2.DOMDocument60\n Dim <\/span>objNode As <\/span>MSXML2.IXMLDOMNode\n Set<\/span> objXML = New<\/span> MSXML2.DOMDocument60\n objXML.loadXML (\"<test><unterelement \/><\/test>\")\n Set<\/span> objNode = objXML.selectSingleNode(\"test\")\n Debug.Print<\/span> objNode.XML\nEnd Sub<\/span><\/pre>\n<test><unterelement\/><\/test><\/pre>\n
Set<\/span> objNode = objXML.selectSingleNode(\"unterelement\")<\/pre>\n![\"Die](\"..\/fileadmin\/_temp_\/2017_06\/pic_1110_007.png\")
<\/p>\nSet<\/span> objNode = objXML.selectSingleNode(\"unterelement\")\nIf <\/span>Not<\/span> objNode Is Nothing Then<\/span>\n Debug.Print<\/span> objNode.XML\nElse<\/span>\n Debug.Print<\/span> \"Nicht gefunden.\"\nEnd If<\/span><\/pre>\nVariant und Nothing<\/h2>\n
Dim <\/span>varNode As Variant<\/span><\/pre>\nIf <\/span>Not<\/span> varNode = Empty Then<\/span>\n ...\nEnd If<\/span><\/pre>\n![\"Fehlermeldung](\"..\/fileadmin\/_temp_\/2017_06\/pic_1110_008.png\")
<\/p>\nvarNode = \"bla\"\nIf <\/span>Not<\/span> varNode = Empty Then<\/span>\n Debug.Print<\/span> \"varNode ist Empty\"\nEnd If<\/span><\/pre>\nOptionale Parameter mit IsMissing pr\u00fcfen<\/h2>\n
Public Sub <\/span>VariantIsMissing(Optional<\/span> var As Variant<\/span>)\n If <\/span>IsMissing(var) Then<\/span>\n Debug.Print<\/span> \"var ist leer.\"\n Else<\/span>\n Debug.Print<\/span> \"var = \" & var\n End If<\/span>\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>Test_VariantIsMissingOhne()\n VariantIsMissing\nEnd Sub<\/span><\/pre>\nPublic Sub <\/span>Test_VariantIsMissingMit()\n VariantIsMissing \"Optionaler Parameter\"\nEnd Sub<\/span><\/pre>\n