Kod:
Dim stDocName
cevap = MsgBox("Silmek İstiyor musunuz", vbYesNo)
If cevap = 6 Then
DoCmd.SetWarnings (False)
stDocName = "Silme_Kullanıcı _Gırıs_Cıkıs"
DoCmd.OpenQuery stDocName, acNormal, acEdit
MsgBox "İstenen Kayıtlar silindi"
Else
MsgBox "İşlem iptal edildi"
DoCmd.SetWarnings (True)
Exit Sub
End If