Passage nom et champ dans une requête depuis un form
1 réponse
Dan
Bonjour,
Afin d'=E9viter de multiplier les requ=EAtes, je cherche =E0=20
copier le nom du formulaire et la valeur du champ dans=20
une requ=EAte.
Pour ce qui est de faire passer la valeur du champ, je=20
n'ai pas de probl=E8me, mais je ne parviens pas =E0 faire=20
passer le nom du formulaire.
Pour la valeur du champ je proc=E8de de la sorte :
Sur le formulaire :
VarAFairePasser =3D Me.NomduChamp
Dans la req=EAte
[forms]![NomduFormulaire]![VarAFairePasser]
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Xavier HUE
Bonjour Dan,
Ce que tu cherches à faire, je suppose, c'est avoir un critère (ou une définition de colonne) en provenance de formulaires et controles différents?
Par exemple WHERE TaZone = Forms![Formulaire1]![Controle1] ou WHERE TaZone = Forms![Formulaire1]![Controle2] ou WHERE TaZone = Forms![Formulaire2]![Controle3]
Oui?
Une solution:
Dans un module standard (pas de formulaire)
Dim strNomForm as String Dim strNomCtrl as String
Function LireValeureControle() As Variant LireValeureControle = Forms(strNomForm).Controls (strNomCtrl).Value End Function
Dans ta procédure qui doit ouvrir ta requête: strNomForm = NomDuFormulaireSource strNomCtrl = NomDuControleSource
Cordialement.
Bonjour Dan,
Ce que tu cherches à faire, je suppose, c'est avoir un
critère (ou une définition de colonne) en provenance de
formulaires et controles différents?
Par exemple
WHERE TaZone = Forms![Formulaire1]![Controle1]
ou
WHERE TaZone = Forms![Formulaire1]![Controle2]
ou
WHERE TaZone = Forms![Formulaire2]![Controle3]
Oui?
Une solution:
Dans un module standard (pas de formulaire)
Dim strNomForm as String
Dim strNomCtrl as String
Function LireValeureControle() As Variant
LireValeureControle = Forms(strNomForm).Controls
(strNomCtrl).Value
End Function
Dans ta procédure qui doit ouvrir ta requête:
strNomForm = NomDuFormulaireSource
strNomCtrl = NomDuControleSource
Ce que tu cherches à faire, je suppose, c'est avoir un critère (ou une définition de colonne) en provenance de formulaires et controles différents?
Par exemple WHERE TaZone = Forms![Formulaire1]![Controle1] ou WHERE TaZone = Forms![Formulaire1]![Controle2] ou WHERE TaZone = Forms![Formulaire2]![Controle3]
Oui?
Une solution:
Dans un module standard (pas de formulaire)
Dim strNomForm as String Dim strNomCtrl as String
Function LireValeureControle() As Variant LireValeureControle = Forms(strNomForm).Controls (strNomCtrl).Value End Function
Dans ta procédure qui doit ouvrir ta requête: strNomForm = NomDuFormulaireSource strNomCtrl = NomDuControleSource
