Discussion :

[strouve]

* Bonjour *

je ne suis pas tres doué, alors mes excuses pour mon manque de clarté.

j'ai besoin de transmettre 3 variable qui sont des champs d'une requete qui apparait en sous formulaire dans un formulaire vers un module en vbscript.

je suppose qu'il faut creer une macro qui va definir 3 VarTemp qui correspondent aux 3 champs qui m'interresse.
Mon probleme est le suivant,
comment definir ces trois enregistrements sur la ligne selectionnée,
comment recuperer ces trois variable dans le module?

* Merci *

[strouve]

Je dois en fait pouvoir cliquer sur un bouton dans le formulaire pour qu'automatiquement, dans la ligne sélectionnée du formulaire ou apparaissent 3 champs, les valeurs de ces trois champs soit transmises à un module.

Comment puis-je récupérer ces trois variable dans le module ?

[Domi2]

Bonjour,

Une solution.

Dans l'entête du module de code standard où tu veux utiliser les valeurs de tes champs, il te faut déclarer 3 variables publiques :

Code :

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

1
2
3
4
5
6
7
8
Option Compare Database
Option Explicit
 
Public strChamp1 As String
'2ème variable
'3ème variable
 
'Fonctions/procédures du modules

Ensuite, dans l'événement Sur clic de ton bouton, tu assignes les valeurs de tes champs aux variables :

Code :

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

1
2
3
strChamp1 = Me.txtChamp1.Value
'2ème variable
'3ème variable

Adapter les noms de strChamp1 et txtChamp1, bien sûr.

Domi2

[strouve]

je comprend, pour le module pas de soucis, pour le bouton c'est un peu plus brouillon,
j'avais plutôt l'habitude d'affecter une macro, donc pour le code je suis un peu dans les choux.
avec ce code, suis je complétement a coté ?

Code :

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

1
2
3
4
5
Option Compare Database
 
Private Sub Commande23_Click()
droplet1 = Me.[Formulaires]![form select article]![Pro_vm_product_cheval1_2012 sous-formulaire1].[Formulaire]![droplet].[Activé].Value
End Sub

parce qu’il me signifie qu'il n'arrive a trouver la valeur du champ

[strouve]

c'est tout bon, je met mon résultat pour auquel j'ai ajoute une petite boite pour vérifier que mes variables était bien mise a jour :

Code :

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

1
2
3
4
5
6
7
8
9
Option Compare Database
 
Private Sub Commande23_Click()
Dim droplet1, mainurl1, strfile1
droplet1 = Forms![form select article]![Pro_vm_product_cheval1_2012 sous-formulaire]![droplet]
mainurl1 = Forms![form select article]![Pro_vm_product_cheval1_2012 sous-formulaire]![MaiimageURL]
strfile1 = Forms![form select article]![Pro_vm_product_cheval1_2012 sous-formulaire]![Image]
MsgBox "Vous avez sélectionné le fichier : " & droplet1 & strfile1 & mainurl1, vbInformation
End Sub

A suivre ....