Поиск по дате

[Len@09]

Добрый день!
БД в Access подключенная через ADO в Delphi. На форме есть таблица DBGrid, в которую пользователь заносит данные таким образом: нажимает кнопку Добавить запись, появляется форма для воода данных. Поля для заполнения: Дата поступления в ИФНС, Грузоотправитель, Грузополучатель, Дата ТТН, Номер ТТН и т.д. После заполнения всех полей формы, данные переносятся в таблицу DBGrid. Мне необходимо организовать поиск по полю Дата поступления в ИФНС. Для поиска я создала отдельную форму, на которой расположены: MonthCalendar, DBEdit1 (вводим начальную дату через календарь), DBEdit2 (вводим конечеую дату), SpeedButton1. Код на кнопку SpeedButton1 такой:

procedureTForm15.SpeedButton1Click(Sender:TObject);
var
StartDate:TdateTime;
FinishDate:TdateTime
begin
DataModule4.FindQuery.Active:=false;
DataModule4.FindQuery.SQL.Clear;
DataModule4.FindQuery.SQL.Add('SELECT*');
DataModule4.FindQuery.SQL.Add('FROM Таблица ГИБДД');
DataModule4.FindQuery.SQL.Add('Where [Дата поступления в ИФНС] between :StartDate and: FinishDate');
StartDate:=StrToDate(DBEdit1.Text);
FinishDate:=StrToDate(DBEdit2.Text);
DataModule4.FindQuery.Parameters.ParamByName ('StartDate').Value:= StartDate;
DataModule4.FindQuery.Parameters.ParamByName ('FinishDate').Value:= FinishDate;
DataModule4.FindQuery.Activ:=true;
Form12.ShowModal;
end;

Для DBEdit1 в свойстве DataSourse я указала DataModule4.DataSource1, в свойстве DataField указала поле Дата поступления в ИФНС.
Для DBEdit2 я указала все тоже самое что и для DBEdit1. Правильно ли это?
Пытаюсь осуществить поиск мне выдает ошибку: ProjectNalogProject.exe raised exception class EAccessViolation with message Access Violation at adress 004AF0A8 in module NalogProject.exe. Read off adress 00000240. Process stopped. Use step or Run to continue.

[Stilet]

Не согласен...
DBEdit'ы могут начать тебе редактировать базу.
Избавься от них и поставь обыные Эдиты, ты же все равно их свойства в запрос подставляешь, зато проблем с БД быть не должно.
Используй простые Эдиты. Или еще лучше - MaskEdit. в которых настрой формат ввода, чтоб пользователь лишнего ченить не ввел.

[SERG1980]

Я обычно для ввода даты использую компонент TDateTimePicture

DataModule4.FindQuery.Parameters.ParamByName ('StartDate').AsDate:= DateTimePicker1;
DataModule4.FindQuery.Parameters.ParamByName ('FinishDate').AsDate:= DateTimePicker2;

[Len@09]

Stilet, я поставила эдиты. Загвоздка теперь с этим:

procedure TForm15.MonthCalendar1DblClick (Sender:TObject);
begin
if MonthCalendar1.Tag=0 then exit;
(self.FindComponent ('Edit' + IntToStr (MonthCalendar1.Tag)) as Edit).DataSourse.DataSet.Edit;
(self.FindComponent ('Edit' + InttoStr (MonthCalendar1.Tag)) as TEdit).Text:=DatetoStr (MonthCalendar1.Date);
(self.FindComponent ('Edit' + InttoStr (MonthCalendar1.Tag)) as TEdit).DataSourse.DataSet.Post;
MonthCalendar1.Visible:=falshe;
end;

.
А у Editов нет свойства DataSourse. Подскажите, как написать правильно

[Stilet]

Пуф....
Я чет не понял твоей стратегии...
Тебе нужно чтоб в Эдиты вбивалась дата выбранная в календаре? Тогда

procedure TForm15.MonthCalendar1DblClick (Sender:TObject);
var e:tedit;
begin
 e:=FindComponent ('Edit' + IntToStr (TMonthCalendar(sender).Tag);
 if e<>nil then e.text:=DateToStr(TMonthCalendar(sender).Date);
end;

Это кстати один обработчик на все календари, он сам будет определять какой календарь редактируется.
Или ты что хочешь?

[Len@09]

именно так. Только что то на эту строку ругается: e:=FindComponent ('Edit' + IntToStr (TMonthCalendar(sender).Tag);

[Stilet]

А-а-а там я ев конце скобку одну пропустил похоже )