Ошибка: " class EAccessViolatiossViolation with n with message 'Access violation at address 0052D1D5..."

[lutdan]

"Project Project 1 .exe raised exception class EAccessViolation with message 'Access violation at address 0052D1D5 in module 'Projectl.exe1. Read of address 000000D2'. Process stopped. Use Step or Run to continue."
Выдает вот такую ошибку, когда хочу добавить новый ГРУЗ.
Код:

type
     
uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit8, Unit9, Unit10,
  Unit11, Unit12;
{$R *.dfm}



procedure TForm7.sBitBtn1Click(Sender: TObject);
begin
DBGridEh1.ReadOnly:=false;
sbutton1.Visible:=true;
sbutton2.Visible:=true;
sDBEdit10.Visible:=true;
sDBEdit11.Visible:=true;
sComboBox2.Visible:=true;
sDBEdit1.Visible:=false;
sBitBtn4.Enabled:=true;
sBitBtn5.Enabled:=true;
sBitBtn1.Enabled:=false;
sBitBtn2.Enabled:=false;
sBitBtn3.Enabled:=false;
DataModule4.AddGruz.Append;
DataModule4.Gruz.Append;
end;

procedure TForm7.sBitBtn3Click(Sender: TObject);
begin
DBGridEh1.ReadOnly:=false;
sbutton1.Visible:=true;
sbutton2.Visible:=true;
sDBEdit10.Visible:=true;
sDBEdit11.Visible:=true;
sComboBox2.Visible:=true;
sDBEdit1.Visible:=false;
DataModule4.Gruz.Edit;
sBitBtn4.Enabled:=true;
sBitBtn5.Enabled:=true;
sBitBtn1.Enabled:=false;
sBitBtn2.Enabled:=false;
sBitBtn3.Enabled:=false;
end;

procedure TForm7.sBitBtn4Click(Sender: TObject);
begin
DBGridEh1.ReadOnly:=true;
sbutton1.Visible:=false;
sbutton2.Visible:=false;
sDBEdit10.Visible:=false;
sDBEdit11.Visible:=false;
sComboBox2.Visible:=false;
sDBEdit1.Visible:=true;
sBitBtn4.Enabled:=false;
sBitBtn5.Enabled:=false;
sBitBtn1.Enabled:=true;
sBitBtn2.Enabled:=true;
sBitBtn3.Enabled:=true;
DataModule4.AddGruz.FieldByName('id_Gruzootprav').AsString:=Form7.sEdit2.Text;
DataModule4.AddGruz.FieldByName('id_Poluchatela').AsString:=Form7.sEdit4.Text;
DataModule4.AddGruz.FieldByName('VidPerevozki').AsString:=Form7.sComboBox2.Text;
DataModule4.AddGruz.FieldByName('Stoimost').AsString:=Form7.sDBEdit10.Text;
DataModule4.AddGruz.FieldByName('NaimTranspSredstva').AsString:=Form7.sDBEdit2.Text;
DataModule4.AddGruz.FieldByName('Data_Prib').AsString:=Form7.sDBEdit12.Text;
DataModule4.AddGruz.FieldByName('NomerOtchetsDO1').AsString:=Form7.sDBEdit3.Text;
DataModule4.AddGruz.FieldByName('NomerOtchetsDO1').AsString:=Form7.sDBEdit4.Text;
DataModule4.AddGruz.FieldByName('Naimen_tovara').AsString:=Form7.sDBMemo1.Text;
DataModule4.AddGruz.FieldByName('KodTovara').AsString:=Form7.sDBEdit13.Text;
DataModule4.AddGruz.FieldByName('TranspDokum').AsString:=Form7.sDBMemo2.Text;
DataModule4.AddGruz.FieldByName('KolvoGruzMest').AsString:=Form7.sDBEdit5.Text;
DataModule4.AddGruz.FieldByName('VesTovara').AsString:=Form7.sDBEdit6.Text;
DataModule4.AddGruz.FieldByName('Edenicu').AsString:=Form7.sDBEdit10.Text;
DataModule4.AddGruz.FieldByName('Valuta').AsString:=Form7.sDBEdit11.Text;

DataModule4.AddGruz.Post;
DataModule4.Gruz.Active:=false;
DataModule4.Gruz.Active:=true;
end;

procedure TForm7.sBitBtn5Click(Sender: TObject);
begin
DBGridEh1.ReadOnly:=true;
sbutton1.Visible:=false;
sbutton2.Visible:=false;
sDBEdit10.Visible:=false;
sDBEdit11.Visible:=false;
sComboBox2.Visible:=false;
sDBEdit1.Visible:=true;
DataModule4.AddGruz.Cancel;
DataModule4.Gruz.Cancel;
sBitBtn4.Enabled:=false;
sBitBtn5.Enabled:=false;
sBitBtn1.Enabled:=true;
sBitBtn2.Enabled:=true;
sBitBtn3.Enabled:=true;

end;

procedure TForm7.sButton1Click(Sender: TObject);
begin
Form9.showmodal;
end;

procedure TForm7.sButton2Click(Sender: TObject);
begin
form10.showmodal;
end;



procedure TForm7.sBitBtn2Click(Sender: TObject);
begin
if MessageDlg('Вы дейстрительно хотите удалить запись?',mtInformation ,[mbYes, mbNo],0)=6 then
DataModule4.AddGruz.Delete;
DataModule4.Gruz.Delete;
DataModule4.Gruz.Active:=false;
DataModule4.Gruz.Active:=true;

end;

procedure TForm7.DBGridEh1CellClick(Column: TColumnEh);
begin
form11.smemo1.text:=datamodule4.Gruz.FieldByName('Naimen_tovara').AsString;
form11.sEdit1.text:=datamodule4.Gruz.FieldByName('id_Gruza').AsString;

end;

procedure TForm7.sButton3Click(Sender: TObject);
begin
form11.ShowModal;
end;

Ошибка в этой строчке: DataModule4.Gruz.Active:=true;


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Sparkman]

вместо

DataModule4.Gruz.Active:=false;
DataModule4.Gruz.Active:=true;

DataModule4.Gruz.Refresh;

попробуйте

[lutdan]

Теперь выводится такая вот ошибка:
"Project Project 1 .exe raised exception class EOleException with message 'Изменения не были успешно внесены из-за повторяющихся значений в индексе, ключевых полях или связях. Измените данные в поле или полях, содержащих повторяющиеся значения, удалите индекс или переопределите его, чтобы разрешить повторяющиеся значения, и повторите попытку1. Process stopped. Use Step or Run to continue."

Пробовал счётчик поменять.. всё та же ошибка.
Ещё объясню:
Gruz - это ADOQuery
ADDGruz - ADOTable

Вот и я пытаюсь в ADOTable добавить запись, а мне всё время пишет вот такие ошибки. Первый раз с таким столкнулся...раньше всё записывало нормально.

[Sparkman]

Ограничение на уникальность срабатывает

[lutdan]

И что делать? Вот интересно раньше и редактировалось и добавлялось. а счас такая хрень ...