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
#1
