Discussion :

[bernez]

Je souhaite utiliser la fonction dlookup dans du code VBA pour récupérer la valeur du champ [plafond] dans la table t_categories pour le code_categorie qui est égal à la variable mcategorie :

Code :

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

1
2
3
4
5
6
7
8
9
10
' RENSEIGNEMENT DES DROITS ATTRIBUABLES
Dim mnbdroits As Double, mnbdroitsdem As Double
Dim mplafond As Double, mlimite As Double
Dim mcategorie As String
mnbdroitsdem = Me!NB_DROITS_DEMANDES
mcategorie = Me!zt_categorie
MsgBox (mcategorie)
mplafond = DLookup("[plafond]", "t_categories", "[code_categorie] = 'MG'")
MsgBox (mplafond)
mplafond = DLookup("[plafond]", "t_categories", "[code_categorie] = " & mcategorie)

Le problème est que j'obtiens le message "Erreur d'exécution 2471
L'expression entrée comme paramètre de requête est à l'origine de l'erreur suivante : L'objet ne contient pas d'objet d'automatisation 'MG'
MG étant la valeur du code_categorie

Si je met la valeur du code categorie à la place de la variable, j'obtiens le bon résultat.:

Code :

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

mplafond = DLookup("[plafond]", "t_categories", "[code_categorie] = 'MG'")

Comment faire pour utiliser le contenu de la variable mcategorie ?
Merci pour votre aide.

[mout1234]

Bonjour et bienvenue sur le forum.


Si mcaterogie est un string, il faut que tu ajoutes des apostrophes ou des guillemets autour de la valeur transmise.
Essayes

Code VBA :

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

mplafond = DLookup("[plafond]", "t_categories", "[code_categorie] = '" & mcategorie & "'")

[bernez]

, merci pour la rapidité de la réponse.

[mout1234]

De rien