Discussion :

[dalmasma]

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 :

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

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

[DMboup]

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

Code :

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

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

[dalmasma]

Merci DMboup

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 ?

[Mahefasoa]

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 :

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

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

[dalmasma]

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 ?