<\/p>\n
Wenn Sie die Beziehung zwischen zwei Tabellen festlegen, haben Sie die Möglichkeit, referenzielle Integrität für die Daten zu definieren. Ist dies geschehen, legen Sie mit der Option Löschweitergabe auch noch fest, ob verknüpfte Daten beim Löschen von Datensätzen auf der einen Seite der Beziehung ebenfalls gelöscht werden sollen. Wenn Sie solche Daten in Formularen löschen, erhalten Sie unter Umständen Systemmeldungen, die für den Endnutzer der Anwendung nur wenig Aussagekraft haben. Dieser Beitrag zeigt, wie Sie mit dem Löschen von in Beziehung stehenden Daten umgehen können.<\/b><\/p>\n
Unsere Südsturm-Beispieldatenbank liefert ausreichend Tabellen und Beziehungen, um die verschiedenen Konstellationen des Einsatzes der Löschweitergabe oder eben des Weglassens der Löschweitergabe zu beurteilen.<\/p>\n
Wie und wo wirkt die Löschweitergabe eigentlich In der Beziehung zwischen Kunden und Anreden sind diese nicht definiert (siehe Bild 1).<\/p>\n
![\"Anlegen](\"..\/fileadmin\/_temp_\/2018_04\/pic_1135_001.png\")
<\/p>\n
Bild 1: Anlegen einer Beziehung mit referenzieller Integrität, aber ohne Löschweitergabe<\/span><\/b><\/p>\n Dies sorgt dafür, dass Sie in einer 1:n-Beziehung zwischen einer Kunden- und einer Anreden-Tabelle zwar Kunden löschen können, ohne dass die Datensätze der Anreden-Tabelle davon berührt werden. Sie können aber keine Anreden löschen, die bereits mindestens einem Kunden zugeordnet wurden. Wenn Sie dies dennoch versuchen, erhalten Sie etwa in der Datenblattansicht die Meldung aus Bild 2.<\/p>\n Bild 2: Ohne Löschweitergabe werden verknüpfte Datensätze auf der n-Seite der Beziehung geschützt.<\/span><\/b><\/p>\n Wenn hier nun die Option Löschweitergabe<\/b> aktiviert wäre, würde das Löschen einer Anrede dazu führen, dass auch alle damit verknüpften Kunden-Datensätze gelöscht würden – und das wäre einigermaßen fatal. Deshalb sollten Sie die Löschweitergabe nicht einfach so festlegen.<\/p>\n Eine Stelle, an der die Löschweitergabe sinnvoll ist, ist etwa die Beziehung von Kunden und Bestellungen. Wenn ein Kunde Sie auffordert, alle Kundendaten zu löschen, sind davon natürlich auch die Bestellungsdaten betroffen – Sie können ja keinen Datensatz in der Tabelle tblBestellungen <\/b>behalten, ohne dass dieser einem Kunden zugeordnet ist. Wir gehen an dieser Stelle davon aus, dass Sie die Kunden- und Bestelldaten tatsächlich nicht mehr benötigen und diese löschen können. In diesem Fall legen Sie für die Beziehung zwischen den Tabellen tblKunden <\/b>und tblBestellungen <\/b>die Eigenschaft Löschweitergabe an verwandte Datensätze <\/b>fest (siehe Bild 3).<\/p>\n Bild 3: Löschweitergabe zwischen Kunden und Bestellungen<\/span><\/b><\/p>\n Ist dies der Fall und die Option Client-einstellungen|Be-ar-beiten|Bestätigen|Datensatzänderungen <\/b>in den Access-Optionen ist aktiviert, erhalten Sie vor dem Löschen eines Kunden-Datensatzes, dem bereits Bestelldatensätze zugeordnet sind, die Meldung aus Bild 4.<\/p>\n Bild 4: Bei aktiver Löschweitergabe erscheint mit Standardoptionen diese Meldung beim Versuch, einen Datensatz mit verknüpften Daten zu löschen.<\/span><\/b><\/p>\n Wie Sie solche Meldungen durch eigene Meldungen ersetzen, können Sie im Beitrag Löschen in Formularen: Ereignisse <\/b>nachlesen (www.access-im-unternehmen.de\/1128<\/b>). Wir schauen uns nun an, wie Sie die Meldungen, die beim Fehlschlagen des Löschvorgangs von Datensätzen ohne Löschweitergabe erscheinen, durch eine selbst definierte Meldung ersetzen können.<\/p>\n Die obige Meldung Der Datensatz kann nicht gelöscht oder geändert werden, da die Tabelle „tblKunden“ in Beziehung stehende Datensätze enthält <\/b>können Sie nicht so einfach deaktivieren – auch nicht, wenn Sie die Access-Option Clienteinstellungen|Bearbeiten|Bestäti-gen|Daten-satzänderungen <\/b>deaktivieren.<\/p>\n Es gibt auch scheinbar keine Möglichkeit, per VBA in den Aufruf dieser Meldung einzugreifen – was auch logisch scheint, dann die Meldung kann ja auch komplett über die Benutzeroberfläche ausgelöst werden.<\/p>\n Die einzige Möglichkeit, hier einzugreifen, wird klar, wenn Sie diese Hinweismeldung anders interpretieren – nämlich als Fehlermeldung! Dennoch bleibt die Frage: Wo können wir eine Fehlermeldung unterbinden, die gar nicht per VBA ausgelöst wird Die Lösung ist nicht leicht zu erraten, aber letztlich doch einfach.<\/p>\n Erstens gelingt dies ausschließlich in Formularen und nicht in der Datenblattansicht von Tabellen oder Abfragen. Zweitens erledigen wir das mit der Ereignisprozedur, die durch das Ereignis Bei Fehler <\/b>des Formulars ausgelöst wird. <\/p>\n Für das Beispiel entfernen wir nun zunächst den Haken bei der Option Löschweitergabe an verwandte Datensätze <\/b>der Beziehung zwischen den Tabellen tblKunden <\/b>und tblBestellungen<\/b>. Damit sorgen wir also dafür, dass die oben erwähnte Meldung wieder erscheint statt der Rückfrage, ob die verknüpften Datensätze mitgelöscht werden sollen (siehe Bild 5).<\/p>\n <\/p>\n Bild 5: Entfernen der Löschweitergabe<\/span><\/b><\/p>\n In einem Beispielformular, das einfach die Tabelle tblKunden<\/b> mit allen Feldern im Detailbereich und dem Wert Datenblatt <\/b>für die Eigenschaft Standardansicht <\/b>verwendet (siehe Bild 6), wollen wir den Einsatz der Ereignisprozedur Bei Fehler <\/b>demonstrieren.<\/p>\n Bild 6: Entwurf des Beispielformulars<\/span><\/b><\/p>\n Dazu stellen wir den Wert der Eigenschaft Bei Fehler <\/b>des Formulars auf [Ereignisprozedur] <\/b>ein und klicken auf die Schaltfläche mit den drei Punkten. Die so im VBA-Editor automatisch angelegte Ereignisprozedur ergänzen wir mit folgender MsgBox<\/b>-Anweisung:<\/p>\n Wenn wir nun einen Datensatz aus diesem Formular löschen, erscheint die Fehlermeldung aus Bild 7. Damit können wir arbeiten: Wir kennen nun die Nummer des Fehlers und können auf diesen reagieren. <\/p>\n Bild 7: Fehlermeldung durch das Ereignis Bei Fehler<\/span><\/b><\/p>\n Wenn Sie auch noch die Fehlermeldung haben wollen, erhalten Sie diese mit folgender MsgBox<\/b>-Anweisung (siehe Bild 8):<\/p>\n Bild 8: Text der Fehlermeldung<\/span><\/b><\/p>\n Die vom System erzeugte Meldung wird allerdings immer noch nach der Ausgabe unserer eigenen Meldung nachgereicht. Dies können wir verhindern, indem wir die folgende Anweisung hinzufügen und damit den Parameter Response <\/b>auf den Wert acDataErrorContinue <\/b>einstellen:<\/p>\n Was aber tun wir nun, wenn wir dem Benutzer die Wahl lassen wollen, die mit dem zu löschenden Datensatz verknüpften Daten, die das Löschen verhindern, ebenfalls zu löschen In diesem Fall ermitteln wir zunächst die Fehlernummer für diesen Fall und prüfen, ob es sich dabei um die erwartete Nummer handelt – in diesem Fall die Nummer 3200<\/b>. Diese Prüfung führen wir in einer Select Case<\/b>-Bedingung wie in Listing 1 aus. <\/p>\n Listing 1: Löschen verknüpfter Daten trotz deaktivierter Löschweitergabe<\/span><\/b><\/p>\n Diese ermittelt zunächst die ID des beim Anklicken der Entfernen-Taste markierten Kunden und speichert diese in der Variablen lngKundeID<\/b>. Die folgende Anweisung ermittelt die zweifelsohne vorhandenen verknüpften Datensätze aus der Tabelle tblBestellungen <\/b>– wenn keine Bestellungen mit dem Kunden verknüpft wären, würde ja dieser Fehler nicht ausgelöst werden -, und speichert diese Anzahl in der Variablen lngAnzahl<\/b>. Das Ergebnis der folgenden MsgBox<\/b>-Funktion, die den Benutzer fragt, ob der Kunde samt den verknüpften Bestellungen gelöscht werden soll (siehe Bild 9), landet in der Variablen intResponse <\/b>des Typs VbMsgBoxResult<\/b>. Enthält diese anschließend den Wert vbYes<\/b>, wollen wir die verknüpften Datensätze aus der Tabelle tblBestellungen <\/b>löschen. Danach können wir dann auch ohne Verletzungen der referenziellen Integrität den Kundendatensatz löschen. Schließlich folgt auch hier wieder die Angabe des Wertes acDataErrContinue <\/b>für den Parameter Response<\/b>.<\/p>\n Bild 9: Meldung beim Versuch, einen Kundendatensatz mit verknüpften Bestelldatensätzen zu löschen<\/span><\/b><\/p>\n Leider wird der so gelöschte Datensatz im Formular nur als gelöscht markiert, aber nicht aus der Liste entfernt (siehe Bild 10). Das geschieht erst nach dem Aktualisieren. Aber das sollte ja kein Problem sein – wir fügen einfach die Requery<\/b>-Methode zur Prozedur Form_Error <\/b>hinzu:<\/p>\n Bild 10: Der Datensatz wird als gelöscht markiert, aber die Zeile verschwindet nicht.<\/span><\/b><\/p>\n Wenn wir nun erneut einen der Datensätze löschen, erhalten wir allerdings die Fehlermeldung aus Bild 11. Offensichtlich fasst Access die Datenoperationen beim Löschen in einer Transaktion zusammen, die erst nach dem Abarbeiten der Form_Error<\/b>-Prozedur aufgelöst wird. Wie also können wir hier die Aktualisierung durchführen, wenn wir diese nicht direkt nach dem Bearbeiten der Daten auslösen können Ich habe es auf verschiedene Arten probiert – und zwar mit Prozeduren, die durch Ereignisse wie Beim Anzeigen<\/b>, Beim Löschen<\/b>, Vor Löschbestätigung <\/b>oder Nach Löschbestätigung <\/b>ausgelöst wurden. Der Haken: All die Löschen-Ereignisse feuern nicht, weil wir ja keinen Datensatz über das Formular löschen, sondern dies über die Execute<\/b>-Methode des Database<\/b>-Objekts erledigen. Und Beim Anzeigen <\/b>wird nicht ausgelöst, weil wir ja nicht den Datensatz wechseln – dieser wird zwar als gelöscht markiert, aber der Datensatzzeiger wird nicht auf einen anderen Datensatz verschoben. Es gibt aber noch eine Variante: Wenn der Benutzer den Datensatz samt der verknüpften Datensätze löschen will, löschen wir zuerst die verknüpften Datensätze über die DELETE<\/b>-Anweisung mit der Execute<\/b>-Methode und den Datensatz mit dem entsprechenden Befehl zur Steuerung der Benutzeroberfläche. Das wäre dann RunCommand acCmdDeleteRecord<\/b>:<\/p>\n![\"Ohne](\"..\/fileadmin\/_temp_\/2018_04\/pic_1135_002.png\")
<\/p>\n![\"Löschweitergabe](\"..\/fileadmin\/_temp_\/2018_04\/pic_1135_003.png\")
<\/p>\n![\"Bei](\"..\/fileadmin\/_temp_\/2018_04\/pic_1135_004.png\")
<\/p>\nEigene Meldung bei gescheitertem Löschen<\/h2>\n
![\"Entfernen](\"..\/fileadmin\/_temp_\/2018_04\/pic_1135_005.png\")
<\/p>\n![\"Entwurf](\"..\/fileadmin\/_temp_\/2018_04\/pic_1135_006.png\")
<\/p>\nPrivate Sub <\/span>Form_Error(DataErr As Integer<\/span>, Response As Integer<\/span>)\r\n MsgBox<\/span> DataErr\r\nEnd Sub<\/span><\/pre>\n![\"Fehlermeldung](\"..\/fileadmin\/_temp_\/2018_04\/pic_1135_007.png\")
<\/p>\n![\"Text](\"..\/fileadmin\/_temp_\/2018_04\/pic_1135_008.png\")
<\/p>\nMsgBox<\/span> AccessError(DataErr)<\/pre>\nPrivate Sub <\/span>Form_Error(DataErr As Integer<\/span>, Response As Integer<\/span>)\r\n MsgBox<\/span> DataErr\r\n Response = acDataErrContinue\r\nEnd Sub<\/span><\/pre>\nVerknüpfte Daten auf Benutzerwunsch löschen<\/h2>\n
Private Sub <\/span>Form_Error(DataErr As Integer<\/span>, Response As Integer<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>intResponse As <\/span>VbMsgBoxResult\r\n Dim <\/span>lngAnzahl As Long<\/span>\r\n Dim <\/span>lngKundeID As Long<\/span>\r\n Select Case DataErr\r\n Case <\/span>3200\r\n lngKundeID = Me!KundeID\r\n lngAnzahl = DCount(\"*\", \"tblBestellungen\", \"KundeID = \" & lngKundeID)\r\n intResponse = MsgBox<\/span>(\"Dieser Datensatz enthält \" & lngAnzahl & \" verknüpfte Bestellungen. \" _\r\n & \"Soll der Kunde mit diesen Bestellungen gelöscht werden\", vbYesNo + vbExclamation, \"Löschbestätigung\")\r\n If <\/span>intResponse = vbYes Then<\/span>\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"DELETE FROM tblBestellungen WHERE KundeID = \" & lngKundeID, dbFailOnError\r\n db.Execute \"DELETE FROM tblKunden WHERE KundeID = \" & lngKundeID, dbFailOnError\r\n End If<\/span>\r\n Response = acDataErrContinue\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Meldung](\"..\/fileadmin\/_temp_\/2018_04\/pic_1135_009.png\")
<\/p>\n![\"Der](\"..\/fileadmin\/_temp_\/2018_04\/pic_1135_010.png\")
<\/p>\nPrivate Sub <\/span>Form_Error(...)\r\n ...\r\n Select Case DataErr\r\n Case <\/span>3200\r\n ...\r\n Me.Requery\r\n End Select<\/span>\r\nEnd Sub<\/span><\/pre>\n![\"Es](\"..\/fileadmin\/_temp_\/2018_04\/pic_1135_011.png\")
<\/p>\n
![\"Meldung](\"..\/fileadmin\/_temp_\/2018_04\/pic_1135_012.png\")
<\/p>\n