Loop Infinito

[§uiciDa£]

ae galera sempre quando eu tnto executar esse codigo ele fik preso num loop infinito...porque ?

Private Sub Calendar1_Click()
conm.Open "Select * From consultas where dia = '" & Calendar1.Day & "' and mes = '" & Calendar1.Month & "' and ano = '" & Calendar1.Year & "'", con

i = 0

Do While not conm.eof
consultas_cb.AddItem conm.Fields("paciente") & " -- " & conm.Fields("hora inicio") & ":" & conm.Fields("minuto inicio")
Loop

conm.Close
End Sub

e eu já tentei com

Do While i < conm.recordcount

mais também num da...porque ??

vlww

t+

[Graymalkin]

Simplesmente porque você não manda que ele vá para o próximo registro com...

conm.MoveNext

... dentro do loop. Se você não fizer isso, eof nunca será alcançado e o código será executado indefinidamente.

Abraços,

Graymalkin

[§uiciDa£]

Nusssssssq burro HUAUHaUaauhahu

disfarça hehehe, acontece

vlww ae cara

t+