simplificação de Do Wile

[Amadeufm 0]

CODE

REC.MoveFirst

Do While Not REC.EOF

REC1.MoveFirst

Do While REC1!IdOrdemManutencao <> REC!IdOrdemManutencao
REC1
Loop

With REC1
.Clone
!ProducaoActualManutencao = !ProducaoActualManutencao + 1
!ProducaoParcuialManutencao = !ProducaoParcialManutencao + 1
.Update
End With

REC.MoveNext

Loop

existe alguma forma para melhorar esta parte do codigo, é que por vezers demora muito tempo a ser percorrido o pedaço deste código?

[christianhess 0]

tudo isso depende do seu select.. você nao tem como mineirar mais os dados lá? as vezes é necessario um grande carregamento de dados.. para nao deixar o usuario na espectativa e logo dar um crtl + alt + del.. coloque um progressbar.. ajuda muito para leigos.. caso contrario é quase certo um banco corrompido..

nao tem mais um pedaço de codigo para visualizar a sua ideia?