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