No es tan complicado, hay ejemplos de Eduardo Olaz y de Chea que te hacen
eso, yo partiendo de esos ejemplos he creado este:
'---------------------------------------------------------------------------------------
' Procedimiento : contador
' Fecha y hora : 14/04/2006 13:41
' Autor : JuanK
' Proposito : Contador variable para consultas
' Parte de una idea de Eduardo Olaz y otra de Chea,
aumentando con la
' opción de mantener contador parcial en función de cosa ;-)
'---------------------------------------------------------------------------------------
'
Public Function contador(cosa As Variant) As Long
Static n As Long
Static cosas As Variant
On Error GoTo contador_Error
If cosas = cosa Then
contador = n + 1
Else
contador = 1
End If
cosas = cosa
n = contador
On Error GoTo 0
Exit Function
contador_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & _
") en el procedimiento contador "
End Function
--
Colabora con el grupo, contesta a este mensaje y dinos si te sirvió o no la
respuesta dada.
Muchas gracias.
Salu2
***@nK [MVP Access] [DCE2003 ***] + VSTO [DCE2005 **]
www.juank.tk
www.mvp-access.com
¿Que es un MVP?, enterate en http://mvp.support.microsoft.com
<***@gmail.com> escribi� en el mensaje news:***@v46g2000cwv.googlegroups.com...
Hola:
El asunto es complicado.
¿Porqué no presentas el resultado de la consulta en un informe? Ahí
si puedes hacerlo.
Saludos,
CarCar