Access-Formulare leben traditionell von ihrer Datensatzquelle. Du weist dem Formular eine Tabelle oder eine Abfrage zu, und Access kümmert sich um alles Weitere – Navigieren, Bearbeiten, Speichern, Löschen. Das funktioniert hervorragend, solange die Daten in einer Access-Datenbank oder in verknüpften Tabellen liegen. Arbeitest Du jedoch mit einem SQL Server und möchtest den Datenzugriff ausschließlich über gespeicherte Prozeduren abwickeln – etwa, weil Du die Datenbanklogik serverseitig kapseln, Berechtigungen feingranular steuern oder die Performance optimieren willst -, stößt dieses Modell an seine Grenzen. Gespeicherte Prozeduren lassen sich nicht als Datensatzquelle eines Formulars zuweisen, und die klassischen Access-Mechanismen zum Speichern greifen nicht. In diesem Artikel zeigen wir Dir, wie Du ein vollständiges CRUD-Formular mit Übersicht und Detailansicht baust, das komplett ohne Datensatzquelle auskommt. Stattdessen füllen wir die Unterformular-Recordsets und die Detailfelder zur Laufzeit mit dem Ergebnis gespeicherter Prozeduren, die wir über den Wrapper aus dem Artikel “ADODB: Gespeicherte Prozeduren einfach aufrufen” (www.vbentwickler.de\/505) aufrufen. Das Ergebnis ist eine Formularoberfläche, die sich vom Benutzer aus anfühlt wie ein klassisches Access-Formular, intern aber ausschließlich mit serverseitigen Prozeduren kommuniziert.<\/b><\/p>\n
Beispieldatenbank<\/h2>\n
Die Beispiele dieses Artikels findest Du in der Beispieldatenbank ADODB_GespeicherteProzeduren.accdb<\/b>. Die zugehörige SQL Server-Datenbank heißt Test_GespeicherteProzeduren<\/b> und enthält die beiden Tabellen tblAbteilung<\/b> und tblMitarbeiter<\/b>.<\/p>\n
Das Skript zum Anlegen der Tabellen, der Testdaten und der gespeicherten Prozeduren findest Du im Modul mdlSQLServerDB<\/b> als auskommentierten T-SQL-Code, den Du direkt in ein Abfragefenster des SQL Server Management Studio kopieren kannst.<\/p>\nPraxiseinsatz im Übersichtsformular<\/h2>\n
Damit der Wrapper mehr sein kann als ein theoretisches Konstrukt, verbinden wir ihn nun mit einem vollständigen Access-Formular. Das Formular frmMitarbeiterUebersicht_Parameter<\/b> enthält ein Unterformular in Datenblattansicht, das alle Mitarbeiter auflistet, sowie vier Schaltflächen zum Neuanlegen, Bearbeiten, Löschen und Aktualisieren (siehe Bild 1).<\/p>\n
![\"Formular](\"..\/fileadmin\/_temp_\/2026_03\/pic_506_001.png\")
<\/p>\n
Bild 1: Formular zur Anzeige einer Mitarbeiter-Übersicht<\/span><\/b><\/p>\n Das Übersichtsformular selbst hat keine Datensatzquelle. Stattdessen bekommt das Unterformular sfmMitarbeiterUebersicht_Parameter<\/b> das Recordset erst zur Laufzeit zugewiesen – nämlich aus dem Rückgabewert unserer Funktion ADODB_GetRecordset<\/b>.<\/p>\n Diese Zuweisung passiert in der Prozedur MitarbeiterAktualisieren<\/b> (siehe Listing 1).<\/p>\n Listing 1: Recordset des Unterformulars setzen<\/span><\/b><\/p>\n Zwei Zuweisungen – mehr ist nicht nötig. Die erste Zeile weist einem Kombinationsfeld cboAbteilungID<\/b> im Datenblatt ein Recordset der Abteilungen zu, damit dort statt der nackten AbteilungID<\/b> die entsprechende Abteilungsbezeichnung angezeigt werden kann.<\/p>\n Die zweite Zeile weist dem Unterformular das Recordset der Mitarbeiter zu. Weil wir ADODB_GetRecordset<\/b> ohne Parameter aufrufen, werden alle Mitarbeiter zurückgeliefert.<\/p>\n An einer Stelle müssen wir vorsichtig sein: Wir können die Prozedur MitarbeiterAktualisieren<\/b> nicht direkt im Form_Load<\/b>– oder Form_Open<\/b>-Ereignis aufrufen, weil das Unterformular zu diesem Zeitpunkt noch nicht vollständig initialisiert ist.<\/p>\n Stattdessen setzen wir im Form_Load<\/b>-Ereignis das TimerInterval<\/b> auf 100<\/b> Millisekunden und rufen die Aktualisierung dann im Form_Timer<\/b>-Ereignis auf, wobei wir den Timer gleich wieder mit dem Wert 100 <\/b>deaktivieren:<\/p>\n Die Schaltfläche cmdAktualisieren<\/b> ruft einfach wieder MitarbeiterAktualisieren<\/b> auf und lädt so die Daten neu vom SQL Server.<\/p>\n Die Schaltfläche cmdNeu<\/b> öffnet das Detailformular frmMitarbeiterDetail_Parameter<\/b> als Dialog. Nach dem Schließen des Dialogs liest sie die ID des neu angelegten Datensatzes aus, aktualisiert die Liste und positioniert den Datensatzmarkierer auf dem neuen Eintrag (siehe Listing 2).<\/p>\n Listing 2: Neuen Mitarbeiter anlegen<\/span><\/b><\/p>\n Das WindowMode:=acDialog<\/b> sorgt dafür, dass das Detailformular modal geöffnet wird und der Code an dieser Stelle stehenbleibt, bis das Formular entweder geschlossen oder unsichtbar gemacht wird. Die Hilfsfunktion IstFormularGeoeffnet<\/b>, die im Modul mdlTools<\/b> liegt, prüft über SysCmd<\/b>, ob das Detailformular noch geöffnet ist – dann hat der Benutzer gespeichert (das Detailformular setzt in diesem Fall nur Me.Visible = False<\/b>) und wir lesen die vergebene ID aus.<\/p>\n Die Schaltfläche cmdBearbeiten<\/b> arbeitet nach demselben Prinzip, übergibt dem Detailformular aber zusätzlich die zu bearbeitende ID als OpenArgs<\/b> (siehe Listing 3).<\/p>\n Listing 3: Mitarbeiter bearbeiten<\/span><\/b><\/p>\n Die Schaltfläche cmdLoeschen<\/b> schließlich ist die kürzeste von allen, weil wir hier direkt unsere Wrapper-Funktion ADODB_ExecDelete<\/b> einsetzen können (siehe Listing 4).<\/p>\n Listing 4: Mitarbeiter löschen<\/span><\/b><\/p>\n Ein einziger Funktionsaufruf, bei dem der Name der gespeicherten Prozedur sowie die zu löschende ID übergeben werden. Die Anzahl der betroffenen Datensätze kommt als Rückgabewert zurück. Ist sie größer 0<\/b>, war das Löschen erfolgreich und wir aktualisieren die Liste.<\/p>\n Das Detailformular frmMitarbeiterDetail_Parameter<\/b> hat ebenfalls keine Datensatzquelle. Seine Textfelder haben genau die Namen der Felder in der Tabelle tblMitarbeiter<\/b>, also MitarbeiterID<\/b>, AbteilungID<\/b>, Vorname<\/b>, Nachname<\/b>, Email<\/b>, Eintrittsdatum<\/b> und Gehalt<\/b> (siehe Bild 2).<\/p>\n Bild 2: Formular zur Anzeige der Mitarbeiter-Details<\/span><\/b><\/p>\n Beim Öffnen des Formulars geschehen zwei Dinge: Zum einen weisen wir dem Kombinationsfeld AbteilungID<\/b> die Liste der Abteilungen zu. Zum anderen prüfen wir, ob das Formular mit einer ID als OpenArgs<\/b> geöffnet wurde. Wenn ja, holen wir den zugehörigen Datensatz mit ADODB_GetRecordset<\/b> und füllen die Felder des Formulars mit den Werten (siehe Listing 5).<\/p>\n Listing 5: Detailformular öffnen und Daten laden<\/span><\/b><\/p>\n Interessant ist hier der Weg, wie die Daten aus dem Recordset in die Formularsteuerelemente gelangen.<\/p>\n Statt jedes Feld einzeln per Me.Vorname = rst!Vorname<\/b>, Me.Nachname = rst!Nachname<\/b> und so weiter zu befüllen, durchlaufen wir alle Felder des Recordsets mit For Each<\/b>. Zu jedem Feld suchen wir über die Hilfsfunktion GetControl<\/b>, ob es ein Steuerelement mit dem gleichen Namen gibt, und weisen in diesem Fall den Wert zu.<\/p>\n Das Prinzip funktioniert, weil die Steuerelemente des Formulars so benannt sind wie die Felder in der gespeicherten Prozedur – das ist allerdings auch zwingende Voraussetzung für die Funktionalität.<\/p>\n Du kannst das Formular später einfach um zusätzliche Felder erweitern, ohne den Form_Open<\/b>-Code anfassen zu müssen – solange das Feld in der SELECT<\/b>-Prozedur enthalten ist und das Steuerelement den gleichen Namen trägt, wird es automatisch befüllt.<\/p>\n Die Hilfsfunktion GetControl<\/b> ist denkbar kurz. Sie versucht, ein Steuerelement über seinen Namen anzusprechen, und fängt mit On Error Resume Next<\/b> den Fehler ab, der auftritt, wenn das Steuerelement nicht existiert:<\/p>\n Gegebenenfalls kann man die Funktion GetControl <\/b>noch so anpassen, dass sie auch Präfixe von Steuerelementen berücksichtigt, also beispielsweise txt<\/b>, cbo <\/b>oder chk<\/b>.<\/p>\n Die Schaltfläche cmdSpeichern<\/b> entscheidet anhand des Feldes MitarbeiterID<\/b>, ob ein neuer Datensatz angelegt oder ein bestehender aktualisiert werden soll. Ist MitarbeiterID<\/b> leer, rufen wir ADODB_ExecInsert<\/b> auf, andernfalls ADODB_ExecUpdate<\/b> (siehe Listing 6).<\/p>\n Listing 6: Speichern des Datensatzes<\/span><\/b><\/p>\n Nach erfolgreichem Speichern setzen wir Me.Visible = False<\/b>. Das Formular bleibt damit zwar geladen, aber unsichtbar – gerade so lange, bis das aufrufende Übersichtsformular die ID ausgelesen und das Detailformular schließt. Im Fall eines neuen Datensatzes schreiben wir vorher noch die vom SQL Server zurückgelieferte ID in das Formularfeld MitarbeiterID<\/b>, damit das Übersichtsformular darauf zugreifen kann.<\/p>\n Die Schaltfläche cmdAbbrechen<\/b> schließt das Formular einfach mit DoCmd.Close<\/b>:<\/p>\n Damit das Übersichtsformular erkennt, ob der Benutzer abgebrochen hat, nutzen wir den Umstand aus, dass beim Abbrechen das Formular komplett geschlossen wird – dann liefert IstFormularGeoeffnet<\/b> den Wert False<\/b>. Nur beim Speichern wird das Formular lediglich unsichtbar gemacht und bleibt geladen.<\/p>\n Bild 3 zeigt die beiden Formulare in Aktion.<\/p>\n Bild 3: Die Beispielformulare im praktischen Einsatz<\/span><\/b><\/p>\n Mit dem Wrapper-Modul mdlADODB_Parameter<\/b> reduzierst Du den Aufwand für den Aufruf einer gespeicherten Prozedur auf eine einzige Zeile Code. Du musst Dich nicht mehr um das Command<\/b>-Objekt, die einzelnen Parameter oder deren Datentypen kümmern – Parameters.Refresh<\/b> erledigt das automatisch, indem es die Definitionen direkt vom SQL Server holt. Die Werte übergibst Du einfach als Liste in der Reihenfolge, wie sie in der Prozedur definiert sind.<\/p>\n Besonders elegant wird der Ansatz, wenn Du ihn mit Formularen kombinierst. Das gezeigte Mitarbeiter-Formular kommt ohne Datensatzquelle aus, nutzt für alle Datenzugriffe ausschließlich gespeicherte Prozeduren und arbeitet trotzdem flüssig mit Datenblatt, Kombinationsfeldern und einem Detail-Dialog zusammen. Der gesamte Datenzugriff erfolgt serverseitig – und damit performanter, sicherer und leichter wartbar, als wenn SQL-Strings dynamisch im VBA-Code zusammengebaut würden.<\/p>\n Enthaltene Beispieldateien:<\/p>\n ADODB_FormulareMitGespeichertenProzeduren.accdb<\/p>\nPrivate Sub <\/span>MitarbeiterAktualisieren()\r\n With<\/span> Me.sfmMitarbeiterUebersicht.Form\r\n Set<\/span> .cboAbteilungID.Recordset = ADODB_GetRecordset(\"spAbteilungenSelect\")\r\n Set<\/span> .Recordset = ADODB_GetRecordset(\"spMitarbeiterSelectNachMitarbeiterID\")\r\n End With<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Load()\r\n Me.TimerInterval = 100\r\nEnd Sub<\/span>\r\nPrivate Sub <\/span>Form_Timer()\r\n Me.TimerInterval = 0\r\n Call<\/span> MitarbeiterAktualisieren\r\nEnd Sub<\/span><\/pre>\nNeuen Datensatz anlegen<\/h2>\n
Private Sub <\/span>cmdNeu_Click()\r\n Dim <\/span>strForm As String<\/span>\r\n Dim <\/span>lngMitarbeiterID As Long<\/span>\r\n strForm = \"frmMitarbeiterDetail_Parameter\"\r\n DoCmd.OpenForm strForm, WindowMode:=acDialog\r\n If <\/span>IstFormularGeoeffnet(strForm) Then<\/span>\r\n lngMitarbeiterID = Nz(Forms(strForm).Form.MitarbeiterID, 0)\r\n DoCmd.Close acForm, strForm\r\n Call<\/span> MitarbeiterAktualisieren\r\n Me.sfmMitarbeiterUebersicht.Form .Recordset.Find \"MitarbeiterID = \" & lngMitarbeiterID\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nBearbeiten und Löschen<\/h2>\n
Private Sub <\/span>cmdBearbeiten_Click()\r\n Dim <\/span>strForm As String<\/span>\r\n Dim <\/span>lngMitarbeiterID As Long<\/span>\r\n lngMitarbeiterID = Me.sfmMitarbeiterUebersicht.Form.MitarbeiterID\r\n strForm = \"frmMitarbeiterDetail_Parameter\"\r\n DoCmd.OpenForm strForm, WindowMode:=acDialog, OpenArgs:=lngMitarbeiterID\r\n If <\/span>IstFormularGeoeffnet(strForm) Then<\/span>\r\n DoCmd.Close acForm, strForm\r\n Call<\/span> MitarbeiterAktualisieren\r\n Me.sfmMitarbeiterUebersicht.Form.Recordset.Find \"MitarbeiterID = \" & lngMitarbeiterID\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdLoeschen_Click()\r\n Dim <\/span>lngMitarbeiterID As Long<\/span>\r\n lngMitarbeiterID = Me.sfmMitarbeiterUebersicht.Form.MitarbeiterID\r\n If <\/span>ADODB_ExecDelete(\"spMitarbeiterDelete\", lngMitarbeiterID) > 0 Then<\/span>\r\n MsgBox<\/span> \"Mitarbeiter gelöscht.\", vbOKOnly + vbInformation, \"Mitarbeiter gelöscht\"\r\n Call<\/span> MitarbeiterAktualisieren\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nDas Detailformular<\/h2>\n
![\"Formular](\"..\/fileadmin\/_temp_\/2026_03\/pic_506_002.png\")
<\/p>\nPrivate Sub <\/span>Form_Open(Cancel As Integer<\/span>)\r\n Dim <\/span>rst As <\/span>ADODB.Recordset\r\n Dim <\/span>lngMitarbeiterID As Long<\/span>\r\n Dim <\/span>fld As <\/span>ADODB.Field\r\n Dim <\/span>ctl As <\/span>Access.Control\r\n Set<\/span> Me.AbteilungID.Recordset = ADODB_GetRecordset(\"spAbteilungenSelect\")\r\n lngMitarbeiterID = Nz(Me.OpenArgs, 0)\r\n If <\/span>Not<\/span> lngMitarbeiterID = 0 Then<\/span>\r\n Set<\/span> rst = ADODB_GetRecordset(\"spMitarbeiterSelectNachMitarbeiterID\", lngMitarbeiterID)\r\n For Each fld In rst.Fields\r\n Set<\/span> ctl = GetControl(Me, fld.Name)\r\n If <\/span>Not<\/span> ctl Is Nothing Then<\/span>\r\n ctl.Value = fld.Value\r\n End If<\/span>\r\n Next<\/span> fld\r\n Set<\/span> rst = Nothing\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPublic Function <\/span>GetControl(frm As <\/span>Form, _\r\n strField As String<\/span>) As <\/span>Control\r\n Dim <\/span>ctl As <\/span>Access.Control\r\n On Error Resume Next<\/span>\r\n Set<\/span> ctl = frm.Controls(strField)\r\n If <\/span>Not<\/span> ctl Is Nothing Then<\/span>\r\n Set<\/span> GetControl = ctl\r\n Exit Function<\/span>\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nSpeichern und Abbrechen<\/h2>\n
Private Sub <\/span>cmdSpeichern_Click()\r\n Dim <\/span>lngMitarbeiterID As Long<\/span>\r\n If <\/span>Not<\/span> IsNull(Me.MitarbeiterID) Then<\/span>\r\n If ADODB_ExecUpdate(\"spMitarbeiterUpdate\", Me.MitarbeiterID, Me.AbteilungID, Me.Vorname, Me.Nachname, _\r\n Me.Email, Me.Eintrittsdatum, Me.Gehalt) > 0 Then\r\n Me.Visible = False<\/span>\r\n Else<\/span>\r\n MsgBox<\/span> \"Speichern fehlgeschlagen.\", vbCr<\/span>itical, \"Speichern fehlgeschlagen\"\r\n End If<\/span>\r\n Else<\/span>\r\n lngMitarbeiterID = ADODB_ExecInsert(\"spMitarbeiterInsert\", Me.AbteilungID, Me.Vorname, Me.Nachname, _\r\n Me.Email, Me.Eintrittsdatum, Me.Gehalt)\r\n If <\/span>lngMitarbeiterID > 0 Then<\/span>\r\n Me.MitarbeiterID = lngMitarbeiterID\r\n Me.Visible = False<\/span>\r\n Else<\/span>\r\n MsgBox<\/span> \"Speichern fehlgeschlagen.\", vbCr<\/span>itical, \"Speichern fehlgeschlagen\"\r\n End If<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdAbbrechen_Click()\r\n DoCmd.Close acForm, Me.Name\r\nEnd Sub<\/span><\/pre>\n![\"Die](\"..\/fileadmin\/_temp_\/2026_03\/pic_506_003.png\")
<\/p>\nZusammenfassung und Ausblick<\/h2>\n
Downloads zu diesem Beitrag<\/h2>\n