[VBA SQL] DLookup j'y arrive pas

Bonjour,

La syntaxe du DLookup est : DLookup("[champ]","table","[champ2]=valeur")
Mais à la place de -valeur- je veux mettre ce qu'il y a dans une liste modifiable mais problème avec les guilliments je pense

Me.chk_project = check box
Me.cmb_project = liste modifiable

Code:

---

1 2 3 4 5 6 7

info = "" SQLCond = " [Equipments]![IDProject] = " & Me.cmb_project If Me.chk_project Then info = info & "Project " & DLookup("[ProjectName]","Projects", "*'[IDProject] = " & Me.cmb_project & "*') : " & DCount("*", "Equipments", SQLCond) & " Equipments " Else info = info & " The DataBase includes " & DCount("*", "Equipments") & " Equipments for " & DCount("*", "Projects") & " projects" End If

---

Merci

Je crois qu'il ya de * et ' de trop sans compter l'erreur avec le DCount

Code:

---

1 2	info = info & "Project " & DLookup("[ProjectName]","Projects", "(IDProject = " & Me.cmb_project & ")") & DCount("*", "Equipments", SQLCond) & " Equipments"

---

Merci DMboup:D

Mais maintenant dès que je coche ma check box un msg d'erreur apparaît pour me dire qu'il n'y a rien là où la liste déroulante liée à la check box doit donner une valeur, mais c'est normal je ne l'ai pas encore sélectionné... comment faut-il faire pour que le msg d'erreur "attende" que j'ai sélectionné l'élément dans la liste ?

Bonjour,
Si tu ne sélectionnes rien c'est qu'il y a une valeur nulle quelque part. Alors pour éviter les valeurs sulles, vaut mieux utiliser la fonction nz.
Bon courage et @+

Code:

---

1 2 3 4 5 6 7 8

info = "" SQLCond = "[IDProject] = " & nz(Me.cmb_project) If Me.chk_project Then info = info & "Project " & nz(DLookup("[ProjectName]", "Projects", SQLCond)) & " : " & nz(DCount("*", "Equipments", SQLCond)) & " Equipments " Else info = info & " The DataBase includes " & nz(DCount("*", "Equipments")) & " Equipments for " & nz(DCount("*", "Projects")) & " projects" End If

---

Lol j'allai répondre à la discussion en disant que j'ai rajouter une condition avec un IsNull et que ça marche nickel maintenant.

Mais j'ai vu ta réponse qui est plus élégante. Avec ta réponse qu'est-ce qui sera affiché s'il n'y a rien dans la liste modif ?