{"id":55000508,"date":"2021-02-01T00:00:00","date_gmt":"2021-02-01T00:00:00","guid":{"rendered":"http:\/\/access-basics.de\/508"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Access_VBA_IfThen","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Access_VBA_IfThen.html","title":{"rendered":"Access VBA: If…Then"},"content":{"rendered":"

\"\"<\/p>\n

In der Programmiersprache VBA für Access gibt es verschiedene Bedingungsarten, und zwar die VBA If Then<\/b>-Bedingung und die Select Case<\/b>-Bedingung. Die erste schauen wir uns in diesem Artikel im Detail an. Dabei betrachten wir auch, dass mit If…Then <\/b>nicht nur eine einzige Bedingung abgefragt werden kann (sogar in einer Zeile), sondern auch nach mehreren Bedingungen unterschieden werden kann. Dazu verwendet man den ElseIf<\/b>– und den Else<\/b>-Zweig.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 2101_VBA_IfThen.accdb<\/b>.<\/p>\n

If…Then als Einzeiler unter VBA<\/h2>\n

Die einfachste Variante der If…Then<\/b>-Bedingung können Sie als Einzeiler schreiben. Die Syntax lautet in diesem Fall wie folgt:<\/p>\n

If <\/span> Then<\/span> <\/pre>\n
Üblicherweise denkt man, dass  <\/b>entweder den Wert True <\/b>oder False <\/b>zurückliefern soll. True <\/b>ist aber nur eine Konstante für den Zahlenwert -1 <\/b>und False <\/b>für den Zahlenwert 0<\/b>. Sie können für  <\/b>allerdings auch andere Zahlenwerte als -1 <\/b>oder 0 <\/b>übergeben. Dabei können wir zusammenfassen, dass nur 0 <\/b>dem Wert False <\/b>entspricht und alle anderen Zahlenwerte True<\/b>. Die Bedingung ist also nur in folgenden Fällen nicht erfüllt:<\/p>\n
If <\/span>False<\/span> Then<\/span> ... 'False<\/span>\r\nIf <\/span>0 Then<\/span> ... 'False<\/span><\/pre>\n
Das gilt natürlich auch für weitere als Bedingung verwendete Konstanten oder Variablen, die den Wert 0 <\/b>enthalten.<\/p>\n
In allen anderen Fällen ist die Bedingung erfüllt:<\/p>\n
If <\/span>True<\/span> Then<\/span> ... 'True<\/span>\r\nIf <\/span>-1 Then<\/span> ... 'True<\/span>\r\nIf <\/span>1 Then<\/span> ... 'True<\/span><\/pre>\n
Hinter die If…Then<\/b>-Anweisung schreiben Sie dann einfach den auszuführenden Befehl, zum Beispiel:<\/p>\n
Dim <\/span>bolMeldung As Boolean<\/span>\r\nbolMeldung = True<\/span>\r\nIf <\/span>bolMeldung = True<\/span> Then<\/span> MsgBox<\/span> \"Meldung\"<\/pre>\n
Vereinfachung für boolsche Ausdrücke<\/h2>\n
An dieser Stelle wollen wir gleich eine Vereinfachung einführen. Statt bolMeldung = True <\/b>können Sie auch einfach bolMeldung <\/b>als Bedingung angeben – die Variable enthält ja den Wert True <\/b>oder False<\/b>:<\/p>\n
If <\/span>bolMeldung Then<\/span> MsgBox<\/span> \"Meldung\"<\/pre>\n
bolMeldung <\/b>enthält in diesem Fall bereits einen Boolean<\/b>-Wert, den die If…Then<\/b>-Bedingung auswerten kann.<\/p>\n
If…Then als mehrzeiliges VBA-Konstrukt<\/h2>\n
Sie können in der einzeiligen Version der If…Then<\/b>-Bedingung zwar auch mehrere durch einen Doppelpunkt getrennte Befehle angeben:<\/p>\n
If <\/span>bolMeldung Then<\/span> MsgBox<\/span> \"Befehl1\": MsgBox<\/span> \"Befehl2\"<\/pre>\n
Dieser Code ist allerdings schlecht lesbar, weshalb wir die typische Schreibweise der If…Then<\/b>-Bedingung verwenden. Diese hat die folgende Syntax:<\/p>\n
If <\/span> Then<\/span>\r\n    \r\nEnd If<\/span><\/pre>\n
Die einzeilige If…Then<\/b>-Bedingung von oben formulieren wir wie folgt, was deutlich lesbarer ist:<\/p>\n
If <\/span>bolMeldung Then<\/span>\r\n    MsgBox<\/span> \"Erster Befehl\"\r\n    MsgBox<\/span> \"Zweiter Befehl\"\r\nEnd If<\/span><\/pre>\n
VBA If…Then mit ElseIf für weitere Bedingungen<\/h2>\n
Mit dem Schlüsselwort ElseIf <\/b>erweitern wir eine If…Then<\/b>-Bedingung um weitere Bedingungen. ElseIf <\/b>wird wie folgt in das Konstrukt eingearbeitet:<\/p>\n
If <\/span> Then<\/span>\r\n    \r\nElse<\/span>If  Then\r\n   \r\nEnd If<\/span><\/pre>\n
Wir können damit also gezielt mehr als eine Bedingung prüfen. Im folgenden Beispiel prüfen wir im If…Then<\/b>-Teil, ob intZahl<\/b> den Wert 1 <\/b>hat. Ist das nicht der Fall, wird die Bedingung im ElseIf<\/b>-Teil untersucht. Hier prüft die Prozedur, ob intZahl <\/b>den Wert 2 <\/b>enthält. Falls ja, wird die in diesem Teil angegebene Meldung ausgegeben. Falls nicht, geschieht gar nichts:<\/p>\n
Public Sub <\/span>ZahlPruefen(intZahl As Integer<\/span>)\r\n    If <\/span>intZahl = 1 Then<\/span>\r\n        MsgBox<\/span> \"Zahl ist 1\"\r\n    Else<\/span>If intZahl = 2 Then\r\n        MsgBox<\/span> \"Zahl ist 2\"\r\n    End If<\/span>\r\nEnd Sub<\/span><\/pre>\n
Sie können beliebig viele ElseIf<\/b>-Zweige in diesem Konstrukt unterbringen. Wenn Sie intZahl <\/b>auch noch auf den Wert 3 <\/b>prüfen wollen, fügen Sie einen weiteren Zweig mit der entsprechenden MsgBox<\/b>-Anweisung hinzu:<\/p>\n
If <\/span>intZahl = 1 Then<\/span>\r\n    MsgBox<\/span> \"Zahl ist 1\"\r\nElse<\/span>If intZahl = 2 Then\r\n    MsgBox<\/span> \"Zahl ist 2\"\r\nElse<\/span>If intZahl = 3 Then\r\n    MsgBox<\/span> \"Zahl ist 3\"\r\nEnd If<\/span><\/pre>\n
VBA If…Then mit Else für alle anderen Fälle<\/h2>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t
\n\n\t\t\n\t\t