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