{"id":55000366,"date":"2017-10-01T00:00:00","date_gmt":"2020-01-24T15:59:53","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=366"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Meldungen_bei_Datensatzaenderungen","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Meldungen_bei_Datensatzaenderungen.html","title":{"rendered":"Meldungen bei Datensatzänderungen"},"content":{"rendered":"

Access bietet einige Sicherheitsmaßnahmen, um den Benutzer vor unbewussten und nicht wiederherstellbaren änderungen von Daten zu schützen. Dabei erscheinen zu bestimmten Gelegenheiten wie etwa vor dem Löschen von Datensätzen entsprechende Warnmeldungen. Das kann auch geschehen, wenn der Benutzer Daten durch den Aufruf von VBA-Anweisungen löschen will oder dies per Aktionsabfrage erledigt. Dieser Artikel zeigt, wo Access eingreift und wie Sie das Verhalten für Ihre Zwecke anpassen können.<\/p>\n

Beispieldatenbank<\/h2>\n

Die Beispiele dieses Artikels finden Sie in der Datenbank 1705_MeldungenBeiDatensatzaenderungen.accdb<\/b>.<\/p>\n

Wo tauchen Warnmeldungen auf<\/h2>\n

Als Erstes sehen wir uns an, wo überhaupt Warnmeldungen auftauchen, wenn der Benutzer Datensatzänderungen durchführt. <\/p>\n

Dies bereits in der Datenblattansicht einer Tabelle der Fall. Versuchen Sie hier, einen Datensatz zu löschen, erscheint die Meldung aus Bild 1. Diese taucht auf, nachdem der zu löschende Datensatz bereits verschwunden ist. Klicken Sie hier auf Nein<\/b>, wird der Datensatz wiederhergestellt.<\/p>\n

\"Meldung<\/a><\/p>\n

Bild 1: Meldung beim manuellen Löschen aus der Datenblattansicht<\/p>\n

Die gleiche Meldung erscheint auch bei allen weiteren Datenblattansichten, also etwa von Abfragen oder in Formularen.<\/p>\n

Die zweite Gelegenheit zum Anzeigen von Meldungen ist das Ausführen von Aktionsabfragen wie zum Beispiel die Abfrage zum Löschen von Daten aus Bild 2. Auch hier bewirkt ein Klick auf Ja<\/b>, dass die Abfrage tatsächlich ausgeführt wird und Nein<\/b>, dass die Daten erhalten bleiben.<\/p>\n

\"Meldung<\/a><\/p>\n

Bild 2: Meldung beim Löschen per Aktionsabfrage<\/p>\n

Nächste Gelegenheit ist das Löschen von Datensätzen über DAO, und zwar mit der Delete<\/b>-Methode für den aktuell im Recordset markierten Datensatz.<\/p>\n

Folgende Prozedur öffnet ein Recordset auf Basis der Tabelle tblBestelldetails<\/b>, bewegt den Datensatzzeiger zum ersten und wieder zum ersten Datensatz, damit rst.RecordCount <\/b>die korrekte Anzahl Datensätze ausgibt, löscht dann den aktuellen Datensatz und gibt erneut die Anzahl der Datensätze aus:<\/p>\n

Public Sub <\/span>LoeschenMitDAO_I()\r\n    Dim <\/span>db As <\/span>DAO.Database\r\n    Dim <\/span>rst As <\/span>DAO.Recordset\r\n    Set<\/span> db = CurrentDb\r\n    Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM                       tblBestelldetails\", dbOpenDynaset)\r\n    rst.MoveLast\r\n    rst.MoveFirst\r\n    Debug.Print<\/span> rst.RecordCount\r\n    If <\/span>Not<\/span> rst.EOF Then<\/span>\r\n        'ersten Datensatz löschen\r\n        rst.Delete\r\n    End If<\/span>\r\n    Debug.Print<\/span> rst.RecordCount\r\nEnd Sub<\/span><\/pre>\n
Im Direktbereich können Sie ablesen, dass genau ein Datensatz gelöscht wurde – wobei allerdings diesmal keine Meldung mit einer Rückfrage an den Benutzer ausgegeben wurde.<\/p>\n
Aktionen im Recordset führen also direkt zum Löschen des Datensatzes.<\/p>\n
Wie sieht es mit dem Löschen per Execute<\/b>-Anweisung aus Schauen wir es uns anhand des folgenden Beispiels an:<\/p>\n
Public Sub <\/span>LoeschenMitDAO_II()\r\n    Dim <\/span>db As <\/span>DAO.Database\r\n    Set<\/span> db = CurrentDb\r\n    db.Execute \"DELETE FROM tblBestelldetails          WHERE BestellungID = 10250\", dbFailOnError\r\n    Debug.Print<\/span> db.RecordsAffected\r\nEnd Sub<\/span><\/pre>\n
Hier haben wir die Execute<\/b>-Methode des Database<\/b>-Objekts mit einer DELETE<\/b>-Anweisung aufgerufen. Es werden Datensätze gelöscht, aber auch hier gibt es keine Rückfrage an den Benutzer.<\/p>\n
Hat der Benutzer gar keine Möglichkeit, bei Datenänderungen über VBA über die anstehenden änderungen informiert zu werden – außer gegebenenfalls über selbst programmierte Meldungen Doch, wenn Sie die Methode RunSQL <\/b>des DoCmd<\/b>-Objekts wie in Bild 3 aufrufen.<\/p>\n
\"Meldung<\/a><\/p>\n
Bild 3: Meldung beim Löschen per DoCmd.RunSQL<\/p>\n
Klicken Sie hier auf Ja<\/b>, wird die Abfrage durchgeführt, Nein <\/b>führt allerdings zu einem Laufzeitfehler (siehe Bild 4). In diesem Fall müssen Sie noch eine Fehlerbehandlung zum Code hinzufügen, die beispielsweise wie folgt aussieht:<\/p>\n
\"Meldung<\/a><\/p>\n
Bild 4: Meldung beim Abbrechen einer RunSQL-Anweisung<\/p>\n
On Error Resume Next<\/span>\r\nDoCmd.RunSQL strSQL\r\nSelect Case Err.Number\r\n    Case <\/span>2501\r\n    Case <\/span>0\r\n    Case Else<\/span>\r\n        MsgBox<\/span> \"Fehler \" & Err.Number & \", '\"                                  & Err.Description & \"'\"\r\nEnd Select<\/span>\r\nOn Error GoTo<\/span> 0<\/pre>\n
Löschen per RunCommand acCmdDeleteRecord<\/h2>\n
Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t
\n\n\t\t\n\t\t