bonjour,
voici mon problème, dans le Onactivate de ma forme je teste une condition, si ma condition est vérifiée j'exécute des instructions sinon je ferme ma forme mais après un ShowMessage.
voici le code :
le problème c'est que ma forme ne se ferme pas après le showMessage !!!
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 {Instructions......} with Adoquery1 do begin SQL.Clear; SQL.Add('Select NumOrdonnance As NumOrd'); SQL.Add('From Ordonnance'); SQL.Add('Where CodePatient ='+IdPatient); Active:=true; end; if not (Adoquery1.IsEmpty) then begin TabReqVide:=true; Label9.Caption:=Label9.Caption+' '+ inttostr(ADOQuery1Numord.Value); end else begin TabReqVide:=false; ShowMessage (' Acucune Ordonnance pour ce Patient ! '); close;
ma forme est appelée depuis le menu principale avec un ShowModal.
merci d'avance.
Partager