Statt der MsgBox<\/b>-Anweisung, die hier angegeben ist, können Sie die beim Start Ihrer Anwendung notwendigen Anweisungen einfügen.<\/p>\nStartformular erstellen<\/h2>\n
Wie aber können wir diese VBA-Funktion nun mithilfe eines Formulars aufrufen Dazu erstellen wir als Erstes einmal das benötigte Formular und speichern es unter dem Namen frmStartup<\/b>.<\/p>\n
Dann legen Sie für das Ereignis Bei Laden <\/b>des Formulars den Wert [Ereignisprozedur] <\/b>fest und klicken auf die Schaltfläche mit den drei Punkten (…<\/b>), um die Ereignisprozedur im Klassenmodul des Formulars anzulegen (siehe Bild 1).<\/p>\n
![\"Das](\"..\/fileadmin\/_temp_\/2022_03\/pic_1368_001.png\")
<\/p>\n
<\/p>\n
Bild 1: Das Startformular<\/span><\/b><\/p>\n Im VBA-Editor erscheint die Prozedur, die wir wie folgt ergänzen:<\/p>\n Diese Prozedur ruft nun beim Laden des Formulars unsere Startfunktion auf. Das testen wir, indem Sie das Formular in der Formularansicht anzeigen. Dies sollte zuerst die Meldung anzeigen und erst nach dem Schließen der Meldung das Formular.<\/p>\n Wie sorgen wir nun dafür, dass das Formular beim Starten der Anwendung geöffnet wird Dazu öffnen wir mit dem Ribbonbefehl Datei|Optionen <\/b>den Dialog Access-Optionen<\/b>, wechseln dort zum Bereich Aktuelle Datenbank <\/b>und stellen unter Formular anzeigen <\/b>den Namen des beim Start zu öffnenden Formulars ein (siehe Bild 2).<\/p>\n Bild 2: Festlegen des Startformulars<\/span><\/b><\/p>\n Nun brauchen sie nur noch die Anwendung zu schließen und erneut zu öffnen – schon erscheint zuerst die Meldung, was bedeutet, dass die Startfunktion aufgerufen wurde.<\/p>\n Wenn Sie das Formular nur dazu nutzen wollen, die Funktion Startup() <\/b>zu starten, können Sie auch einen noch direkteren Weg wählen, um die Funktion aufzurufen. Dazu wechseln Sie nochmals zur Entwurfsansicht des Formulars. Statt [Ereignisprozedur] <\/b>können Sie auch direkt den Namen der aufzurufenden Funktion, hier =Startup()<\/b>, eingeben (siehe Bild 3).<\/p>\nPrivate Sub <\/span>Form_Load()\r\n Call<\/span> Startup\r\nEnd Sub<\/span><\/pre>\nFormular als Startformular festlegen<\/h2>\n
![\"Festlegen](\"..\/fileadmin\/_temp_\/2022_03\/pic_1368_002.png\")
<\/p>\nAlternativen zu Ereignisprozedur und Funktion<\/h2>\n
![\"Einstellen](\"..\/fileadmin\/_temp_\/2022_03\/pic_1368_003.png\")
<\/p>\n