Tote
12 de Octubre del 2003

Hola amigos!
Me pasa una cosa muy extraña en mi programa que os paso a comentar:
Realizo consultas donde el usuario tiene que introducir una fecha. La cuestion esque si el dia comienza por 01, 02,03.. me dice que nohay ningun registro cuando si lo hay y si el dia comienza a partir de 10 me va todo bien, como puede ser esto no me lo explico os paso el codigo:
Dim Mensaje, Título, a
Dim strquery As String
Dim tRs As Recordset
Dim b As Date
On Error GoTo checkerror
alta.Adodc2.Refresh

Mensaje = " Introduzca la fecha(dd/mm/aaaa) de alta de la Incidencia que desea consultar"
Título = "Consulta Incidencias"
a = InputBox(Mensaje, Título)
b = Format(a, "dd/mm/yyyy")

strquery = "SELECT * FROM incidencias where fechaalta= #" & b & "#"
Set tRs = mibase.Execute(strquery)
With tRs
If (.BOF And .EOF) Then
MsgBox "No hay ninguna incidencia para esta fecha.", vbExclamation, "Consulta Incidencias"

Else

principal.Hide
coninc.Show
coninc.Adodc1.RecordSource = strquery
coninc.Adodc1.Refresh


End If
End With
checkerror:
If (Err.Number = 13) Then
MsgBox "Ha introducido un formato de fecha incorrecto, introduzcala correctamente (dd/mm/aaaa)", vbExclamation, "Consulta Incidencias"
End If

Creeis que falta algo o se podria mejorar. Gracias por vuestra ayuda un saludo.

Fran
12 de Octubre del 2003

Prueba a poner lo siguiente:
strquery = "SELECT * FROM incidencias where fechaalta= #" & CDate(b) & "#"

tote
12 de Octubre del 2003

sigue sin irme. Pero gracias de todas maneras, esque es rarisimo esto porque con los primeros dias del mes no me va y a partir del dia 10 si.

RAFA
12 de Octubre del 2003

Pueba a poner cdate(format(a,"dd/mm/yyyy")), o sin el format.
Suerte