CurrentDb.Execute delete query VBAから実行されたときに何も削除しない

Question

ユーザーがキャンセルした場合に新しく作成されたレコードを削除するようにコードを取得しようとしています。何らかの理由で、テーブル内に存在する一意のIDをクエリが確実にフィルタリングしていても、アクセスはレコードを削除しません。アクセスはエラーを投げていません。

PG_IDは両方のテーブルの一意の識別子です。これは長い整数です。

以下に、私のコードのサンプル部分を含めました。助けてください！

Dim var_PGID As String 
    Dim Delete_PG_Data, Delete_PG_Upld As String 
    Dim db As Database 
     Set db = CurrentDb 
     var_PGID = TempVars![var_PG_ID_NEW] 
     Delete_PG_Data = "DELETE * " & _ 
         "FROM tbl_CapEx_Projects_Group " & _ 
         "WHERE PG_ID=" & var_PGID 
     Delete_PG_Upld = "DELETE * " & _ 
         "FROM tbl_CapEx_Projects_Group_Attachements " & _ 
         "WHERE PG_ID=" & var_PGID 
     Debug.Print Delete_PG_Data 
     Debug.Print Delete_PG_Upld 
     db.Execute Delete_PG_Data, dbFailOnError 
     db.Execute Delete_PG_Upld, dbFailOnError 

私はmsgboxをDebug.Printに切り替えました。以下は、アクセスクエリに置かれたときに正しく動作するdebug.print出力です。

タイミングの問題でした。トランザクションをコミットしてから削除クエリを実行することで修正しました。あなたのご意見ありがとうございました！

Private Sub cmd_Cancel_Click() 
On Error Resume Next 
DoCmd.SetWarnings False 
If TempVars![var_NewRecord] = True Then 
    Do While Not Me.Recordset.EOF 
      Me.Recordset.Update 
      Me.Recordset.MoveNext 
     Loop 
      DBEngine.CommitTrans 
      Me.Recordset.Close 
    Dim var_PGID As String 
    Dim Delete_PG_Data, Delete_PG_Upld As String 
    Dim db As Database 
     Set db = CurrentDb 
     var_PGID = TempVars![var_PG_ID_NEW] 
     Delete_PG_Data = "DELETE * " & _ 
         "FROM tbl_CapEx_Projects_Group " & _ 
         "WHERE PG_ID=" & var_PGID 
     Delete_PG_Upld = "DELETE * " & _ 
         "FROM tbl_CapEx_Projects_Group_Attachements " & _ 
         "WHERE PG_ID=" & var_PGID 
     Debug.Print Delete_PG_Data 
     Debug.Print Delete_PG_Upld 
     db.Execute Delete_PG_Data, dbFailOnError 
     db.Execute Delete_PG_Upld, dbFailOnError 

    ''Me.Recordset.Delete 
    ''DBEngine.BeginTrans 
    ''DBEngine.CommitTrans 
Else 
    If Me.Saved Then 
     DBEngine.Rollback 
    Else 
     If Me.Dirtied Then DBEngine.Rollback 
    End If 
End If 
DoCmd.Close ObjectType:=acForm, ObjectName:=Me.Name 
    Form_frm_CapEx_Edit_Project_Groups_Cont.Requery 
DoCmd.SetWarnings True 
End Sub 

Answer 1

使用DoCmd.RunSQL

例：

Public Sub DoSQL() 

    Dim SQL As String 

    SQL = "UPDATE Employees " & _ 
      "SET Employees.Title = 'Regional Sales Manager' " & _ 
      "WHERE Employees.Title = 'Sales Manager'" 

    DoCmd.RunSQL SQL 

End Sub 

したがって、あなたの新しいコードは以下のようになります：

Dim var_PGID As String 
Dim Delete_PG_Data, Delete_PG_Upld As String 
var_PGID = TempVars![var_PG_ID_NEW] 
Delete_PG_Data = "DELETE * " & _ 
        "FROM tbl_CapEx_Projects_Group " & _ 
        "WHERE PG_ID=" & var_PGID 
Delete_PG_Upld = "DELETE * " & _ 
        "FROM tbl_CapEx_Projects_Group_Attachements " & _ 
        "WHERE PG_ID=" & var_PGID 
MsgBox Delete_PG_Data 
MsgBox Delete_PG_Upld 
DoCmd.RunSQL Delete_PG_Data 
DoCmd.RunSQL Delete_PG_Upld 

Answer 2

..ユーザーならば、新しく作成されたレコードを削除キャンセルする

レコードのようなサウンドは保存されません。そうでなくても、フォームとは別のコンテキストでクエリを実行するときのタイミングの問題になる可能性があります。

実際に作成されている場合は、フォームのRecordsetCloneからレコードを削除するのが最も簡単で簡単な方法です。