Filtrar al inicio

[PiPerraK]

Buenas, mi problema es el siguiente:

Intento poner en funcionamiento un filtro desde que se lanza mi aplicación, para ello escribo el código de dicho filtro en la propiedad OnCreate del Form en el que se va a aplicar el filtro, pero el programa peta con el siguiente error (excepción):

 Project Project1.exe raised exception class EOleException with message 'Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros'. Process stopped. Use Step or Run to continue.

[[eduarcol]]

puedes poner la linea de codigo del filtro donde te da el error??

[PiPerraK]

Las líneas son las siguientes:

  procedure TFormAgenda.FormCreate(Sender: TObject);
begin
		ADOQueryAgenda.Filter:='FECHA ='+DateTimeToStr(MonthCalendar1.Date);
		SpeedButtonAdd.Enabled := true;
end;

sin embargo, ese mismo filtro puesto después en el programa sí me funciona, sólo es al inicio donde no funciona.

Gracias por las respuestas!

[PiPerraK]

Perdón, me equivoqué, el código es:

  procedure TFormAgenda.FormCreate(Sender: TObject);
begin

		ADOQueryAgenda.Filter:='FECHA ='+DateTimeToStr(MonthCalendar1.Date);
		ADOQueryAgenda.Filtered:=TRUE;

end;

Gracias de nuevo!

[marcoszorrilla]

Prueba esto:

Código Delphi [-]
ADOQueryAgenda.Filter:='FECHA ='+FormatDateTime('dd/mm/yyyy',MonthCalendar1.Date);
ADOQueryAgenda.Filtered:=TRUE;
{y sino esto}
ADOQueryAgenda.Filter:='FECHA ='+QuotedStr(FormatDateTime('dd/mm/yyyy',MonthCalendar1.Date));
ADOQueryAgenda.Filtered:=TRUE;

***Y sino recuerda que las fechas en Access van entre almohadillas ##
Un Saludo.

[PiPerraK]

Gracias por las respuestas!!