Skip to main content

AccessTr.neT


Kayıt Silme Hatası

Kayıt Silme Hatası

Çözüldü #1
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
Cevapla
#2
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.
Cevapla
#3
Merhaba;
Celoyce Hocamızın çözümüne alternatif olarak aşağıdaki kod  da olur sanırım.
İyi çalışmalar.

Visual Basic Code
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
Cevapla
#4
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.
Cevapla
#5
(08/09/2017 11:35)C*e*l*o*y*c*e Adlı Kullanıcıdan Alıntı: 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.
Cevapla
#6
Merhaba;
Visual Basic Code
If MsgBox("Bu Kayıdı Silmek İstiyormusunuz?", vbYesNo , "Kayıt Silme") = vbYes Then
kod satırını aşağıdaki ile değiştiriniz.
Visual Basic Code
If MsgBox("Bu Kayıdı Silmek İstiyormusunuz?", vbYesNo + vbDefaultButton2, "Kayıt Silme") = vbYes Then
İyi çalışmalar.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da