使用Dcount条件访问VBA循环

Question

rcount = DCount("F1", "T1")

Do While rcount > 0

DoCmd.OpenQuery "q1"

Loop

Can anyone tell me while this code won't work? It loops through, but seemingly ignores the condition of rcount > 0

Answer 1

Update the value of rcount after you execute the delete query.

rcount = DCount("F1", "T1")

Do While rcount > 0
    'DoCmd.OpenQuery "q1"
    CurrentDb.Execute "q1", dbFailOnError
    rcount = DCount("F1", "T1")
Loop

Note by using CurrentDb.Execute instead of DoCmd.OpenQuery , you can avoid the confirmation messages without turning SetWarnings off. And it also allows you to use dbFailOnError which will notify you about problems which would otherwise fail silently.

However I don't understand why you want to delete all the T1 records one at a time when you could remove them all at one go ...

CurrentDb.Execute "DELETE FROM T1;", dbFailOnError