Remplir automatiquement un champ à partir de la valeur d'un autre

**outilsuiviedegestion** · 17/07/2018, 12h08

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** · 17/07/2018, 13h54

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** · 17/07/2018, 16h17

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** · 17/07/2018, 16h23

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** · 17/07/2018, 16h39

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** · 17/07/2018, 16h48

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** · 17/07/2018, 16h49

oui je me disais aussi ... lol

**james68** · 17/07/2018, 16h52

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
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
 
Forms("[FORMULAIRE B]").refresh
Forms("[FORMULAIRE C]").refresh
Forms("[FORMULAIRE D]").refresh
'etc 
End If

**outilsuiviedegestion** · 18/07/2018, 11h15

J'ai testé les codes suivants :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CHAMP_A_AfterUpdate()
If Forms("[FORMULAIRE A]").Controls("[CHAMP A]").Value = "UneValeur" 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
 
Forms("[FORMULAIRE B]").refresh
Forms("[FORMULAIRE C]").refresh
Forms("[FORMULAIRE D]").refresh 
End If

Code :

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

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

Pas d'erreur mais il ne se passe rien...
Ca peut être lié aux relations entre les tables ?

**james68** · 18/07/2018, 12h58

peux tu poster le fichier ... ca sera plus simple...
A plus

**tee_grandbois** · 18/07/2018, 18h45

bonjour,

Envoyé par outilsuiviedegestion

J'ai testé les codes suivants :

Code :

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

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

oui mais, "UneValeur", c'est juste un exemple, il faut mettre la véritable valeur que contient le champ A ...

**outilsuiviedegestion** · 19/07/2018, 12h23

Justement la valeur change tout le temps !
C'est l'utilisateur qui la rentre et pour chaque nouvelle affaire (chaque enregistrement, chaque ligne), elle est modifiée.

**james68** · 19/07/2018, 12h46

Sans fichier d’exemple ça va être dur de solutionner ton problème , je pense.

**james68** · 19/07/2018, 14h55

Est ce que c'est cela ou tu veux arriver ?
A plus

**hyperion13** · 19/07/2018, 15h28

Salut, je m'incruste.
Comme l'impression que votre demande ne rime à rien, dans la mesure où je suppose que votre formA est un form principal et que les autres forms B, D, E, etc. sont des s/form. Dans ce cas, il y a une relation binaire ou Naire entre les tblA et les tbl B, C, D, etc.
Et cela me ramène à votre post ici
Euh ... je viens de charger votre bdd. Quel intérêt de créer des formulaires sans source (tbl/req) ? Vous ne pouvez même pas traiter de recordset en vba pour collecter les données de vos form A, B et C, etc.
Pour la propriété visible pour B, C, D, etc. pourquoi ne pas paramétrer directement visible = non les zones de texte que d'écrire des lignes ?

**dok flint** · 19/07/2018, 16h48

Bonjour,

Envoyé par outilsuiviedegestion

J'ai testé les codes suivants :
Pas d'erreur mais il ne se passe rien...
Ca peut être lié aux relations entre les tables ?

Dans l'exemple que tu as envoyé les valeurs changent dans les formulaires B et C , mais sur le formulaire A il y a 2 champs : pendant et après saisie ,ils servent à quoi
et les valeurs ne sont pas enregistrées dans une tables , donc juste de l'affichage? la finalité de la saisie c'est quoi?
A+

**tee_grandbois** · 19/07/2018, 17h17

bonjour dok flint et hyperion13,

attention, il ne s'agit pas d'une base fournie par outilsuiviedegestion (le demandeur) mais par james68 (le proposant) qui voulait savoir si c'est bien le résultat qu'il voulait obtenir.
Malheureusement outilsuiviedegestion n'a toujours pas répondu

**hyperion13** · 19/07/2018, 17h38

Envoyé par tee_grandbois

bonjour dok flint et hyperion13,

attention, il ne s'agit pas d'une base fournie par outilsuiviedegestion (le demandeur) mais par james68 (le proposant) qui voulait savoir si c'est bien le résultat qu'il voulait obtenir.
Malheureusement outilsuiviedegestion n'a toujours pas répondu

Salut james68 et tee_grandbois
Oups ... je n'ai pas fait gaffe, et en plus je m'étonnais que la proc fonctionne

Le problème avec les formA, B, C, D, etc. est lié aux éléments de ce post, enfin je pense.

**outilsuiviedegestion** · 20/07/2018, 09h06

Merci James68 mais Windows me bloque l'accès à ton fichier, je n'arrive pas à le déziper. "potentiellement dangereux" ; je ne sais pas pourquoi ça me fait ça...

Je ne pense avoir le droit de fournir ma base alors je vais essayer de détailler un maximum ce qu'on me demande de constituer : (j'ai pas la main dessus)

- sur chaque formulaire il y'a un bouton pour passer au formulaire suivant (un peu comme un formulaire de navigation)
- sur chaque formulaire il faut qu'il apparaisse un champ, ce sera la clé primaire du formulaire A
- ce même champ doit se remplir automatiquement sur les formulaires B,C,D... ceux qui suivent le formulaire A

Intérêt ?
- cela évite à l'utilisateur de réecrire le champ à chaque fois sur chaque formulaire
- c'est également une sorte de protection car si l'utilisateur commence une saisie, les 7 formulaires seront pré-rempli automatiquement, le champ A sera pré-rempli automatiquement.
Si l'utilisateur s'arrête au formulaire 4, alors le champ A sera quand même rempli sur les formulaires B,C,D... ect
Je me dit que ça m'évitera un mélange de lignes ?