Discussion :

[jackyhilary]

Salut a tous,
Un petit soucis surement pas bien méchant, mais je tourne en rond:
J'ai 2 champs a remplir [Réf produit] et [Prix unitaire]
Ces données sont dans le sous-formulaire "Sous formulaire Commandes" du formulaire "Commandes"
Je voudrais les recopier dans le formulaire"CommandesFR"

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
Dim ProduitSource As Long
Dim PrixUnitaireSource As Long
Dim ProduitDestin As Long
 
    ProduitSource = [Formulaires]![Commandes]![Sous formulaire Commandes].[Formulaire]![Réf produit].Value
    PrixUnitaireSource = [Formulaires]![Commandes]![Sous formulaire Commandes].[Formulaire]![Prix unitaire].Value
 
' ----------------------Activation des Formulaires et du champ de comparaison [Réf produit]
DoCmd.OpenForm "CommandesFR"
    Forms("CommandesFR").SetFocus
    Forms("CommandesFR").Form![RéfProduit].SetFocus
 
' ---------------------- Remplir la CommandeFR----
 
    DoCmd.GoToRecord , , acNewRec
 
    Forms("CommandesFR").Form![RéfProduit].Value = ProduitSource

Merci pour votre aide

[Gabout]

Bonjour,

Regarde du côté des variables. Tu les déclares dans un premier formulaire et tu veux les réutiliser dans un second formulaire....

Essaie de les déclarer en Public.

Bon courage,