Discussion :

[athos7776]

Voilà! Je tente dexécuter un DLookup qui, lorsque je clique dans une zone de liste, regarde si une valeur en particulier est présente dans une de mes tables. Si cette valeur est présente dans cette table, alors l'une de mes cases à cocher devient active. Sinon, si cette valeur n'apparait pas dans ma table, ma case à cocher se désactive.

Malheureusement, Access m'envoie comme message "Erreur 13, Incompatibilité de type" et je ne comprends pas pourquoi. Voici à quoi ressemble mon code!

Code :

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

1
2
3
4
If (DLookup("mois", "TableAnnee", "mois='JANVIER'")) Then
CaseJanvier.Enabled = True
Else: CaseJanvier.Enabled = False
End If

Merci de votre aide!

[Dolphy35]

Salut,

DlookUp renvoi une valeur de type Variante, il faut effectuer soit un test soit charger le résultat dans une variable.

je verrais plus ceci :

Code :

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

1
2
3
4
If DLookup("mois", "TableAnnee") = "JANVIER" Then
CaseJanvier.Enabled = True
Else: CaseJanvier.Enabled = False
End If

mais je pense que ton code n'est pas optimisé que veux-tu faire éxactement ? tu veux tester tous les mois ? peut être un Select Case ?

Dolphy

[athos7776]

Yabadabadooo!!! ÇA fonctionne!!! Merci beaucoup!!!

Pour ce qui est de ta question, effectivement il est fort possible que mes codes ne soient pas optimisés au maximum. Ca ne fait pas tellement longtemps que je commence à tenter de faire de la programmation. En ce moment, je tente de créer des formulaires à sélections multiples et j'ai plusieurs boutons qui sont indépendants, c'est pourquoi je dois répeter plusieurs fois le même code sur plusieurs boutons différents (où leur code possède une légère nuance pour chacun).

Ici, j'ai plusieurs boutons représentant chacun un mois de l'année. J'ai une zone de liste qui, lorsqu'on sélectionne une valeur à l'intérieur de celle-ci, crée une table avec critères mes sélections. Donc, dépendemment de mes sélections effectués, ce ne sont pas tous les mois de l'année qui y sont présent. C'est pourquoi, si l'un de ces mois n'apparait dans ma nouvelle table, la case à cocher qui y est relié se désactive automatiquement pour empêcher à l'utilisateur de l'utiliser. C'est un peu ça en gros

Merci encore Dolphy!!!

[athos7776]

Zut...Ça fonctionne plus ou moins finalement. LE Dlookup ne fait que regarder la première valeur de ma colonne "mois". Moi je voudrais qu'elle regarde partout dans ma colonne "mois" et si elle voit le mot "JANVIER" une seule fois dans la colonne, alors ma caseJanvier s'active, et si elle ne voit pas ce mot du tout, ma caseJanvier se désactive.

Merci encore!

[Demco]

Moi je voudrais qu'elle regarde partout dans ma colonne "mois" et si elle voit le mot "JANVIER" une seule fois dans la colonne, alors ma caseJanvier s'active,

En suivant le raisonnement de Dolphy :

Code :

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

If DCount("mois", "TableAnnee", "mois='JANVIER'")>0 Then

En espérant t'aider.

[athos7776]

Je suis tout admiratif par toute cette lucidité ! Merci encore! Grâce à vous, tout fonctionne .

Merci 1000 fois