Hans,
Mischien dat je aan het onderstaande wat hebt.
Code:
procedure TForm.BtLeegTabelClick(Sender: TObject);
begin
if not DM.Tabel.IsEmpty then
begin
if MessageDlg('Weet u zeker dat u de tabel wilt legen ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
DM.Tabel.Cancel; //haald tabel uit insert, edit
DM.Tabel.Exclusive := True; //zet tabel in exclusive mode.
DM.Tabel.EmptyTable; //Leeg tabel, waarna deze autom. wordt geslot.
DM.Tabel.Exclusive := False;
DM.Tabel.Open; //Heropen tabel.
BtLeegTabel.Enabled := False;
FormShow(nil);
end;
end;
end;
Succes,
Richard
Bookmarks