27/01/2017, 00:09
Dim mesaj
mesaj = MsgBox("Kayıtlar İmha Ediecek... Emin misiniz?", vbYesNo)
If mesaj = vbYes And Tliste.not = "İmha Edilecek" And Tliste.imhaedildimi = False Then
CurrentDb.Execute "UPDATE Tliste SET tliste.imhaedildimi=TRUE"
Tliste.aciklama = Date + "" + "İmha Edildi. "
MsgBox ("Kayıtlar İmha Edildi.İyi Çalışmalar...")
ElseIf mesaj = vbNo Then
MsgBox ("Kayıtlar İmhasından Vazgeçildi...")
End If
şeklinde bir kod yazdım burada yazım hatam nedir. sürekli run time error 424 hatası alıorum
mesaj = MsgBox("Kayıtlar İmha Ediecek... Emin misiniz?", vbYesNo)
If mesaj = vbYes And Tliste.not = "İmha Edilecek" And Tliste.imhaedildimi = False Then
CurrentDb.Execute "UPDATE Tliste SET tliste.imhaedildimi=TRUE"
Tliste.aciklama = Date + "" + "İmha Edildi. "
MsgBox ("Kayıtlar İmha Edildi.İyi Çalışmalar...")
ElseIf mesaj = vbNo Then
MsgBox ("Kayıtlar İmhasından Vazgeçildi...")
End If
şeklinde bir kod yazdım burada yazım hatam nedir. sürekli run time error 424 hatası alıorum