form alt liste silme hatası

14/01/2014, 22:55

bulenttum

arkadaşlar musteriler formumun içinde liste384 liste kutusu var bu liste kutusuna çift tıkama ile silmek istiyorum fakat ana formumun veri tabanındaki dosyaları siliyor çift tıklama için kullandığı kod

If MsgBox("Kayıt Silinsin mi?", vbYesNo, "Siliniyor...") = vbYes Then
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
Liste384.Requery
Else
Me.Undo
End If

bu konuda yardım edebilirmisniz
14/01/2014, 23:48

POWER

Aşağıdaki komut dizinini uygularmısın...

Private Sub Liste384_DblClick(Cancel As Integer)
Dim Sql As String
If MsgBox("Kayıt Silinsin mi?", vbYesNo, "Siliniyor...") = vbYes Then
DoCmd.SetWarnings False
SQL = "Delete * FROM mahal_sikayet WHERE Kimlik=" & Me.Liste384
DoCmd.RunSQL SQL
DoCmd.SetWarnings True
Liste384.Requery
Else
Me.Undo
End If
End Sub

Lütfen olumlu veya olumsuz geri dönüş yapınız...
15/01/2014, 10:23

bulenttum

hocam teşekkürler emeğine sağlık oldu