Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Pb Passage de Param dans un Dlookup Merci !

Pb Passage de Param dans un Dlookup Merci !

2 réponses
Avatar
laurent860
Bonjour,
J'ai le PN suivant (Surement un PB de syntaxe)
Lorsque je passe "CodeForfait" à ma fonction "CalculCouts" et que je fait le
dlookup j'obtient un null
Hors si je fais ce même dlookup dans "à la main cela marche" , j'en deduis
que je dois mal "coté" le parametre "CodeForfait" dans mon expression ??
Merci pour votre aide !! voir ex ci dessous

Function CalculCouts(TypeForfait As Variant, CodeForfait As String)

MsgBox CodeForfait

If (TypeForfait = "Forfait TOTO") Then
CalculCouts = DLookup("[Montant]", "[GC Forfaits TDF]", "[Label]=" &
CodeForfait)
MsgBox CalculCouts
Else
CalculCouts = "Non Renseigné"

End If

Sub main()

Call CalculCouts("Forfait TOTO", "Z02_BSC_C")


'MsgBox DLookup("[Montant]", "GC Forfaits TOTO", "[Label]=" &
"'Z02_BSC_C'")

end sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
3stone
Salut,

"laurent860"

If (TypeForfait = "Forfait TOTO") Then
CalculCouts = DLookup("[Montant]", "[GC Forfaits TDF]", "[Label]=" & CodeForfait)



Label et CodeForfait sont de type string, non ?

DLookup("[Montant]", "[GC Forfaits TDF]", "[Label]='" & CodeForfait & "'")




--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------

Avatar
laurent.vicente
Merci je vais tester c'est effectivement des String
A+
"3stone" a écrit dans le message de
news:
Salut,

"laurent860"

If (TypeForfait = "Forfait TOTO") Then
CalculCouts = DLookup("[Montant]", "[GC Forfaits TDF]", "[Label]="
& CodeForfait)




Label et CodeForfait sont de type string, non ?

DLookup("[Montant]", "[GC Forfaits TDF]", "[Label]='" & CodeForfait &
"'")





--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------







---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.688 / Virus Database: 449 - Release Date: 18/05/2004