OVH Cloud OVH Cloud

Passer un champ dans une fonction

4 réponses
Avatar
Myriam
Bonjour
Je voudrais cr=E9er une fonction qui met une valeur dans un=20
champ d'un formulaire. Je passe facilement le nom de la=20
requ=EAte dans laquelle je prends les valeurs et le nom du=20
formulaire, mais les choses se compliquent pour passer le=20
champ. Comment passer quelque chose comme 'Forms!
Formulaire!Champ'. Je m'y prends probablement mal...
Merci

4 réponses

Avatar
Xavier HUE
Bonjour Myriam,

Déclarer le paramètre en type "Control", comme suit:

Function TaFonction (frmForm as Form, strReq As String ,
ctrChamp as Control) As ...

...
End Function

Et pour appeler

RetourFonction = TaFonction(Me, "NomRequete", Me.Champ)
ou
RetourFonction = TaFonction(Forms!
[TonFormulaire], "NomRequete", Forms![TonFormulaire]!
[TonChamp])
ou
RetourFonction = TaFonction(Forms
("TonFormulaire"), "NomRequete", Forms
("TonFormulaire").Controls("TonChamp"))

Ok?
Cordialement.
Avatar
Myriam
Merci, c'est tout simple quand on sait...
que le type contrôle existe!!!
Mais où trouver des listes des différentes références
employées dans VBA ?
-----Message d'origine-----
Bonjour Myriam,

Déclarer le paramètre en type "Control", comme suit:

Function TaFonction (frmForm as Form, strReq As String ,
ctrChamp as Control) As ...

....
End Function

Et pour appeler

RetourFonction = TaFonction(Me, "NomRequete", Me.Champ)
ou
RetourFonction = TaFonction(Forms!
[TonFormulaire], "NomRequete", Forms![TonFormulaire]!
[TonChamp])
ou
RetourFonction = TaFonction(Forms
("TonFormulaire"), "NomRequete", Forms
("TonFormulaire").Controls("TonChamp"))

Ok?
Cordialement.
.



Avatar
Pierre CFI [mvp]
bonjour
quand tu saisis As, tu as une liste qui apparait

--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B

Site pour bien commencer
http://users.skynet.be/mpfa/
Site perso
http://access.cfi.free.fr
"Myriam" a écrit dans le message de news:7f3801c431dd$18126a50$
Merci, c'est tout simple quand on sait...
que le type contrôle existe!!!
Mais où trouver des listes des différentes références
employées dans VBA ?
-----Message d'origine-----
Bonjour Myriam,

Déclarer le paramètre en type "Control", comme suit:

Function TaFonction (frmForm as Form, strReq As String ,
ctrChamp as Control) As ...

....
End Function

Et pour appeler

RetourFonction = TaFonction(Me, "NomRequete", Me.Champ)
ou
RetourFonction = TaFonction(Forms!
[TonFormulaire], "NomRequete", Forms![TonFormulaire]!
[TonChamp])
ou
RetourFonction = TaFonction(Forms
("TonFormulaire"), "NomRequete", Forms
("TonFormulaire").Controls("TonChamp"))

Ok?
Cordialement.
.



Avatar
Xavier HUE
Mais où trouver des listes des différentes références
employées dans VBA ?
Le sujet est vaste!!


L'aide en ligne est bien faite, mais si tu ne connais pas
les différents "modèle d'objets" utilisés dans Access, les
recherches peuvent être fastidieuses.

Une piste pourtant:
- Afficher la fenêtre base de données
- Presser F1
- Si l'aide est installé correctement, double-clic
sur "Aide de Microsoft Access", puis les chapitres suivants

Programmer avec Visual Basic
Référence de Microsoft Access Visaul Basic
Objets Microsoft Access

Tu verras apparaître les différents objets utilisables
dans Access (hors objets d'accés aux données comme DAO ou
ADO). Il te suffit de cliquer sur un des objets pour
savoir comment l'utiliser.

Ceci dit, sans une formation de base, cela risque de te
rebuter assez rapidement. Mais ne te décourage pas. On a
tous commencé plus ou moins comme ça, et à force de
pratique, tests et recherches, on développe nos
connaissances.

Et n'hésite pas à revenir poser des questions.

Bon code.
Cordialement.