arkadaşlar, kolaylıklar diliyorum herkese, lütfen, rica etsem bu konuda yardımcı olur musunuz?

For i = 1 To Me.listbox1.ListCount
Dim a, b As Integer


Dim cm, cn As String
cm = Me.listbox1.Column(1, i)

a = Dlookup ("Kimlik", "mkys", "mkysTkl='" & cm & "'")



DoCmd.RunSQL "delete mkys.* from nucleus where ((mkys.Kimlik)=" & a & ")" burada hata veriyor

DoCmd.RunSQL "delete mkys.* from nucleus where mkys.Kimlik=" & a & "" şeklinde deneyin

(16/03/2022, 11:22)C*e*l*o*y*c*e yazdı: DoCmd.RunSQL "delete mkys.* from nucleus where mkys.Kimlik=" & a & "" şeklinde deneyin

eksik işleç hatası veriyor bu da

a = Dlookup ("Kimlik", "mkys", "mkysTkl='" & cm & "'")
Buradaki a değerini kontrol ettiniz mi?
Boş değer gönderiyor olabilir

(16/03/2022, 11:56)berduş yazdı: a = Dlookup ("Kimlik", "mkys", "mkysTkl='" & cm & "'")
Buradaki a değerini kontrol ettiniz mi?
Boş değer gönderiyor olabilir

ettim msgbox ile , sıkıntı yok, acaba nerede hata var

Çalışmanızı ekleyin inceleyelim