Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
procedure TForm6.BitBtn3Click(Sender: TObject);
begin
 if (edit1.text='') or (edit2.text='') or (combobox1.text='') or (combobox2.text='') or (combobox3.text='') or (combobox4.text='') or (combobox5.text='') or (combobox6.text='')then
   showmessage('Vous devez remplir tous les champs')
 else
  Form5.table3.Delete;
  Form5.combobox2.Clear;
  with table1 do
   begin...
J'aimerais savoir si une erreur s'est faufilée dans mon code ci dessus : en effet, j'aimerais que si l'un des edit ou l'un des combobox n'est pas rempli, l'utilisateur se voit afficher le showmessage. C'est ce qui se passe actuellement mais ensuite ça continue gentillement à s'exécuter pour faire le Form5.table3.delete etc ... moi j'aimerais qu'il s'arrete au showmessage.