<\/p>\n
Für manche Themen gibt es keine kurze, prägnante Überschrift. In diesem Fall wollen wir zeigen, wie Sie einen neuen Datensatz anlegen, der in einer temporären Tabelle im Frontend gespeichert wird, bis er fertiggestellt ist. Erst danach soll er in einem Rutsch in die entsprechende Tabelle im Backend kopiert werden. Dadurch wollen wir verhindern, dass die Verbindung unnötig lange offen gehalten wird, was beim Zugriff vieler Benutzer gleichzeitig die Performance beeinflussen kann.<\/b><\/p>\nBeispiel vorbereiten<\/h2>\n
Wir benötigen ein Frontend und ein Backend, wobei wir uns die Arbeit vereinfachen wollen. Also erstellen wir zunächst das Frontend namens NeuerDSFE.accdb <\/b>(mit FE <\/b>für Frontend) und fügen dieser eine Tabelle namens tblVorlagen <\/b>hinzu. Die Tabelle enthält die drei Felder aus Bild 1. Danach schließen wir die Datenbank und kopieren diese, wobei die neue Datenbank den Namen NeuerDSBE.accdb <\/b>erhalten soll (mit BE <\/b>für Backend).<\/p>\n
![\"Die](\"..\/fileadmin\/_temp_\/2019_03\/pic_1195_001.png\")
<\/p>\n
Bild 1: Die Tabelle tblVorgaenge in der Entwurfsansicht<\/span><\/b><\/p>\n Danach ändern wir den Namen der Tabelle tblVorgaenge <\/b>in tblVorgaengeTemp<\/b>. Außerdem erstellen wir eine Verknüpfung zur Tabelle tblVorgaenge <\/b>der neuen Backend-Datenbank. Dazu rufen wir den Ribbon-Befehl Externe Daten|Importieren und Verknüpfen|Neue Datenquelle|Aus Datenbank|Access <\/b>auf (siehe Bild 2). Die folgenden Schritte sind selbsterklärend: Im Dialog Externe Daten – Access-Datenbank <\/b>wählen Sie über die Durchsuchen<\/b>-Schaltfläche die Backend-Datenbank aus und selektieren die Option zum Erstellen einer Verknüpfung.<\/p>\n Bild 2: Hinzufügen einer Verknüpfung<\/span><\/b><\/p>\n Im danach erscheinenden Dialog Tabellen verknüpfen <\/b>wählen Sie die Tabelle tblVorgaenge <\/b>aus und klicken auf OK<\/b>.<\/p>\n Die Tabelle wird nun verknüpft und erscheint wie in Bild 3 im Navigationsbereich der Frontend-Anwendung.<\/p>\n Bild 3: Die temporäre und die verknüpfte Tabelle<\/span><\/b><\/p>\n Wenn Sie nun die eingebundene Tabelle tblVorgaenge <\/b>öffnen und den Windows Explorer dabei beobachten, stellen Sie fest, dass die Backend-Datenbank die ganze Zeit als geöffnet markiert wird. Das erkennen Sie daran, dass neben der Datei mit der Endung .accdb <\/b>auch noch eine Datei mit der Endung .laccdb <\/b>erscheint (siehe Bild 4). Damit ist eine Verbindung zu dieser Datei hergestellt, was Vor- und Nachteile haben kann. Wenn das Frontend etwa viel mit dem Backend kommunizieren soll, macht es sogar Sinn, die Verbindung offenzuhalten. Das könnte man beispielsweise erreichen, wenn man beim Starten der Datenbank ein Formular öffnet, das an eine Tabelle des Backends gebunden ist und dieses dann ausblendet. Das Formular ist dann weiterhin geöffnet und hält die Verbindung aufrecht.<\/p>\n Bild 4: Das geöffnete Backend<\/span><\/b><\/p>\n Im Gegensatz dazu steht die Konstellation, dass viele Benutzer gleichzeitig mit ihrem Frontend auf die Backend-Datenbank zugreifen wollen. In diesem Fall sollte man die Anzahl der Verbindungen zum Backend eher gering halten.<\/p>\n Und hier greift die hier vorgestellte Lösung, bei der wir davon ausgehen, dass die Benutzer nicht längere Zeit mit den Daten der Backend-Datenbank arbeiten, sondern nur Datensätze anlegen und diese im Backend speichern wollen. Normalerweise würde man in einem Formular, das an die Tabelle tblVorgaenge <\/b>im Backend gebunden ist, einen neuen Datensatz anlegen, die Daten eingeben und den Datensatz dann speichern. Das Problem ist nur: Auch hier wird die Verbindung vom Zeitpunkt des Öffnens des Formulars bis zum Schließen des Formulars aufrechterhalten. Das heißt, wenn der Benutzer seinen Datensatz angelegt hat und das Formular nicht schließt, bleibt die Verbindung bestehen. Das wollen wir verhindern.<\/p>\n Also legen wir eine temporäre Tabelle im Frontend an, was wir ja eingangs bereits gemacht haben, indem wir die Tabelle tblVorgaenge <\/b>in tblVorgaengeTemp <\/b>umbenannt haben. Der Tabelle tblVorgaengeTemp <\/b>fügen wir noch ein weiteres Feld namens InBackendUebertragen <\/b>hinzu, in dem wir den Zeitpunkt speichern wollen, an dem der Datensatz in die Tabelle tblVorgaenge <\/b>des Backends übertragen wurde (siehe Bild 5).<\/p>\n Bild 5: Neues Feld in der Tabelle tblVorgaengeTemp<\/span><\/b><\/p>\n Wir erstellen ein neues Formular namens frmVorgaenge<\/b>, das wir über die Eigenschaft Datensatzquelle <\/b>an die Tabelle tblVorgaengeTemp <\/b>binden. Das Formular sieht in der Entwurfsansicht wie in Bild 6 aus. Es zeigt alle vier Felder der Tabelle tblVorgaengeTemp <\/b>an, wobei der Benutzer das Feld InBackendUebertragen <\/b>nicht bearbeiten können soll. Daher stellen wir seine Eigenschaft Aktiviert <\/b>auf Nein<\/b>, Gesperrt <\/b>auf Ja <\/b>und Rahmen <\/b>auf Transparent <\/b>ein.<\/p>\n <\/p>\n Bild 6: Das Formular frmVorgaenge in der Entwurfsansicht<\/span><\/b><\/p>\n Außerdem fügen wir dem Formular eine Schaltfläche namens cmdInBackendUebertragen <\/b>hinzu, mit der der Benutzer den Datensatz nach dem Bearbeiten zum Backend kopieren kann.<\/p>\n Damit das Formular direkt beim Start einen neuen, leeren Datensatz anzeigt, hinterlegen wir für die Ereigniseigenschaft Beim Laden <\/b>die folgende Ereignisprozedur:<\/p>\n Die einzige Anweisung dieser Prozedur sorgt dafür, dass das Formular einen neuen, leeren Datensatz anzeigt. Wenn das Formular von einem anderen Formular aus geöffnet wird oder über einen Ribbon-Eintrag, können Sie die Anzeige des neuen, leeren Datensatzes auch als Parameter in die DoCmd.OpenForm<\/b>-Methode integrieren:<\/p>\n Verwenden Sie letztere Möglichkeit, erscheint das Formular und zeigt nur einen leeren, neuen Datensatz an und bietet nicht die Möglichkeit, die anderen Datensätze einzusehen (siehe Bild 7). Wenn Sie es per Doppelklick auf den Eintrag im Navigationsbereich öffnen, zeigt es alle Datensätze an und der Datensatzzeiger wird auf einen leeren, neuen Datensatz verschoben. Sinnvoller ist es in diesem Fall, das Formular nur zum Anzeigen eines neuen, leeren Datensatzes zu öffnen.<\/p>\n Bild 7: Das Formular frmVorgaenge mit einem leeren, neuen Datensatz<\/span><\/b><\/p>\n Die Schaltfläche cmdInBackendUebertragen <\/b>soll nur für Datensätze aktiviert werden, die noch nicht in das Backend übertragen wurden. Also prüfen wir das in einer Prozedur namens SchaltflaechenAktivieren<\/b>, die wie folgt aussieht:<\/p>\n Die Prozedur prüft, ob das Feld InBackendUebertragen <\/b>den Wert Null <\/b>enthält. Ist dies der Fall, wird die Schaltfläche cmdInBackendUebertragen <\/b>aktiviert, anderenfalls wird sie deaktiviert. Das können wir auch kürzer fassen:<\/p>\n Nun benötigen wir noch ein Ereignis, das beim Anzeigen eines Datensatzes ausgelöst wird und mit der wir die Prozedur SchaltflaechenAktivieren <\/b>aufrufen. Dazu nutzen wir das Ereignis Beim Anzeigen<\/b>, für das wir die folgende Ereignisprozedur hinterlegen:<\/p>\n Und schließlich benötigen wir noch die Prozedur, die nach einem Mausklick auf die Schaltfläche cmdInBackendUebertragen <\/b>ausgelöst wird. Diese finden Sie in Listing 1. Diese Prozedur speichert zunächst die Änderungen am aktuellen Datensatz, indem sie die Eigenschaft Me.Dirty <\/b>auf den Wert False <\/b>setzt (Me.Dirty <\/b>wird auf True <\/b>gesetzt, sobald der Benutzer den Datensatz bearbeitet). Dann führt die Prozedur eine INSERT INTO<\/b>-Anweisung aus, welche die Inhalte der beiden Felder Titel <\/b>und Beschreibung <\/b>des aktuellen Datensatzes aus der Tabelle tblVorgaengeTemp <\/b>des Frontends in die Tabelle tblVorgaenge <\/b>des Backends schreibt. Sie prüft anschließend mit der Eigenschaft RecordsAffected<\/b>, wie viele Datensätze von dieser Aktionsabfrage betroffen waren. Liefert diese den Wert 1<\/b>, was zu erwarten ist, stellt sie den Wert des Feldes InBackendUebertragen <\/b>auf das aktuelle Datum samt Uhrzeit ein und speichert die Änderungen. Außerdem ruft es die Prozedur SchaltflaechenAktivieren <\/b>auf und sorgt so für die Deaktivierung der Schaltfläche cmdInBackendUebertragen<\/b>.<\/p>\n Listing 1: Übertragen eines Datensatzes in das Backend<\/span><\/b><\/p>\n Das Formular sieht dann wie in Bild 8 aus.<\/p>\n Bild 8: Das Formular frmVorgaenge nach dem Übertragen des neuen Datensatzes<\/span><\/b><\/p>\n Sie können die Datenbank nun einmal neben dem Windows Explorer platzieren, der die Frontend- und die Backenddatei anzeigt. Wenn Sie dann einen neuen Datensatz mit dem Formular frmVorgaenge <\/b>anlegen und auf die Schaltfläche zum Übertragen des Datensatzes in das Backend klicken, werden Sie feststellen, dass die Datei NeuerDSBE.laccdb <\/b>noch nicht einmal kurz aufblinkt. Möglicherweise sehen Sie diese Datei kurz, wenn der Datensatz wesentlich größere Datenmengen enthält. Tatsache ist, dass die Verbindung hier nur sehr kurz hergestellt wird.<\/p>\n Die Daten werden jedenfalls, wovon wir uns durch das Öffnen der verknüpften Datenbank tblVorgaenge <\/b>überzeugen können, in die Zieldatenbank geschrieben. Und beim Öffnen der verknüpften Tabelle tblVorgaenge <\/b>erscheint dann natürlich auch wieder die .laccdb<\/b>-Datei der Backend-Datenbank.<\/p>\n Vielleicht fragen Sie sich, ob diese Technik auch anwendbar ist, wenn die Frontend-Datenbank keine Verknüpfung zu der Zieltabelle im Backend enthält. Ja, auch das ist möglich. Dazu fügen wir dem Formular eine weitere Schaltfläche hinzu, welche die Prozedur aus Listing 2 auslöst. Zu Demonstrationszwecken haben wir die Variable, welche das Database<\/b>-Objekt der Backend-Datenbank referenziert, einmal modulweit im Klassenmodul des Formulars deklariert:<\/p>\n![\"Hinzufügen](\"..\/fileadmin\/_temp_\/2019_03\/pic_1195_002.png\")
<\/p>\n![\"Die](\"..\/fileadmin\/_temp_\/2019_03\/pic_1195_003.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2019_03\/pic_1195_004.png\")
<\/p>\nDie Lösung: Temporäre Datensätze<\/h2>\n
![\"Neues](\"..\/fileadmin\/_temp_\/2019_03\/pic_1195_005.png\")
<\/p>\n![\"Das](\"..\/fileadmin\/_temp_\/2019_03\/pic_1195_006.png\")
<\/p>\nPrivate Sub <\/span>Form_Load()\r\n DoCmd.GoToRecord Record:=acNewRec\r\nEnd Sub<\/span><\/pre>\nDoCmd.OpenForm \"frmVorgaenge\", DataMode:=acFormAdd<\/pre>\n
![\"Das](\"..\/fileadmin\/_temp_\/2019_03\/pic_1195_007.png\")
<\/p>\nSchaltfläche aktivieren und deaktivieren<\/h2>\n
Private Sub <\/span>SchaltflaechenAktivieren()\r\n If <\/span>IsNull(Me!InBackendUebertragen) Then<\/span>\r\n Me!cmdInBackendUebertragen.Enabled = True<\/span>\r\n Else<\/span>\r\n Me!cmdInBackendUebertragen.Enabled = False<\/span>\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>SchaltflaechenAktivieren()\r\n Me!cmdInBackendUebertragen.Enabled = IsNull(Me!InBackendUebertragen)\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>Form_Current()\r\n SchaltflaechenAktivieren\r\nEnd Sub<\/span><\/pre>\nPrivate Sub <\/span>cmdInBackendUebertragen_Click()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Me.Dirty = False<\/span>\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"INSERT INTO tblVorgaenge(Titel, Beschreibung) SELECT Titel, Beschreibung FROM tblVorgaengeTemp \" _\r\n & \"WHERE VorgangID = \" & Me!VorgangID & \" AND InBackendUebertragen IS NULL\", dbFailOnError\r\n If <\/span>db.RecordsAffected = 1 Then<\/span>\r\n Me!InBackendUebertragen = Now\r\n Me.Dirty = False<\/span>\r\n SchaltflaechenAktivieren\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Das](\"..\/fileadmin\/_temp_\/2019_03\/pic_1195_008.png\")
<\/p>\nTest der Verbindung<\/h2>\n
Übertragen ohne Verknüpfung<\/h2>\n
Private Sub <\/span>cmdInBackendUebertragenOhneVerknuepfung_Click()\r\n Me.Dirty = False<\/span>\r\n Set<\/span> dbBackend = OpenDatabase(CurrentProject.Path & \"NeuerDSBE.accdb\")\r\n dbBackend.Execute \"INSERT INTO tblVorgaenge(Titel, Beschreibung) VALUES(''\" & Me!Titel & \"'', ''\" & Me!Beschreibung _\r\n & \"'')\", dbFailOnError\r\n If <\/span>dbBackend.RecordsAffected = 1 Then<\/span>\r\n Me!InBackendUebertragen = Now\r\n Me.Dirty = False<\/span>\r\n SchaltflaechenAktivieren\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\n