Guru do Excel e Power BI

Hey galera, beleza?

Estou com uma dificuldade para realizar um loop no meu VBA.

Eu busco a informação no banco e preencho os dados de acordo com o ID, todavia, ele fica repetindo sem parar.O problema esta no frmLocalizar na Private Sub lstCliente_DblClick(ByVal Cancel As MSForms.ReturnBoolean).

Douglas, percebi que na rotina que você citou tem um loop que só para quando chega no final do recordset
o problema é que dentro do loop tem uma condição que sempre volta o recordset pro início
Desta maneira o loop nunca chegará ao final.

Laennder, eu uso o MoveFirst porque preciso que ele olhe linha a linha do banco e adiciona, e só consegui adcionando o MoveFirst.

laennder escreveu:Douglas, percebi que na rotina que você citou tem um loop que só para quando chega no final do recordset

Código: Selecionar todos

Do While rsConsulta.EOF = False

o problema é que dentro do loop tem uma condição que sempre volta o recordset pro início

Código: Selecionar todos

rsConsulta.MoveFirst

Desta maneira o loop nunca chegará ao final.

Laennder, eu uso o MoveFirst porque preciso que ele olhe linha a linha do banco e adiciona, e só consegui adcionando o MoveFirst, mas eu tirei ele e continuou da mesma forma.