Bu eski ve cevaplanmış bir bir konu.
Yeni konu açıp örneğinizi de paylaşırsanız, yardımcı olabiliriz.
Ayrıca soru sorduğunuz diğer konuda kod örneğim var.
Ek olarak. Döngüye alarak yapabilirsiniz.
Kod:
Dim rs As New ADODB.Recordset
rs.Open "anatablo", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.Find "[id]=" & id
do until rs.eof
rs.Delete
rs.movenext
loop
rs.Close
Liste1.Requery