Kayıt Silme Hatası - Baskı Önizleme

Kayıt Silme Hatası - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kayıt Silme Hatası (/konu-kayit-silme-hatasi--83238.html)

Sayfalar: 1 2

Kayıt Silme Hatası - burhanb - 08/09/2017

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

Cvp: Kayıt Silme Hatası - C*e*l*o*y*c*e - 08/09/2017

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.

Cvp: Kayıt Silme Hatası - direnist - 08/09/2017

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

Cvp: Kayıt Silme Hatası - burhanb - 08/09/2017

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.

Cvp: Kayıt Silme Hatası - burhanb - 08/09/2017

(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.

Cvp: Kayıt Silme Hatası - direnist - 08/09/2017

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.