vba kodda hata

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

lütfen örnek eklermisiniz

ana sayfadan raporlar bölümü  imha et butonu

sayın hknct,

EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

bilginize...iyi çalışmalar,saygılar.

teşekkürler sorun çözüldü

Hatalari acik acik konuya yazsaniz daha iyi olmazmi.
mesala tliste.not, tliste.imhaedildimi bu kodlar neyin nesi