Discussion :

[steeves5]

Bonjour à tous

Comment faire pour récuperer la valeur d'un champs d'un formulaire A dans un formulaire B ?
Merci pour vos réponses

[mcdotta]

Re,

Si les deux formulaires sont ouverts, que le formulaire B est actif tu peux utiliser :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
dim frmB as Form
dim ctlControl as Control
dim strControlName as string
 
set frmB = forms![frmB]
 
For each ctlControl in frmB.Controls
     if ctlControl.Type <> acLabel then
           strControlName = ctlControl.Name          
           me(strControlName).Value = ctlControl.Value
     endif
Next

Attention, c'est une idée, il faut adapter, notamment si tu as des controles boutons, lignes... qui ne peuvent avoir de propriété Value et donc provequeraient une erreur.

[steeves5]

ok remerci

je vais tester le tout

[matstyle]

Salut Steeves5,

tu peux aussi faire comme ceci :

-Créer une variable

-Mettre la valeur de ton champs dans cette variable (NomChamp.Value = NomDeVariable)

-et ensuite tu fais Form_NomFormulaire.NomChamp.Value = NomDeVariable

J'sais pas si j'me suis bien exprimé :S

Bonne continuation ++