Quiero hacer una consulta en la que tengo un criterio de verdadero o Falso.

En el formulario de access que tengo realizado tengo un marco en la que se marca:

Realizadas

No Realizadas

Todas

Luego he puesto un cuadro de texto en la que le asigno un valor dependiendo de lo elegido

Verdadero o 1

Falso o 0

Null

El criterio de la consulta de ese campo lo tomo de lo elegido en el campo de texto. Funciona con verdadero o falso, pero no el null.

Lo que deseo es que si marco la casilla todas, en la consulta me salga todo sin restricción.

me podéis ayudar?

Gracias

Puedes hacer algo como:

If tuTxt = 1 then

Sqlstr = "select * from nombre_tabla where tucolumna=1;"

Else if tutxt=0 then

Sqlstr= "select ....bla bla bla where tucolumna=0;"

Else

Sqlstr="select * from tutabla;"

End if

He intentado poner el codigo y me sale un problema en el "tbd" del código que te pongo a continuación.

El error es "error de compilación, el uso de la propiedad no es valido"

Podrias por favor ayudarme? Gracias

tbd es un objeto query, y estas intentando asignarle un valor.

Si lo que deseas es ejecutar la consulta, no es necesario instanciar ese objeto. (no tengo claro lo que deseas hacer)

Intenta lo siguiente:

1) comenta Dim tbd as querydefs

2) comenta Set tbd = db.querydefs("qryofertastodo")

3) corrige abajo del Else: cambia tbf por tbd

luego, despues del end if:

db.execute tbd

Pero creo que lo que deseas es llenar un objeto: cuadro de lista, formulario, por lo que ejecutar esa instruccion sql no sera suficiente, pero al menos compruebas que ese era el error.

No quiero rellenar ningun cuadro de lista, ni nada de esto, solo quiero ejecutar una consulta con parametros, dependiendo de la opción marcada; "Aceptadas", "No aceptadas" y "Todas".

La casilla de verificación sólo acepta Verdadero o Falso.

La consulta hecha y me funciona con Verdadero o Falso, pero no sé como hacer que me saque "todos", y salte el parámetro.

He probado lo que me has puesto y sigue sin funcionar.

Gracias

Dim AuxWhere As String Select Case Me.ver1 case True, False AuxWhere = " WHERE Aceptada = " & Me.ver1 case Else AuxWhere = "" End Select SQL = "SELECT * FROM tblfax" & AuxWhere

He emulado tu situación y he creado una tabla a la que llamo como tu Silver7619. Le he puesto 2 campos, uno del tipo texto y el otro del tipo Si/No.

SILVER7619

CAMPO1	SERAverdaderoFALSO
VIMIPAS	Sí
SILVER1976	No
MEXMAN70	No
EMILIOVE	No
XAVI	Sí

Al pegar los registros que he creado aquí en la pantalla de la respuesta que estoy escribiendo, y que en Access aparecen únicamente marcados o desmarcados (1 o 0), aquí aparecen con Sí y No. Pero bueno eso nos da igual.

Ahora he hecho una consulta sobre esta tabla, la he llamado Consulta2DESILVER7619. Te pego a continuación la SQL de dicha consulta:

Y ahora te pego los registros obtenidos según las respuestas posibles que tu esperas (1,0, todos):

Consulta2DESILVER7619

CAMPO1	SERAverdaderoFALSO
VIMIPAS	Sí
XAVI	Sí

Consulta2DESILVER7619

CAMPO1	SERAverdaderoFALSO
SILVER1976	No
MEXMAN70	No
EMILIOVE	No

Consulta2DESILVER7619

CAMPO1	SERAverdaderoFALSO
VIMIPAS	Sí
SILVER1976	No
MEXMAN70	No
EMILIOVE	No
XAVI	Sí

Ahora quiero tu hagas la misma prueba, coges tu tabla y la usas para hacer esta consulta (con tus campos claro), pones dos campos (uno de ellos el de Sí/No) y en criterios, ojo: del campo Sí/No, pones esto: Como "*" & [VerFalTod] & "*".

Cuando tienes que escribir el valor de VerFalTod, primero pones un 1, segundo pones un 0 y tercero, no pones nada, simplemente pulsa la tecla Intro, es decir que no toma valor ninguno y el Como (o Like para Access), acepta esta última como "todos los registros".

Luego lo adaptas a lo que tienes en el formulario. Está claro que primero he querido que lo entiendas y luego....

Ya nos cuentas.

Saludos.

Eso era lo que quería.

Si hubiera puntuación te daria 5 estrellas.... :-D

Por mi se puede cerrar el hilo.

El tema se ha solucionado, con tu respuesta y con la de Vimipas.

Os deseo que paseis unas felices Fiestas.

Por mi se puede cerrar el hilo

Gracias