Es gibt zwei Elemente, über die man von VBA aus mit Bordmitteln mit dem Benutzer interagieren kann. Die MsgBox-Anweisung liefert ein Meldungsfenster, das man mit verschiedenen Texten, Icons und Schaltflächen ausstatten kann. Die InputBox-Anweisung bietet ein Eingabefenster für einfache Texte an, der auch vorgeben werden kann. Während die InputBox eigentlich recht einfach zu programmieren ist, gibt es dennoch einen Trick, auf den wir in diesem Beitrag eingehen werden. Zusätzlich liefern wir alle Infos, damit Sie die InputBox in Ihren Access-Anwendungen effizient einsetzen können und dem Benutzer die Eingabe notwendiger Daten möglichst einfach gestalten.<\/b><\/p>\n
In Microsoft Access nutzt man eigentlich für jeglichen Austausch von Informationen mit dem Benutzer Formulare. Diese kann man flexibel mit allen notwendigen Steuerelementen ausstatten. Mit der MsgBox<\/b>– und der InputBox<\/b>-Funktion gibt es jedoch zwei Tools, mit denen wir in einigen Fällen um die Programmierung eines Formulars herumkommen können. In diesem Beitrag liegt unser Hauptaugenmerk auf der InputBox<\/b>-Funktion.<\/p>\n
Diese lässt sich eigentlich sehr einfach programmieren. Sie besteht aus dem Befehl InputBox <\/b>sowie einige Parametern, mit denen wir das Aussehen und das Verhalten der InputBox <\/b>festlegen können. Die Parameter lauten:<\/p>\n Die einfachste Form einer InputBox<\/b> erwartet lediglich die Angabe der anzuzeigenden Meldung (siehe Bild 1).<\/p>\n Bild 1: Beispiel für eine einfache InputBox<\/span><\/b><\/p>\n Jegliche Eingabe landet jedoch im Nirwana, da wir keine Variable verwenden, der wir das Ergebnis der InputBox <\/b>zuweisen.<\/p>\n Wenn wir das Ergebnis der Funktion InputBox <\/b>auswerten wollen, müssen wir diese wie eine normale Funktion nutzen und das Ergebnis beispielsweise in eine Variable schreiben. Das sieht wie folgt aus:<\/p>\n Hier öffnen wir die InputBox <\/b>und wenn der Benutzer auf die OK<\/b>-Schaltfläche klickt, landet der eingegebene Text in der Variable strInputBox<\/b>.<\/p>\n Diesen geben wir anschließend im Direktbereich aus.<\/p>\n Mit dem zweiten und dritten Parameter werden der Titel und der Standardwert übergeben:<\/p>\n Wir erhalten dann die InputBox <\/b>aus Bild 2. Klicken wir nun auf OK<\/b>, gibt die InputBox<\/b>-Funktion den aktuell angezeigten Wert zurück – oder den, den der Benutzer stattdessen eingetragen hat.<\/p>\n Bild 2: InputBox mit Titel und Standardwert<\/span><\/b><\/p>\n Um das Ergebnis beim Betätigen der Abbrechen<\/b>-Schaltfläche auswerten zu können, geben wir dieses wie folgt eingefasst in Hochkommata aus:<\/p>\n\n
![\"Beispiel](\"..\/fileadmin\/_temp_\/2025_02\/pic_1539_001.png\")
<\/p>\nErgebnis der InputBox auswerten<\/h2>\n
Dim <\/span>strInputBox As String<\/span>\r\nstrInputBox = InputBox(\"Dies ist eine InputBox.\")\r\nDebug.Print<\/span> strInputBox<\/pre>\nTitel und Standardwert nutzen<\/h2>\n
strInputBox = InputBox(\"Dies ist eine InputBox.\", \"Titel der InputBox\", \"Defaultwert der InputBox\")<\/pre>\n
![\"InputBox](\"..\/fileadmin\/_temp_\/2025_02\/pic_1539_002.png\")
<\/p>\nErgebnis bei Betätigung der Abbrechen-Schaltfläche<\/h2>\n
strInputBox = InputBox(\"Dies ist eine InputBox.\", \"Titel der InputBox\", \"Defaultwert der InputBox\")\r\nDebug.Print<\/span> \"Ergebnis: ''\" & strInputBox & \"''\"<\/pre>\n