Filtrar al inicio

[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.