» Как исправить ошибку

[more] Здравствуйте, помогите пожалуйста. Как исправить ошибку:
"Project raised exception class EDatabaseError with message "..." is not a valid integer value for field ".."".

в таблице аксес "Должность" только два столбца ключ и наименование, при нажатии на DBEdit а форме открывается форма "Должность" и в ней выбирается наименование, вот здесь при выборе и выходит эта ошибка, связь через Ado
вот код формы должность:
Код:

unit Unit26;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids;

type
TForm26 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
DBGrid1: TDBGrid;
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form26: TForm26;

implementation

uses Unit4, Unit8;

{$R *.dfm}

procedure TForm26.Button3Click(Sender: TObject);
begin
Form4.DBEdit70.Text:= Form26.DBGrid1.SelectedField.AsStri ng;
close;
end;

procedure TForm26.Button1Click(Sender: TObject);
begin
DataModule8.DolgnostT.Insert;
DBGrid1.SetFocus;
end;

procedure TForm26.Button2Click(Sender: TObject);
begin
DataModule8.DolgnostT.Delete;
end;

procedure TForm26.Button4Click(Sender: TObject);
begin
If DataModule8.DolgnostT.Modified then DataModule8.DolgnostT.Post;
end;

end.

И еще почему при создании связей через Field Link Designer перестают отображаться данные на таблицах в форме?
     [/more]

Цитата:

Здравствуйте, помогите пожалуйста. Как исправить ошибку:
"Project raised exception class EDatabaseError with message "..." is not a valid integer value for field ".."".

Первое тут этого куска не достаточно и не понятно где вылезает exception, а по теме поставь EurekaLog.
PS. А приложение видно шикарное с 26 одновременно используемыми формами

При выборе должности значение кода должности (целое) присваивается ключу, а у тебя по видимому ключу присваивается сама должность (строка) - отсюда и ошибка.

Спасибо, ошибку исправила, поставила DBLookupComboBox вместо DBEdit, так эта ошибка не выходит. Только вот не пойму почему как создам связи так из таблиц пропадают данные

lorik08
если так будете объяснять, то вам никто ничего не подскажет, так как вы даете недостаточно данных. По поводу первой ошибки, то вы просто в поле типа integer пихаете не целое число.

lorik08
Скорее всего что-то с открытием/закрытием базы.

lorik08

Цитата:

Только вот не пойму почему как создам связи так из таблиц пропадают данные

Потому что правильные программисты сначала создают связи а потом вставляют данные.
Не нужно разрабатывать программы шиворот-навыворот.

[more] Попробую объяснить поподробней.
Структура программы такая:
Первая форма - таблица "Журнал сотрудников" ------> Вторая форма: - форма "редактирование, добавление и просмотр данных " (данные добавляются через DBEdit, DBLookupComboBox)-----> данные в DBLookupComboBox берем из форм таблиц-справочников. Все таблицы в БД Access, связала с помощью ADO.
Таблицы-справочники уже заполнены в Access, но их можно редактировать. Без связей, при работе программы, все данные в справочниках видны, но как только и я создаю связи через Field Link Designer между таблицами например так: "журнал сотрудников" ------> "личные данные"------>"образование" ------> " полученная специальность" , данных не видно. Почему и как это можно исправить.
Я уже и связи в Access и убирала и опять устанавливала, ничего не помогает


http://imageshack.us/g/203/52638610.png/- здесь фото форм, я бы и программу выложила только как не знаю
[/more]