[Resolvido]Loop para Consulta Acrescentar

Tenho uma Consulta(Motor01) com somente um campo(QuantidadeLancamentos), que conta quantos registros atendem a determinados critérios, trata-se de uma consulta de outra consulta.
Preciso que um Looping no VBA execute a consulta acrescentar(Motor01-02) até que o campo(QuantidadeLancamentos) fique zerado.

OBS. Consulta acrescentar(Motor01-02) alimenta a tabela que é a origem dos dados da consulta(Motor01).

Sistema Operacional Windows 7, Access 2003

Desde já agradeço a ajuda.

Conte os registros da cnsulta... e utilize o valor em um for...

Dim lngCount as integer
Dim x as  integer
lngLong = Dcount("*","SuaConsulta")

For x = 1 to lngLong
   DoCmd.RunQuery.....
Next x


Talvez seja isto.


Cumprimentos.

A informação dada foi de grande valia. Parabéns pela iniciativa do fórum. Muito obrigado.

Testei o código e o tempo de execução ficou alto para a quantidade de registros de minha consulta. A impressão é de um loop infinito.
Modifiquei para o comando While e o resultado foi muito melhor. A saber:


Dim lngLong As Integer
Dim x As Integer
lngLong = DCount("*","SuaConsulta")

Do While lngLong > 1
DoCmd.OpenQuery.....
lngLong = DCount("*", "SuaConsulta")

Loop

Resolveste então?

Caso tenha resolvido não se esqueça de clicar no botão de resolvido e no joinha da mensagem que o auxiliou.

Cumprimentos.