+- 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 sılme sorunu (/konu-kayit-silme-sorunu.html)
Cvp: kayıt sılme sorunu - Kur@l - 02/04/2011
Sayın Kanlıtoprak;
Aşağıdaki kodu şahıs tablonuzdaki sil düğmesinin kodu ile değiştirin.
Kolay Gelsin.
Private Sub SİL_Click()
If MsgBox("SEÇTİĞİNİZ ŞAHSA AİT TÜM KAYITLAR SİLİNECEKTİR EMİN MİSİNİZ ?", vbYesNo) = vbYes Then
DoCmd.SetWarnings False
CurrentDb.Execute " delete FROM tbl_infaz where [ŞAHIS KODU]=" & Me.SIRA_NO.Value
CurrentDb.Execute " delete FROM tbl_MUZEKKERE where [SIRA NO]=" & Me.SIRA_NO.Value
CurrentDb.Execute " delete FROM [TBL_SAHıs] where [SIRA NO]=" & Me.SIRA_NO.Value
DoCmd.SetWarnings True
End If
End Sub
Cvp: kayıt sılme sorunu - kanlitoprak - 02/04/2011
hocam kodda CurrentDb hata veriyor hata verdiği kelime "CurrentDb "bu
Cvp: kayıt sılme sorunu - Kur@l - 02/04/2011
O halde Şu şekilde deneyin olacaktır.
Kolay gelsin.
Private Sub SİL_Click()
If MsgBox("SEÇTİĞİNİZ ŞAHSA AİT TÜM KAYITLAR SİLİNECEKTİR EMİN MİSİNİZ ?", vbYesNo) = vbYes Then
DoCmd.SetWarnings False
DoCmd.runsql " delete FROM tbl_infaz where [ŞAHIS KODU]=" & Me.SIRA_NO.Value
DoCmd.runsql " delete FROM tbl_MUZEKKERE where [SIRA NO]=" & Me.SIRA_NO.Value
DoCmd.runsql " delete FROM [TBL_SAHıs] where [SIRA NO]=" & Me.SIRA_NO.Value
DoCmd.SetWarnings True
End If
End Sub
Cvp: kayıt sılme sorunu - kanlitoprak - 02/04/2011
hocam bu seferde
compile error:
expected end of statement
DoCmd.runsql hata verdiği kelime bu
Cvp: kayıt sılme sorunu - Kur@l - 02/04/2011
Çalışan örnek ektedir.
Kolay Gelsin.
Cvp: kayıt sılme sorunu - kanlitoprak - 02/04/2011
hocam elinize sağlık tam istediğim gibi olmus ancak silme işleminden sorna kutularda #silindi diye yazması biraz can sıkıcı bunu halledebiliyorum çıkıp tekrar girince gidiyor ancak başka yöntemi varsa öğrenebilirmiyim ayrıca tekrar teşekkürler