özür diliyorum çalıştı hocam hatanın ne olduğunu siz anladınız
Kodun tamamını aşağıdaki ile değiştirerek dene,
Dim GVeriVarmi As Integer
GVeriVarmi = Nz(DCount("[kimlik]", "Tablo2", "[adı]&"" ""&[soyadı]='" & Me.Liste53.Column(1) & " " & Me.Liste53.Column(2) & "'"), 0)
If GVeriVarmi > 0 Then
If MsgBox(Me.Liste53.Column(1) & " " & Me.Liste53.Column(2) & " isimli şahsın bilgileri silinsin mi?", vbYesNo) = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE [adı] & '-' & [soyadı] AS silinecekveri FROM Tablo2 WHERE ((([adı] & ' ' & [soyadı])='" & Me.Liste53.Column(1) & " " & Me.Liste53.Column(2) & "'));"
DoCmd.SetWarnings True
Else
MsgBox ("Silme İşlemi İptal Edildi")
End If
Else
MsgBox (Me.Liste53.Column(1) & " " & Me.Liste53.Column(2) & " isimli şahıs bulunamadı")
End If
tek kelime süper teşekkür ederim hocam