하위 폼의 행 삭제

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