Geachte mensen,
dit is de code wie ik gebruik om 2 tabellen te vullen genaamd vereniging (adotable2) en de tabel bestuur (adotable5). Alle 2 tabellen hebben het onderdeel verenigingsnummer. bij de tabel bestuur haal ik deze uit de tabel vereniging. ALs ik dus een nieuwe vereniging invoer moet hij ook het het nieuwe verenigingsnummer ophalen in de tabel bestuur. Volgens mij moet het lukke met de onderstaande code maar delphi weigert mee te werken. ik krijg de foutmelding: 'acces violation at address 1b03f511 in module msjet40.dll' Ik heb de relaties al weggehaald maar zonder succes. Weet iemand misschien waar dit aan ligt?
Code:
var
veren_toevoeg: Tveren_toevoeg;
naam,adres,postcode,plaats,telefoonnummer,regio,
voorzitter,penningmeester:string;
implementation
uses datamodule;
{$R *.DFM}
procedure Tveren_toevoeg.BitBtn1Click(Sender: TObject);
var
toevoegen:boolean;
begin
toevoegen:=false;
if trim(naam)='' then
Showmessage('u heeft geen naam ingevuld')else
if trim(adres)='' then
Showmessage('u heeft geen adres ingevuld')else
if trim(postcode)='' then
Showmessage('u heeft geen postcode ingevuld')else
if trim(plaats)='' then
Showmessage('u heeft geen plaats ingevuld')else
if trim(telefoonnummer)='' then
Showmessage('u heeft geen telefoonnummer ingevuld')else
if trim(regio)='' then
Showmessage('u heeft geen regio ingevuld')else
if trim(voorzitter)='' then
Showmessage('u heeft geen voorzitter ingevuld')else
if trim(penningmeester)='' then
Showmessage('u heeft geen penningmeester ingevuld')else
toevoegen:=true;
if toevoegen then begin
datamodule3.AdoQuery1.Close;
datamodule3.AdoQuery1.SQL.Clear;
datamodule3.AdoQuery1.SQL.Add('SELECT MAX(nummer) as MaxVereniging');
datamodule3.AdoQuery1.Open;
datamodule3.ADOTable5.FieldByName('nummer').AsInteger :=
datamodule3.AdoQuery1.FieldByName('MaxVereniging').AsInteger + 1;
DataModule3.ADOTable2.Post;
DataModule3.ADOTable2.Requery;
DataModule3.ADOTable2.Last;
DataModule3.ADOTable2.append;
DataModule3.ADOTable5.Post;
DataModule3.ADOTable5.Requery;
DataModule3.ADOTable5.Last;
DataModule3.ADOTable5.append;
end;
end;
procedure Tveren_toevoeg.Button1Click(Sender: TObject);
begin
veren_toevoeg.hide;
end;
procedure Tveren_toevoeg.FormCreate(Sender: TObject);
begin
Datamodule3.ADOTable2.Append;
Datamodule3.ADOTable5.Append;
end;
procedure Tveren_toevoeg.DBComboBox1Change(Sender: TObject);
begin
regio:=DBComboBox1.text;
end;
procedure Tveren_toevoeg.DBEdit1Change(Sender: TObject);
begin
naam:=DBEdit1.Text;
end;
procedure Tveren_toevoeg.DBEdit2Change(Sender: TObject);
begin
adres:=DBEdit2.text;
end;
procedure Tveren_toevoeg.DBEdit3Change(Sender: TObject);
begin
Postcode:=DBEdit3.text;
end;
procedure Tveren_toevoeg.DBEdit4Change(Sender: TObject);
begin
plaats:=DBEdit4.text;
end;
procedure Tveren_toevoeg.DBEdit5Change(Sender: TObject);
begin
telefoonnummer:=DBEdit5.text;
end;
procedure Tveren_toevoeg.DBEdit6Change(Sender: TObject);
begin
voorzitter:=DBEdit6.text;
end;
procedure Tveren_toevoeg.DBEdit7Change(Sender: TObject);
begin
penningmeester:=DBEdit7.text;
end;
end.
alvast bedankt
a newbie in delphi
Bookmarks