Hola amigos!


Tengo en una misma rutina dos bucles, o almenos es lo que intento, uno para recorrer los rst de una tabla e insertar los registros en un listview y otro para hacer correr un progressbar pero no logro hacer que marche, aver si pueden echarme una mano y decirme donde tengo el error:


Dim cuantoshay As Integer
Dim contadorfor As Integer
Dim lrg As Double
Dim intv As Double
Dim ctat As Integer
Dim prct As Integer
Dim sql As String
Dim rst As DAO.Recordset
Dim lstitem As ListItem
Dim indice As Long
Dim empresa As Integer

indice = indice + 1
empresa = Mid(Val(MDIForm1.lblempresa.Caption), 1, 4)
Me.ListView1.View = 3

DBpath = App.Path & "\Datos\tablas.mdb"
 strsql = "SELECT * FROM tbl_empleados where empresa=" & empresa
  Set db = DBEngine.OpenDatabase(DBpath, False, False, ";pwd=" & MiPass)
    Set rst = db.OpenRecordset(strsql)
 
rst.MoveFirst
 rst.MoveLast

cuantoshay = rst.RecordCount

For contadorfor = 0 To cuantoshay - 1

'ACA RECORRO LOS RST Y LOS INSERTO EN EL LISTVIEW PERO SOLO
ME INSERTA EL PRIMERO Y LUEGO NADA
Do Until rst.EOF
Set lstitem = Me.ListView1.ListItems.Add(indice, , rst("legajo"))
    ListView1.ListItems(indice).ListSubItems.Add , , Me.txtconcepto.Text
    ListView1.ListItems(indice).ListSubItems.Add , , Me.lblconcepto.Caption
rst.MoveNext
Loop
   
 

Me.lblporcentaje.Visible = True
Me.progreso.Visible = True

lrg = Me.ancho.Width 'para el ancho total al que debe llegar la barra de progres
intv = lrg / cuantoshay 'valor por cada archivo

            ctat = ctat + 1 'valor 1
            prct = (ctat / cuantoshay) * 100 'porcentaje 1
           
            Me.progreso.Visible = True
            Me.progreso.Width = ctat * intv 'el progreso es desde 1 * intv
            Me.lblporcentaje.Caption = prct & " %" 'muestra el porcentaje transcurrido
           
Next

La barra corre bien por que inserte un msgbox antes del next para constatar que no tuviera el problema ahi pero no, asi que no logro dar con la solucion, por otro lado tambien intente hacer los dos procesos por separado pero en caso de que se produsca un error o inconveniento uno de los procesos terminaria antes que el otro y no se veria profesional, desde ya muchas gracias por su ayuda y por su atencion.

cobein seguramente lo de


es para depsues poder utilizar el recordcount, ya que en algunas webs dice q folo funciona cuando se esta en el ultimo registro, tonces hay que hacer un rst.MoveLast y que a veces ni asi funciona
yo creo q todo es mie*da, y utilizo algo mas sencillo

asi que mdg utiliza esto para contar los registros, seguro y rapido


la variable TotalReg contiene la cantidad de registros.

espero te sirva, adios

me alegro por ti
cualquier duda pregunta