Valen
15 de Julio del 2003

Hola que tal! Tengo una duda.Resulta que en mi programa quiero realizar consultas sobre pedidos, presupuestos y facturas a partir de ciertos campos.Es decir si yo introduzco el empleado valen me saca todos los pedidos realizados por el.Bueno pues quiero hacer lo mismo al introducir una fecha. Es decir que si yo introduzco 20/07/2003 me saque si hay algun pedido con esa fecha. el codigo que empleo es el siguiente:
Dim mensaje, Título, a
Dim strquery As String
Dim b As Date
mensaje = " Introduzca la fecha(dd/mm/aaaa) para consultar posibles Presupuestos"
Título = "Consulta Presupuestos por Fecha"
a = InputBox(mensaje, Título)
principal.Hide
ConsultaPre.Show
b = CDate(a)
strquery = "SELECT * FROM Presupuestos WHERE fechapresupuesto =" & b
ConsultaPre.Adodc1.RecordSource = strquery
ConsultaPre.Adodc1.Refresh

Cuando lo ejecuto siempre me devuelve una consulta vacia aun habiendo registros con la fecha que yo introduje. Intente también introducir la fecha en el codigo entre comillas pero me salta un error del adodc1 diciendome que no coinciden los tipos de datos en los criterios.
Alguien sabe donde esta mi error? Os agradeceria mucho vuestra ayuda un saludo.

Angeles
15 de Julio del 2003

Prueba con esto:
Dim mensaje, Título
Dim a as String
Dim strquery As String
Dim b As Date
mensaje = " Introduzca la fecha(dd/mm/aaaa) para consultar posibles Presupuestos"
Título = "Consulta Presupuestos por Fecha"
a = InputBox(mensaje, Título)
principal.Hide
ConsultaPre.Show
a=Format(a,"dd/mm/yyyy")
strquery = "SELECT * FROM Presupuestos WHERE fechapresupuesto =#" & b & "#"
ConsultaPre.Adodc1.RecordSource = strquery
ConsultaPre.Adodc1.Refresh
Suerte