Discussion :

[CPIEAlban]

Bonjour,

Voici mon problème :

J'ai créé un état sur la base d'une requête, pour que ne soient affichés que les résultats qui correspondent à une catégorie précise. Dans la requête, j'ai donc mis en critère sur "CodeCategorie" : [forms]![F_ChoixCategorie]![cboSelectionCategorie] OU [forms]![F_AttribuerJours]![txtCodeCategorie] car j'ai besoin de pouvoir afficher l'état soit en passant par le formulaire F_ChoixCategorie, soit par le formulaire F_AttribuerJours

Or, lorsque j'ouvre l'état, Access s'attend à ce que les deux critères soient remplis (moi je voudrais qu'il ne se contente que d'un des deux). Donc si je passe par le formulaire F_ChoixCatégorie, il me demandera, via une boite de dialogue, "Entrer une valeur de paramètre - Formulaires!F_AttribuerJours!txtCodeCategorie", et inversement. Il faut alors que je clique sur OK (même sans avoir renseigné la valeur) pour que la boite se ferme et que mon état s'ouvre correctement.

Je voudrais savoir s'il existe un code VBA pour empêcher l'affichage de cette boite de dialogue ? Et faire en sorte que mon état s'ouvre même si le deuxième critère n'est pas renseigné ?

Merci d'avance

Alban

[loufab]

Bonjour,

En effet si tu mets 2 critères il s'attend à les trouver. On ne peut pas masquer ce message, il faut correctement faire les choses pour qu'il ne te sollicite plus.


Créer une fonction VBA publique dans un module standard.

Dans cette fonction tu dois tester quel formulaire est ouvert et renvoyer la valeur :

Voici le contenu :

Code :

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

1
2
3
4
5
6
 
If SysCmd(acSysCmdGetObjectState, acForm, "F_ChoixCategorie") = 1 Then
  mafonction = forms.F_ChoixCategorie.cboSelectionCategorie.value
else if SysCmd(acSysCmdGetObjectState, acForm, "F_AttribuerJours") = 1
   mafonction = forms.F_AttribuerJours.txtCodeCategorie.value
endif

Dans ta requête tu indiques simplement le nom de la fonction suivit des parenthèses.

Code :

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

1
2
 
SELECT ... FROM ... WHERE CodeCategorie=mafonction();

Cordialement,

[CPIEAlban]

Merci beaucoup, ça marche parfaitement !

Bonne soirée,

Alban