Discussion :

[gregcat]

je voudrais savoir si ma fiche de saisie a subi une modification avant de quitter l'application et je ne comprend pas pourquoi cela ne fonctionne pas avec table1.Modified?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var code:integer;
begin
  if table1.Modified then
  begin
    code:=MessageBoxA(0,Pchar('les dernières modifications n''ont pas été sauvegardées,'+#13+'voules vous les enregistrer dans la base ?'),'',MB_YESNOCANCEL + MB_ICONEXCLAMATION + 0);
    if code=6 then
    begin
      if not table1.ReadOnly then 
        table1.post;
      application.Terminate;
    end;
    if code=7 then
      application.Terminate;
    if code=2 then 
      action:=canone; // on annule l'action de close
 
  end
  else
  begin
    application.Terminate;
  end;
end;

[Rayek]

utilise plutot ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if Table1.State in [dsInsert,dsEdit] then

[gregcat]

utilise plutot ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
if Table1.State in [dsInsert,dsEdit] then

super ca marche , merci chef