Discussion :

[outilsuiviedegestion]

Bonjour,

j'aimerais que quand on rempli un champ A dans le formulaire A ; que le champ A soit le même dans le formulaire B, C, D ect...
Pour ce faire :

• j'ai crée des champs indépendants dans B, C, D ect...
• j'ai mit un code dans le formulaire A

Code :

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

1
2
3
4
5
6
7
Private Sub CHAMP_A_AfterUpdate()
If Forms("[FORMULAIRE A]").Controls("[CHAMP A]").Value = True Then
Forms("[FORMULAIRE B]").Controls("[CHAMP A]").Value = Forms("[FORMULAIRE A]").Controls("[CHAMP A]").Value
Forms("[FORMULAIRE C]").Controls("[CHAMP A]").Value = Forms("[FORMULAIRE A]").Controls("[CHAMP A]").Value
Forms("[FORMULAIRE D]").Controls("[CHAMP A]").Value = Forms("[FORMULAIRE A]").Controls("[CHAMP A]").Value
End If
End Sub

• les champs A des autres formulaires sauf le formulaire A : B,C,D ect doivent être non visible; je dois mettre le code suivant dans un form current ?

Code :

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

1
2
3
Forms("[FORMULAIRE B]").Controls("[CHAMP A]").Visible = False 
Forms("[FORMULAIRE C]").Controls("[CHAMP A]").Visible = False 
Forms("[FORMULAIRE D]").Controls("[CHAMP A]").Visible = False

[james68]

Si tu as un petit fichier exemple de ce que tu veux faire, je jette un coup d'oeil...
Ca sera plus rapide que de long discours... ;-)

[dok flint]

Bonjour,
Tous les formulaires sont ouverts en même temps ? car si le formulaire A est fermé ça ne marche pas.
Pour les champs invisibles , pourquoi ne pas mettre visible >>Non dans les propriétes de chaque champs.
A+

[outilsuiviedegestion]

Oui ils sont ouverts en même temps mais rien ne se passe. J'ai oublié de préciser que le champ A est un champ au format texte court...

[tee_grandbois]

bonsoir

J'ai oublié de préciser que le champ A est un champ au format texte court..

dans ce cas ce code n'a pas de sens :

Code :

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

If Forms("[FORMULAIRE A]").Controls("[CHAMP A]").Value = True Then

ceci est plus plausible:

Code :

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

If Forms("[FORMULAIRE A]").Controls("[CHAMP A]").Value = "uneValeur" Then

[james68]

Il faut faire un Refresh de tes form BCD etc apres la mise a jour du champs A dans ton Form A.
Le champ A = true .... est ce une case a cocher (true/false) ?

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub CHAMP_A_AfterUpdate()
If Forms("[FORMULAIRE A]").Controls("[CHAMP A]").Value = True Then ' pourquoi TRUE
Forms("[FORMULAIRE B]").Controls("[CHAMP A]").Value = Forms("[FORMULAIRE A]").Controls("[CHAMP A]").Value
Forms("[FORMULAIRE C]").Controls("[CHAMP A]").Value = Forms("[FORMULAIRE A]").Controls("[CHAMP A]").Value
Forms("[FORMULAIRE D]").Controls("[CHAMP A]").Value = Forms("[FORMULAIRE A]").Controls("[CHAMP A]").Value
 
End If

[james68]

oui je me disais aussi ... lol