Discussion :

[nrdz83]

Bonjour à tous et bon dimanche,

Dans une fenêtre (FEN_COMPTAGE) j'ai des combos liste (Combo_Observateur) et j'ai ce code si je souhaite rajouter un nouvel observateur à ma base de données

Code :

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

1
2
3
4
5
// Ouvre la fenêtre de saisie pour un nouvel observateur
HRAZ(OBSERVATEUR)
SI MoiMême..ValeurAffichée = "<Nouveau>" ALORS
	Ouvre(FEN_Fiche_OBSERVATEUR)
FIN

ma fenêtre FEN_OBSERVATEUR s'ouvre je saisie mes données et valide.

Je voudrais que la combo soit mise à jour des nouvelles saisies, mais je n'y arrive pas.
Mes combos sont alimentées par une requête (REQ_NomPrenom), j'ai essayé de mettre ce code dans l(initialisation de ma combo mais ça ne fonctionne pas )

Code :

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

1
2
HExécuteRequête(REQ_NomPrenom)
ListeAffiche(COMBO_OBSERVATEUR1)

Comment dois-je modifier ce code ? j'ai essayé en rajoutant Tadébut, Tainit mais rien n'y fait.

Par avance je vous remercie. Cordialement.

[Delphi-ne]

Je suppose que la fenêtre de saisie est modale.

Je mettrai le code de rechargement de la combobox après la commande d'ouverture

Code :

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

1
2
3
4
5
SI MoiMême..ValeurAffichée = "<Nouveau>" ALORS
	Ouvre(FEN_Fiche_OBSERVATEUR)
        HExécuteRequête(REQ_NomPrenom)
        ListeAffiche(COMBO_OBSERVATEUR1)
FIN

La fenetre FEN_Fiche_OBSERVATEUR pourrait retourner un status indiquant si la saisie a été ou non effectuée et dans ce cas la combobox ne serait rechargée que si ce status est positif

[LeonCosnyd]

Sinon tu as toujours la possibilité de travailler avec un objet d'une classe (ou d'une structure).

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
 
// Dans une procédure globale au projet  ou dans le code d'initialisation du projet
strObservateur est une structure
     sNom est une chaine
     sPrenom est une chaine
     //etc...
FIN
 
// Dans le code de modification de la combo
stObservateur est un strObservateur dynamique
HRAZ(OBSERVATEUR)
SI MoiMême..ValeurAffichée = "<Nouveau>" ALORS
	stObservateur = Ouvre(FEN_Fiche_OBSERVATEUR) // La ouvre renvoie un élément de type strObservateur dynamique si validation, sinon Null
	SI stObservateur = Null alors RETOUR
	MoiMême[MoiMême..Valeur]..Libellé = stObservateur.sNom + " " + stObservateur.sPrenom
	ListeAjoute(MoiMême..Nom, "<Nouveau>")
FIN

Ce type de code évite de retaper dans la base de données pour récupérer des données que l'on vient tout juste de saisir au clavier. Il faut toujours garder à l'esprit qu'un aller/retour en base de données est toujours plus long qu'un traitement mémoire.

Bonne journée,