form alt liste silme hatası

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

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

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