サブフォーム内の行を削除する

Question

サブフォームはAccess 03のフォーム内にあります。サブフォーム内の行を削除するマクロが必要です。私は以下のコードを試してみましたが、フォームのフィールドだけを削除します。

Private Sub Command104_Click()  
On Error GoTo Err_cmdDeleteCustomer_Click 

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 

Exit_cmdDeleteCustomer_Click: 
Exit Sub 

Err_cmdDeleteCustomer_Click: 
MsgBox Err.Description 
Resume Exit_cmdDeleteCustomer_Click 
End Sub 

Answer 1

ウィザードコードを使用しています。それは非常に悪く、いつか非難されています。新しいバージョンはDoCmd.RunCommandです。サブフォームの場合、コマンドボタンから小さなSQLを実行する方が簡単です。

Dim db As Database 
Dim sSQL As String 

Set db = CurrentDB 
sSQL = "DELETE FROM MyTable WHERE ID =" & Me.MyNumericIDControlName 
db.Execute sSQL, dbFailOnError 

MsgBox "Deleted " & db.RecordsAffected