Access - cuantos resultados obtengo en una consulta

hola a todos,

tengo que imprimir registro a registro en un informe para exportarlo a un archivo diferente.

la unica manera que se me ha ocurrido es hacer un boton en el formulario imprimir con el siguiente codigo

dim a as integer
dim b as integer
b=1
a= ' esto es lo que habria de saber
while b<=a
docmd.gotorecord , , acnext
docmd.openreport"[consulta], acviewnormal, "", "[consulta][campo]=! & me.clave & " ' "
b=b+1
wend

pero para poder realizar esto necesito saber cuantos resultados ha obtenido la consulta
alguien me puede ayudar?

o en su defecto proponer otra manera de hacerlo?

muchas gracias por vuestro tiempo

Hola cpu:
Sin entrar en si es la forma más correcta de hacerlo, te indico como obtener previamente el valor de "a" :

Dim rst As DAO.Recordset, a As Integer
Set rst = CurrentDb.OpenRecordset("Select Campo From Consulta Where Campo='" & Me.Clave & "'")
a = rst.RecordCount
rst.Close: Set rst = Nothing

CAMPO en la Tabla y CLAVE en el Formulario, tienen que ser de tipo texto, ya que según veo pones CLAVE entre comillas simples. Tambien necesitas tener marcada la Referencia de DAO: Microsoft DAO 3.6 Object Library.

Saludos

muchisimas gracias, ha funcionado.

saludos

Yo tengo el problema de que mis consultas de hecho usando el ejmplo que pones solo me regresa un registro, cuando de hecho yo tengo muchos en una tabla, no puedo usar ado porque ya tengo abierta la base, como puedo traer la cantidad real de registros y no nomas el primero en access?, gracias.