Как программно нажать кнопку?

Private Sub ÊíîïêàÓäàëèòü_Click()
Form_Ñîñòîÿíèå_ÒÅ.AllowEdits = True
Form_Ñîñòîÿíèå_ÒÅ.AllowDeletions = True

On Error GoTo Err_ÊíîïêàÓäàëèòü_Click

Forms![Ñîñòîÿíèå_ÒÅ_ñöåïêà-ðåäàêòèðîâàòü]![Ñöåïêà-ïîä÷èíåííàÿ_ôîðìà].Form![Ñîñòîÿíèå_ÒÅ-ïîä÷èíåííàÿ ôîðìà].Form.[Òð_åä].SetFocus
Forms![Ñîñòîÿíèå_ÒÅ_ñöåïêà-ðåäàêòèðîâàòü]![Ñöåïêà-ïîä÷èíåííàÿ_ôîðìà].Form![Ñîñòîÿíèå_ÒÅ-ïîä÷èíåííàÿ ôîðìà].Form.ÊíîïêàÓäàëèòü__Click

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

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

Form_Ñîñòîÿíèå_ÒÅ.AllowEdits = False
Form_Ñîñòîÿíèå_ÒÅ.AllowDeletions = False

Exit_ÊíîïêàÓäàëèòü_Click:
    Exit Sub

Err_ÊíîïêàÓäàëèòü_Click:
    MsgBox Err.Description
    Resume Exit_ÊíîïêàÓäàëèòü_Click
End Sub

Public Sub ÊíîïêàÓäàëèòü__Click()
Form_Ñîñòîÿíèå_ÒÅ.AllowEdits = True
Form_Ñîñòîÿíèå_ÒÅ.AllowDeletions = True
On Error GoTo Err_ÊíîïêàÓäàëèòü_Click

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

Form_Ñîñòîÿíèå_ÒÅ.AllowEdits = False
Form_Ñîñòîÿíèå_ÒÅ.AllowDeletions = False

Exit_ÊíîïêàÓäàëèòü_Click:
    Exit Sub

Err_ÊíîïêàÓäàëèòü_Click:
    MsgBox Err.Description
    Resume Exit_ÊíîïêàÓäàëèòü_Click
End Sub