Discussion :

[fr832]

Bonjour à tous,
voila j'ai une combo qui m'indique les rhésus du groupe sanguin (A+,A-,B+,B-,AB+,AB-,O+,O-).
ET je voudrais faire afficher des formes qui s'affichent en fonction de la valeur de la combo.(fprme_A1,forme_A2, ect)

Par exemple pour le rhésus A+ faire afficher la forme_A1

J'ai fais ce code

Code :

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

1
2
3
4
5
//Affiche les rhésus
 
SI Combo_Rhésus="A+" ALORS
	Forme_A1..Visible=Vrai
FIN

Mais il m'affiche que A+ je voudrais qu'il se masque si la combo indique une autre valeur que A+.

Par avance merci à tous pour votre aide amitiés

[NetLandGim]

Dans le traitement sélection d'une ligne tu met plutôt

Code :

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

1
2
3
4
 
SI combo_reshus..valeurAffichée="A+" ALORS
FRMA..visible=vrai
FIN

L'expression que tu as écrite renvoi un entier (indice de l'élément)

[fr832]

Bonjour et merci pour ton aide ça fonctionne. J'ai donc fait ce code:

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
24
25
26
27
// Affichage des rhésus
 
SI Combo_Rhésus..ValeurAffichée="A +" ALORS
	Forme_A1..Visible=Vrai
FIN
 
SI Combo_Rhésus..ValeurAffichée="A -" ALORS
	Forme_A2..Visible=Vrai
FIN
SI Combo_Rhésus..ValeurAffichée="B +" ALORS
	Forme_B1..Visible=Vrai
FIN
SI Combo_Rhésus..ValeurAffichée="B -" ALORS
	Forme_B2..Visible=Vrai
FIN
SI Combo_Rhésus..ValeurAffichée="AB +" ALORS
	Forme_AB..Visible=Vrai
FIN
SI Combo_Rhésus..ValeurAffichée="AB -" ALORS
	Forme_AB2..Visible=Vrai
FIN
SI Combo_Rhésus..ValeurAffichée="O +" ALORS
	Forme_O1..Visible=Vrai
FIN
SI Combo_Rhésus..ValeurAffichée="O -" ALORS
	Forme_O2..Visible=Vrai
FIN

Et une dernière question si je peux abuser, si je modifie le rhesus d'une personne comme faire pour mettre à jour la FEN_Contact ? Car avec le code que j'ai fait il faut que je ferme la fenêtre pour quelle se réinitialise.

Merci à tous.

[NetLandGim]

Il y a plusieurs manières de raffraichir
Avec un DataBinding, tu attaches une variable à ton champ et avec

Code :

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

EcranversSource

Tu mets à jour ta variable.
et avec

Code :

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

SourceVersEcran

tu mets à jours le controles (combo)

Pour ne pas fermer et relancer , il faudra initialiser tes contrôles dans le traitement initialisation de la fenêtre. Tu peux simplement créer une procédure qui va être appelée à l'initialisation de ta fenêtre. Ainsi quand tu modifies tes données (FRM..ValeurAffichée) , à la fin tu appelle la procédure d'initialisation.

Code :

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

1
2
3
4
 
SI FRm..ValeurAffichée="A" ALORS
maProcedureInit()
FIN