02/02/2005, 09:51
|
 | | | Fecha de Ingreso: agosto-2004 Ubicación: Santa Rosa, La Pampa, Argentina
Mensajes: 1.484
Antigüedad: 21 años, 2 meses Puntos: 13 | |
Ok, a ver si te sirve
Código:
RsGuia.Movefirst
X = 1
PBar.Value = 0 'Pbar=La barra de progreso
Do while RsGuia.Eof<>True
'Codigo de proceso de datos
X = X + 1
PBar.Value = CByte(X * 100 / RsGuia.Recordcount)
DoEvents 'Este es importante...
Loop
Saludos. Lucas |