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