OVH Cloud OVH Cloud

Problème sur mon ParamArray

2 réponses
Avatar
Franck Deschamps
Bonjour,

voici mon problème, j'ai créé une fonction dans un module:
Function SelectionChamp(strChamp As String, ParamArray LesChamps() As
Variant)

afin de sélectionner mon champ pour une requète. Dans le dit champ de ma
requète j'ai écris:
Donnees: SelectionChamp(Formulaires!Menu!Donnees;[25da];[25db])

Le problème c'est lorsque je lance ma requète, ma variable LesChamps
contient 2 valeurs numériques issus de ma table au lieux de [25da];[25db]
qqu'un peut il m'expliquer comment résoudre ce pb?

Merci

Franck

2 réponses

Avatar
Jessy Sempere [MVP]
Bonjour

Tu aurais du exposer ce problème dans le même fil de te répondre
dans l'autre sans avoir ces éléments... ;-(

Bon, c'est logique, la fonction que je t'avais donnée était basée sur une
suite logique du nom de tes champs à sélectionner, genre :
Champ1, Champ2, Champ3

Hors toi, tu as :
25da, 25db, 25xx, ...

Dans ce cas là, tu dois rajouter dans ton code, la gestion de ces noms
de champ particulier, essais de remplacer la fonction par celle qui suit,
(exemple pour 2 champs, à toi de rajouter la suite du Select Case) :

Function fWhatField(strField As String, _
ParamArray TheFields() As Variant)
Select Case strField
Case "25da"
fWhatField = TheFields(0)
Case "25db"
fWhatField = TheFields(1)
End Select
End Function
--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"Franck Deschamps" a écrit dans le message de
news:
Bonjour,

voici mon problème, j'ai créé une fonction dans un module:
Function SelectionChamp(strChamp As String, ParamArray LesChamps() As
Variant)

afin de sélectionner mon champ pour une requète. Dans le dit champ de ma
requète j'ai écris:
Donnees: SelectionChamp(Formulaires!Menu!Donnees;[25da];[25db])

Le problème c'est lorsque je lance ma requète, ma variable LesChamps
contient 2 valeurs numériques issus de ma table au lieux de [25da];[25db]
qqu'un peut il m'expliquer comment résoudre ce pb?

Merci

Franck




Avatar
Franck Deschamps
Ya plus qu'à alors :-)
J'essaie cela demain, merci beaucoup pour le temps passer à la réponse à mon
problème.

Désolé pour le post dans un 2eme news je ne pensais pas que tu les suivais
si longtemps j'ai préfère en reposté un nouveau pour revenir dans les 1ers !

Merci pour tout
Bonne soirée

Franck
http://www.deschamps-web.com

"Jessy Sempere [MVP]" a écrit dans le message de
news: 43841e86$
Bonjour

Tu aurais du exposer ce problème dans le même fil de te répondre
dans l'autre sans avoir ces éléments... ;-(

Bon, c'est logique, la fonction que je t'avais donnée était basée sur une
suite logique du nom de tes champs à sélectionner, genre :
Champ1, Champ2, Champ3

Hors toi, tu as :
25da, 25db, 25xx, ...

Dans ce cas là, tu dois rajouter dans ton code, la gestion de ces noms
de champ particulier, essais de remplacer la fonction par celle qui suit,
(exemple pour 2 champs, à toi de rajouter la suite du Select Case) :

Function fWhatField(strField As String, _
ParamArray TheFields() As Variant)
Select Case strField
Case "25da"
fWhatField = TheFields(0)
Case "25db"
fWhatField = TheFields(1)
End Select
End Function
--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"Franck Deschamps" a écrit dans le message de
news:
Bonjour,

voici mon problème, j'ai créé une fonction dans un module:
Function SelectionChamp(strChamp As String, ParamArray LesChamps() As
Variant)

afin de sélectionner mon champ pour une requète. Dans le dit champ de ma
requète j'ai écris:
Donnees: SelectionChamp(Formulaires!Menu!Donnees;[25da];[25db])

Le problème c'est lorsque je lance ma requète, ma variable LesChamps
contient 2 valeurs numériques issus de ma table au lieux de [25da];[25db]
qqu'un peut il m'expliquer comment résoudre ce pb?

Merci

Franck