Form1 De Buton İle Form2 Den Kayıt Sil

1 2
18/01/2019, 19:59

zaferlacin

özür diliyorum çalıştı hocam hatanın ne olduğunu siz anladınız 
18/01/2019, 20:09

ozanakkaya

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
18/01/2019, 20:11

ozanakkaya

Ayrıca lütfen Profil Bilgilerinizi güncelleyiniz.
18/01/2019, 20:26

zaferlacin

tek kelime süper teşekkür ederim hocam
1 2