Contador de registros en consulta Access

[Carbontek]

Hola,

Mi problema es que no funciona el código (al activar un formulario) que lo que tendria que hacer es contar los registros de dos consultas diferentes para despues mostrar el numero de ellos en el un par de campos del formulario.

Código:

Private Sub Form_Current()

Dim db As Database
Dim rst1 As Recordset
Dim rst2 As Recordset

Set db = CurrentDb()
Set rst1 = db.OpenRecordset("qry_Rf_Nr", dbOpenDynaset)
Set rst2 = db.OpenRecordset("qry_Rf_Verlieren", dbOpenDynaset)

rst1.MoveLast
rst2.MoveLast

Me![StBest] = rst1.RecordCount
Me![StLager] = rst2.RecordCount

End sub

El problema es que el código se detiene antes de acceder a las consultas y no entiendo porqué.

Muchas gracias por vuestra ayuda.

[jrp01]

Bueno yo lo hago asi

dim cn as new adodb.connection
dim rs as new adodb.recordset
dim rs1 as new adodb.recordset
dim sentencia as string
cn.open "Tu cadena de conexion"
sentencia="Select count(*) from tu_tabla1"
set rs=cn.execute(sentencia)
sentencia="Select count(*) from tu_tabla2"
set rs1=cn.execute(sentencia)
text1.text=rs(0)
text2.text=rs1(0)
set rs=nothing
set rs1=nothing
cn.close

Espero que te sirva

[Carbontek]

Gracias jrp01,

Resulta que enredando me he dado cuenta de que si en vez de una consulta utilizo una tabla, entonces funciona perfectamente.

Alguien me puede explicar porqué.

Necesito contar los recordset de la consulta!

Gracias.

[Teri]

El problema puede ser muy variado, y por varias razones, una de ellas, y sin entrar en mucho detalle es que se estén bloqueando ambas consultas, es sólo suponer, ya que no conozco las consultas, ni que hacen cada una de ellas...

Una forma de obtener el total de filas podría ser utilizar la función dcount(), no tienes que abrir ningún recordset, y te hace el código más sencillo

Un saludo

[Carbontek]

Efectivamente puede ser algo de eso... las dos consultas filtran los valores de una misma tabla.

Al final he resulto el problema con un par de contandores i=i+1 dentro de un if con las mismas condiciones que las consultas.

Este método funciona pero es muy lento porque tiene que acceder dos veces a una tabla con unos 5000 registros.

Cómo se utilza la función dcount()? sin abrir los recordset. Cómo le digo donde tiene que contar?

Muchas gracias!

[Teri]

dCount("Campo","Tabla","Filtro") no necesitas abrir los recordset, sólo necesitas indicar el nombre de la consulta y ya está...

Me![StBest] = dcount("1", "qry_Rf_Nr")
Me![StLager] = dcount("1", "qry_Rf_Verlieren")


Un saludo

[Carbontek]

Muchas gracias Teri!