Discussion :

[knight31]

Bonjour,

Je suis débutant sur DELPHI, je travail actuellement avec RAD Studio XE5, j'ai un petit problème, je vous explique :

J'ai deux IHM, UNE pour la création d'un projet qui contient une entreprise, l’opérateur à Accès aux entreprises disponibles sur BD Access par une Combobox, et une autre IHM qui s'ouvre quand on veut rajouter une nouvelle entreprise dans laquelle l'utilisateur remplit les informations correspondantes à cette entreprise, et une fois il clique sur enregistrer ça s'enregistre sur Access ( ça il n'y a pas de probleme) mais ça ne se met pas à jour sur la Combo Box.

Voici le Code de la ComboBOX sur l'ihm 1 :
procedure TForm2.remplirComboBoxEntreprise(Sender: TObject);

Code :

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

1
2
3
4
5
6
7
8
9
10
11
begin
 
 
ADOTable1.first;
while not ADOTable1.eof do
begin
Combo.Items.Add(ADOTable1.fieldbyname('nom_entrep').asstring);
 
ADOTable1.next;
 
end;

et voici le code de la 2 eme IHM :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm12.Button1Click(Sender: TObject);
begin
ADOTable1.Append;
ADOTable1.FieldByName('nom_entrep').AsString:=CrEtrp.Text;
ADOTable1.FieldByName('site_web_entrep').AsString:=CrWeb.Text;
ADOTable1.Post;
Form12.Close;
//ShowMessage('1');
form2.remplirComboBoxEntreprise(self);
 
//ShowMessage('2');
 
end;

[SergioMaster]

Bonjour,

une suggestion : utiliser l’évènement onActivate de Form2 pour le faire

[knight31]

Bonjour,

une suggestion : utiliser l’évènement onActivate de Form2 pour le faire

Non ça ne marche pas malheureusement mais quand j'y pense s'il y une fonction qui peut actualiser la BD Access ça peut peut être marcher ...

[knight31]

Non ça ne marche pas malheureusement mais quand j'y pense s'il y une fonction qui peut actualiser la BD Access ça peut peut être marcher ...

j'ai essayer ADOTable1.Refresh ça n'a pas marcher aussi

[SergioMaster]

Non ça ne marche pas malheureusement

étonnant alors que mes vieux programmes sont tous sur ce principe et que cela fonctionne très bien !
à noter que pour votre fonction remplirComboBoxEntreprise il manque tout de même un Combo.Items.Clear avant de remplir

[knight31]

étonnant alors que mes vieux programmes sont tous sur ce principe et que cela fonctionne très bien !
à noter que pour votre fonction remplirComboBoxEntreprise il manque tout de même un Combo.Items.Clear avant de remplir

C'est résolu, en fait si tu remarque le code je faisais appel a la fonction sur une autre IHM, quand je déclare la fonction dans l'ihm, elle même ( déclaration privée) ça marche niquel.

Merci tout de meme.