Contar registros al filtrar

[charrogar]

ACCES 2003
tengo el siguiente codigo

Private Sub Form_Open(Cancel As Integer)
Dim Cuantos
Cuantos = DCount("*", "[juradopremiosconsulta]")
me.labelcontador=cuantos
end sub
Con ellos se los registros que contiene la tabla y se refleja en labelcontador
Lo que trato de conseguir es que cuando aplico un filtro por seleccion me
recuente y me indique los registros que se visualicen en labelcontador.
Lo que hago es que me situo en el objeto que tiene asignado el campo [año] y
que se llama cuando, mediante un menu contextual aplico el filtro por
seleccion sobre el campo asignado a ese objeto([año] )
En el evento al aplicar filtro del formulario pongo esto
Dim Cuantos
Cuantos = DCount("[año]", "[juradopremiosconsulta]",[año]=me.cuando)
me.labelcontador=cuantos
con esto creo que estaria haciendo un filtro sobre un año en cuestion y con
el codigo anterior trato de que me diga cuantos registros son de ese año y lo
refleje en el objeto labelcontador, pero el hecho es que no recuenta

No se si me he explicado

Gracias

[MexMan70]

Si observas en la ayuda de Access hay ejemplos de como usar Dcount con
filtros. Ejemplo:

Cuantos = DCount("[OrderID]", "Orders", "[ShipRegion] = 'CA'")

Saludos !

"charrogar" <char...@hotmail.com> escribi� en el mensaje
news:E04012FD-8DC1-42E7...@microsoft.com...

> ACCES 2003
> tengo el siguiente codigo
>
> Private Sub Form_Open(Cancel As Integer)
> Dim Cuantos
> Cuantos = DCount("*", "[juradopremiosconsulta]")
> me.labelcontador=cuantos
> end sub
> Con ellos se los registros que contiene la tabla y se refleja en
> labelcontador
> Lo que trato de conseguir es que cuando aplico un filtro por seleccion me
> recuente y me indique los registros que se visualicen en labelcontador.

> Lo que hago es que me situo en el objeto que tiene asignado el campo [a�o]

> y
> que se llama cuando, mediante un menu contextual aplico el filtro por

> seleccion sobre el campo asignado a ese objeto([a�o] )

> En el evento al aplicar filtro del formulario pongo esto
> Dim Cuantos

> Cuantos = DCount("[a�o]", "[juradopremiosconsulta]",[a�o]=me.cuando)
> me.labelcontador=cuantos
> con esto creo que estaria haciendo un filtro sobre un a�o en cuestion y
> con
> el codigo anterior trato de que me diga cuantos registros son de ese a�o y

> lo
> refleje en el objeto labelcontador, pero el hecho es que no recuenta
>
> No se si me he explicado
>
> Gracias
>
>

> __________ Informacin de ESET NOD32 Antivirus, versin de la base de firmas
> de virus 4329 (20090812) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>

__________ Informaci�n de ESET NOD32 Antivirus, versi�n de la base de firmas de virus 4329 (20090812) __________

ESET NOD32 Antivirus ha comprobado este mensaje.

http://www.eset.com