AccessTr.neT

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

hocam kodda CurrentDb hata veriyor hata verdiği kelime "CurrentDb "bu

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

hocam bu seferde
compile error:
expected end of statement

---

DoCmd.runsql hata verdiği kelime bu

Çalışan örnek ektedir.
Kolay Gelsin.

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