Datensatz Wird Gelöscht-Nachricht in Microsoft Access-VBA

In einer Microsoft Access-Anwendung, die ich bin, zu ändern, bestimmte vba-Funktionen liefern die Meldung:

"Record is Deleted"

Diese wird in einer message-box mit keine Fehler-Nummer und ein gelbes Achtung-Zeichen.

Dies ist nicht ein Fehler, die behoben werden können, die durch traditionelle Fehlerbehandlung (on error...". Es ist auch nicht betroffen von der DoCmd.setwarnings=false

Ich bin auf der Suche nach einige Ratschläge, wie man trap oder behandeln dieses Element.

InformationsquelleAutor user1737050 | 2013-08-07
  1. 2

    "Datensatz ist gelöscht" ist der Laufzeitfehler 3167, und es kann eingeschlossen werden, die mit normalen On Error Handhabung. Dies kann überprüft werden, per VBA-code wie dem folgenden:

    Sub foo()
Dim cdb As DAO.Database, rst As DAO.Recordset
Set cdb = CurrentDb
Set rst = cdb.OpenRecordset("SELECT * FROM Table1 WHERE ID=26", dbOpenDynaset)
MsgBox "Waiting..."
On Error GoTo foo_Error
Debug.Print rst!ID
On Error GoTo 0
rst.Close
Set rst = Nothing
Set cdb = Nothing
Exit Sub
foo_Error:
MsgBox "Error " & Err.Number & ": " & Err.Description, vbOKOnly, "Trapped Error"
End Sub

    Wenn Sie führen Sie den code ein und klicken Sie auf "löschen Sie den Datensatz aus unter es" während der MsgBox angezeigt wird, dann die rst! Referenz in der Debug.Print löst den Laufzeitfehler 3167 und die On Error fängt ihn auf.

    Überprüfen Sie Ihren code, um zu sehen, wenn es eine aktive On Error (vielleicht erklärt in einem früheren Aufruf von Prozedur), die einfach zeigt eine schlichte MsgBox mit der Err.Description. Das würde erklären, das Verhalten, die Sie beschreiben.

    InformationsquelleAutor Gord Thompson
  2. 1

    Vielleicht ziehen Sie einen Datensatz löschen aus mehreren Tabellen... wie 

    sql = "SELECT columnA FROM tableA WHERE criteria"
set rec = currentdb.openrecordset(sql)

DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE FROM tableA WHERE columnA = " & rec(0)
    DoCmd.RunSQL "DELETE FROM tableB WHERE columnB = " & rec(0)
    DoCmd.RunSQL "DELETE FROM tableC WHERE columnC = " & rec(0)
    DoCmd.RunSQL "UPDATE tableD SET status WHERE columnD = " & rec(0)
DoCmd.SetWarnings True

    Dieses Versagen wird auf die zweite Zeile Löschen, da rec(0) existiert nicht mehr auf der zweiten Linie, die Sie gerade gelöscht haben, es aus tableA das ist, wo Ihre recordset kommt.

    Jedoch

    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE FROM tableB WHERE columnB = " & rec(0)
    DoCmd.RunSQL "DELETE FROM tableC WHERE columnC = " & rec(0)
    DoCmd.RunSQL "UPDATE tableD SET status WHERE columnD = " & rec(0)
    DoCmd.RunSQL "DELETE FROM tableA WHERE columnA = " & rec(0)
DoCmd.SetWarnings True

    arbeiten. Es kann nicht sein, die best-practice-Methode, aber wenn du diesen Fehler gemeldet wird, versuchen diesen zu sehen, wenn das recordset gelöscht wird, ist der Grund.

    Eine bessere Methode sein könnte, um eine variable zu deklarieren und zuweisen, rec(0).Wert der variable. Verwenden Sie dann die variable an Stelle von rec(0) im code.

    InformationsquelleAutor RunningWithScissors
Schreibe einen Kommentar