Filtrar al inicio

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