Kayıt Silme Hatası

merhaba. cursorün aktif olduğu satırı silerken sorun yok.
yanlışlıkla yeni kayıt satırında silme butonuna bastığımda hata mesajı alıyorum.
hata mesajı gelmeden kullanıcıya boş kayıt silinemez mesajı vermek istedim.
yapamadım

yardımlarınız için teşekkürler.
gelen hata mesajı "run time error 2046"   Access hata meja çiktıktan sonra kod ekranına geçmesini istemiyorum

-******-***********
Private Sub Command72_Click()
If MsgBox("Bu Kayıdı Silmek İstiyormusunuz?", vbYesNo, "Kayıt Silme") = vbYes Then
        DoCmd.RunCommand acCmdDeleteRecord
    Else
    txtCurrentRecord.SetFocus
End If

End Sub

merhaba 
örnegini ekleseydin daha net cevap olurdu ama yinede,Müsterino yoksa,boşsa uyarı vermesi yapılabilir.

Private Sub Command72_Click()
 If txtmusno.Text = "" Then

            MsgBox("Silmek için önce Kayıt seçmelisin..!", MsgBoxStyle.Information, "Sil Seç")
            Exit Sub
        End If


If MsgBox("Bu Kayıdı Silmek İstiyormusunuz?", vbYesNo, "Kayıt Silme") = vbYes Then
        DoCmd.RunCommand acCmdDeleteRecord
    Else
    txtCurrentRecord.SetFocus
End If

End Sub

kodları kendine uyarlayarak yapabilirsiniz.

Merhaba;
Celoyce Hocamızın çözümüne alternatif olarak aşağıdaki kod  da olur sanırım.
İyi çalışmalar.

On Error GoTo hata

    If MsgBox("Bu Kayıdı Silmek İstiyormusunuz?", vbYesNo, "Kayıt Silme") = vbYes Then

            DoCmd.RunCommand acCmdDeleteRecord

    Else

        txtCurrentRecord.SetFocus

    End If

Exit Sub

hata:

    MsgBox "Buraya vermek istediğiniz mesajı yazın.", vbCritical

Resume Next

merhaba.

arkadaşım teşekkürler.

oldu. şunu yapabilirmiyim.

silme butonuna bastığımda evet / hayır butonu çıkıyor.  fakat.  evet seçili   

hayır seçili yapabilirmiyim.

(08/09/2017, 11:35)C*e*l*o*y*c*e yazdı: merhaba 
örnegini ekleseydin daha net cevap olurdu ama yinede,Müsterino yoksa,boşsa uyarı vermesi yapılabilir.

Private Sub Command72_Click()
 If txtmusno.Text = "" Then

            MsgBox("Silmek için önce Kayıt seçmelisin..!", MsgBoxStyle.Information, "Sil Seç")
            Exit Sub
        End If


If MsgBox("Bu Kayıdı Silmek İstiyormusunuz?", vbYesNo, "Kayıt Silme") = vbYes Then
        DoCmd.RunCommand acCmdDeleteRecord
    Else
    txtCurrentRecord.SetFocus
End If

End Sub

kodları kendine uyarlayarak yapabilirsiniz.

teşekkür ederim.

Merhaba;

If MsgBox("Bu Kayıdı Silmek İstiyormusunuz?", vbYesNo , "Kayıt Silme") = vbYes Then

kod satırını aşağıdaki ile değiştiriniz.

If MsgBox("Bu Kayıdı Silmek İstiyormusunuz?", vbYesNo + vbDefaultButton2, "Kayıt Silme") = vbYes Then

İyi çalışmalar.