[AC-2007] Problème déclaration variables [Résolu]

[Dixies]

Bonsoir tout le monde.

J'ai un problème récurrent chez moi : les variables.

Code :

1
2
3
4
5
6
7
    Dim Nob As Variant
    Dim MonMois As String
 
 
    Nob = DMax("[N°]", "[QLivraisons]")
    MonMois = DLookup("[Mois]", "[QLivraisons]", "[N°] = Nob")
    MsgBox MonMois

Ce code ne fonctionne pas, il génére une erreur 2471 avec ce message :

L'expression entrée comme paramètre de requête est à l'origine de l'erreur suivante : Nob

La variable semble bien déclarée (enfin je crois) puisqu'elle retourne la valeur souhaitée mais le fait d'insérer la variable Nob dans la fonction DLookup() bloque tout. Y a t-il une écriture particulière pour insérer une variable dans DLookup() ?

Par le passé, j'ai connu plusieurs fois ce pb. Je voudrais vraiment comprendre ce que j'ai mal fait.

Merci d'avance.

[User]

Salut,

Si ta variable Nob est du type entier long ou numérique :

Code :

1
2
3
4
5
6
Dim Nob As long
Dim MonMois As String
 
Nob = DMax("[N°]", "[QLivraisons]")
MonMois = DLookup("[Mois]", "[QLivraisons]", "[N°]=" & Nob)
MsgBox MonMois

A+

[Dixies]

Bonsoir, .... et me voici de retour !

Merci User pour ta réponse, effectivement ton code fonctionne beaucoup mieux que le mien.
Cela dit, peux-tu m'expliquer pourquoi il faut mettre la variable à l'extérieur des guillemets ?
Et autre question, comment fait-on avec une fonction ?
Explications :

Je voudrais connaitre le mois (en chiffre). Dans mon code, la variable MonMois me retourne le mois en lettre.

Code :

1
2
3
4
5
6
7
8
9
10
Dim Nob As long
Dim MonMois As String
Dim MonMoisChiffre as long
 
 
Nob = DMax("[N°]", "[QLivraisons]")
MonMois = DLookup("[Mois]", "[QLivraisons]", "[N°]=" & Nob)
MonMoisChiffre = Month(MonMois)
 
MsgBox MonMois & "  " & MonMoisChiffre

Et là j'ai aussi une erreur dans ma fonction Month().
Quelle est la syntaxe ?

Merci pour l'info.

[User]

Salut,

I - Pourquoi mettre la variable à l'extérieur des guillemets ?

Code :

MonMois = DLookup("[Mois]", "[QLivraisons]", "[N°]=" & Nob)

Si tu mets la variable Nob à l'intérieur des guillemets Access va chercher un nom de champ pour 1 table ou 1 paramètre interne à une requête, en mettant la variable à l'extérieur cela permet de transmettre la valeur de la variable dans la condition, du style :

si Nob=1:

Code :

MonMois = DLookup("[Mois]", "[QLivraisons]", "[N°]=" & Nob)

équivaut à :

Code :

MonMois = DLookup("[Mois]", "[QLivraisons]", "[N°]=1")

II - Pour la fonction du mois

Essaie ceci :

Code :

MonMoisChiffre = Format(MonMois & " 2011","mm")

A+

[Dixies]

Bonjour User,

Merci pour cet éclaicissement concernant les variables, je comprends un peu mieux certaines erreurs que j'ai commises jusque là.
Quant à la fonction du mois, ça fonctionne à merveille.

Ce site ainsi que ce forum sont une mine d'or.
Merci à tous ceux qui les entretiennent et à vous développeurs qui passaient du temps à nous dépanner.
Merci à toi User pour ce coup de main.

Soyons clair sans vous tous, j'aurais été parfaitement incapable de mettre au point mon application.

A bientôt.

[User]

Ce site ainsi que ce forum sont une mine d'or.
Merci à tous ceux qui les entretiennent et à vous développeurs qui passaient du temps à nous dépanner.
Merci à toi User pour ce coup de main.

Soyons clair sans vous tous, j'aurais été parfaitement incapable de mettre au point mon application.

A bientôt.

Merci à toi au nom de toute l'équipe