Hocam oncelıkle tsk ederım ama bır komut dugmesı ıle yaparsam kullanıcılar zorluk yasamayacaktır. Bu asagıdakı kodu yazdım fakat yıne olmuyor.

Private Sub Komut30_Click()

cevap = MsgBox("Seçilen kayıt silinecek devam edilsin mi?", vbYesNo + vbQuestion, "DİKKAT")

    If cevap = vbYes Then

    

        DoCmd.SetWarnings False

        DoCmd.RunCommand acCmdDeleteRecord

        DoCmd.SetWarnings True

        ElseIf cevap = vbNo Then

        MsgBox ("Kayıt Silinmedi")

        End If

End Sub