Mais uma vez preciso da ajuda de vocês do forum,

tenho 2 tabelas e um loop em cada uma

do until rsdados.eof

do until rsdados2("cod") > rsdados("cod")

rsdados2.movenext
loop
rsdados.movenext
loop

mas quando termina o primeiro loop de resados2 o programa diz que não existem mais registros...
como faço para usar a tabela novamente a partir dos dados que ainda não usei, continuando o loop com rsdados?

tente isso:

do until rsdados.eof
    do until rsdados2("cod") > rsdados("cod")
        rsdados2.movenext
    loop
    rsdados2.movefirst
    rsdados.movenext
loop

Olá!!!

Tente isto:

rsdados.first

do until rsdados.eof
    do until rsdados2("cod") > rsdados("cod")
        rsdados2.movenext
    loop
    rsdados.movenext
loop

Espero ter ajudado.


Sucesso!

Com o movefirst até da certo mais não queria começar da tabela tudo de novo, queria continuar no registro...

1º) Se esta indo até o fim da tabela é porque esta condição esta sendo satisfeita.

quote:

do until rsdados2("cod") > rsdados("cod")

2º) Eu imagino mais o menos o que vc precisa e se for o que estou pensando há outros meios de se fazer isso, pode detalhar sua necessidade (porque vc esta fazendo estes loop´s)?

Rogerio,

Tenho 2 tabelas: com os campos código, descrição e mes.
Tenho que comparar as duas e saber qual mês inserir os dados da primeira na segunda..

tab 1 tab 2
cod desc jan fev mar... cod desc mes


Desta forma eu comparo a tabela 2 com a 1 para ir inserindo os dados no mes correto que estão no campo mês. essa tabela 2 tem repetições que somo, para então inserir na 1.
Por isso peciso dos 2 loops, um para cada tabela, para ir encontrando o cod associado, mas está muito lento da forma q estou fazendo, percorrendo as duas usando o rsdados.movefirst, visto que ela sempre compara uma com toda a outra. O problema é só a lentidão.

Olha, é mais ou menos o que pensei que fosse, por isso não acho que faça sentido ficar fazendo loops, é só usar sql: algo parecido com isso:

currentdb.execute("Insert into tabela1 (select sum(campo) from tabela2 inner join tabela1 on tabela2.cod = tabela1.cod)")

Vou tentar

Muito Grata