trucos access: Utilizar un cuadro combinado como filtro en un formulario

Supongamos que existe un formulario de facturacion en el que estan todas las facturas, tanto las pagadas como las impagadas. La tabla de facturas debe tener un campo [Situacion] de tipo numerico cuyos valores son:

1=Factura Pagada

2=Factura Impagada

Hay que incluir un cuadro combinado en el formulario cuyos valores en la propiedades deberan ser:

Nombre: filtro

Origen del Control:

Origen de la Fila: 0;'Todas';1;'Pagadas';2;'Impagadas'

Columna dependiente: 1

Numero de Columnas: 2

Ancho de Columnas: 0cm;2cm

Limitar a Lista: Si

despues de Actualizar: Insertar el siguiente procedimiento de Evento:

Private Sub AfterUpdate_filtro()

dim origen as string

origen = 'Select * from Clientes'

if me![filtro] <> 0 then

origen = origen & ' Where ((Clientes.situacion)= Forms![nombreformulario]![filtro]);'

else

origen = origen &';'

end if

me.recordsource = origen

me.requery

end sub

Este mismo truco se puede utilizar tambien para establecer el orden de los registros; en tal caso, en vez de emplear la clausula WHERE, se usaria la clausula ORDER BY.






y escribenos para mejorar.
Contactar