Kayıt Silme Hatası

1 2
08/09/2017, 11:02

burhanb

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
08/09/2017, 11:35

C*e*l*o*y*c*e

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.
08/09/2017, 11:46

direnist

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
08/09/2017, 13:25

burhanb

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, 13:27

burhanb

(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.
08/09/2017, 13:42

direnist

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.
1 2