Recuento de registros en la tabla de acceso utilizando VBA

Question

Estoy tratando de obtener el recuento de registros de una tabla, y si el conteo es mayor que 17, cree una nueva tabla.

Dim rst As DAO.Recordset 
strSQL = "Select * from SKUS" 
Set rst = db.OpenRecordset(strSQL) 

If rst.RecordCount > 17 Then 
    Set tdf = db.CreateTableDef("161-0363") 

    Set fld = tdf.CreateField("SKUS", dbText, 30) 
    tdf.Fields.Append fld 

    Set fld = tdf.CreateField("Count", dbInteger) 
    tdf.Fields.Append fld 

    db.TableDefs.Append tdf 
End If 

Este código no crea una nueva tabla, pero cuando cambio la sentencia if para esto, funciona:

... 
If rst.RecordCount > 0 Then 
    Set tdf = db.CreateTableDef("161-0363") 
... 

Así que el RecordCount devuelve 1, pienso. ¿Por qué está pasando esto? Sé con certeza que la mesa tiene 18 filas.
¿Alguien puede ayudarme?

Answer 1

Debe forzar el conjunto de registros para moverse a través de todas las filas para obtener un conteo preciso. Prueba esto:

... 
Set rst = db.OpenRecordset(strSQL) 

rst.MoveLast 
rst.MoveFirst 
If rst.RecordCount > 17 Then 
... 

A menos que usted está haciendo algo más con el conjunto de registros que no se está mostrando en el fragmento, se puede simplificar el código con sólo hacer una comprobación de la cuenta de registro utilizando la función de recuento de dominio:

If DCount("*", "SKUS") > 17 Then 

Answer 2

El problema con strsql es que cuando la cadena representa una consulta de parámetros, el código anterior no funciona.

En este caso me gustaría utilizar un medidor en el código simplificado como a continuación:

rs.movelast 
X = rs.recordcount 
Rs.movefirst 
Do until rs.eof 
    For i = 1 to X 
     If i<=17 then 
      Do things 
     Else 
      Do things 
     End if 
    Next i 
Loop