Discussion :

[com689]

Bonjour à tous,

Dans la petite application de GMAO que je tente de développer, je butte sur un petit souci de vérification de résultats d'une requête.
Dans un formulaire, lorsque je clique sur un bouton, j'ouvre un autre formulaire "EcoEnergie", ainsi qu'une requête qui sélectionne les enregistrements figurant et dans deux tables distinctes dont une variant chaque jour.
Dans le formulaire dans le formulaire "EcoEnergie", je souhaite que seuls les enregistrements figurant dans la requête ne s'affichent.
J'ai écris un code qui fonctionne apparemment, mais sachant qu'il faut vérifier la potentielle présence de 150 enregistrements, ce code risque d'être long et resourcivore.
Ma question est la suivante, existe-t-il une possibilité de n'afficher que les enregistrement résultant de la requête, compris entre 160 et 630, au lieu de vérifier si chaque enregistrement est présent ou pas, ce qui devient dans mon code ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub EcoEnergie_Click()
 
DoCmd.OpenForm "EcoEnergie", 0
DoCmd.OpenQuery "R_Recherche_Eco_Energie_par_Unite", 0
DoCmd.Close acQuery, "R_Recherche_Eco_Energie_par_Unite"
    If DLookup("[Inst]", "R_Recherche_Eco_Energie_par_Unite") = 160 Then
        Forms![EcoEnergie].[160].Visible = True
    Else
        Forms![EcoEnergie].[160].Visible = False
    If DLookup("[Inst]", "R_Recherche_Eco_Energie_par_Unite") = 162 Then
        Forms![EcoEnergie].[162].Visible = True
    Else
        Forms![EcoEnergie].[162].Visible = False
    End If
    If DLookup("[Inst]", "R_Recherche_Eco_Energie_par_Unite") = 164 Then
        Forms![EcoEnergie].[164].Visible = True
    Else
        Forms![EcoEnergie].[164].Visible = False
    If DLookup("[Inst]", "R_Recherche_Eco_Energie_par_Unite") = 165 Then
        Forms![EcoEnergie].[165].Visible = True
    Else
        Forms![EcoEnergie].[165].Visible = False
    End If
 
End Sub

Merci d'avance pour toutes vos suggestions.

[marot_r]

Bonjour.

Ton code est un peu étrange :

Code :

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

1
2
DoCmd.OpenQuery "R_Recherche_Eco_Energie_par_Unite", 0
DoCmd.Close acQuery, "R_Recherche_Eco_Energie_par_Unite"

Que contient Inst ? Le numéro de l'enregistrement ?
Est-ce que EcoEnergi est basé sur R_Recherche_Eco_Energie_par_Unite ou sur une source qui contient [Inst].

Si oui tu peux peut-être faire :

Code :

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

call docmd.OpenForm("EcoEnergie", acNormal, ,"[Inst] between 160 and 630")

Qui va n'afficher que les enregistrements où [inst] est entre 160 et 630.

A+

[marot_r]

Aussi dans ton code, quand tu le peux utilise des constantes symboliques au lieu de nombre (ex : AcNormal au lieu de 0, True au lieu de -1, etc..), cela le rend plus compréhensible pour un humain.

Access te facilite génralement la vie en te proposant la liste des constantes disponibles donc pourquoi s'en priver ?

A+

[com689]

Merci Marot_r pour ta rapide réponse.

Le début du code sert à exécuter la requête DoCmd.OpenQuery "R_Recherche_Eco_Energie_par_Unite", 0 pour pouvoir lire les résultats, et à la fermer immédiatement pour ne pas qu'elle s'affiche à l'écran DoCmd.Close acQuery, "R_Recherche_Eco_Energie_par_Unite".
Sur le coup cela m'a paru être une bonne idée ?

Il est vrai qu'en lisant tes questions, je me rends compte que je n'ai pas été suffisamment précis.
En fait [Inst] va chercher les numéros des installations (entre 160 et 630) qui présentent un caractère particulier, ici un lecteur de carte, et qui en plus sont disponible ce jour.
Je souhaiterai que suite à cela, sur un formulaire "EcoEnergie"(dont l'image de fond représente un plan de l'hotel), les zones de textes nommées de 160 à 630 qui figurent dans les résultats de la requête soit affichées sur le formulaire, pour pouvoir visualiser directement sur le plan ou sont situés les unités munies de lecteur de cartes et disponibles.

Voilà, j'espère avoir été un peu plus clair.

Et enfin, concernant ta remarque sur la rédaction de mes codes, j'essaie habituellement d'être plus clair, sur le choix des constantes symboliques, ne serait-ce que pour moi, mais actuellement j'ai un souci avec intellisense, qui n'affiche le ruban d'aide à la rédaction qu'un dixième de seconde et qui après déplace le curseur d'un pas vers la gauche, ce qui fait qu'au lieu de saisir par exemple "AcreadOnly", je vais me retrouvé avec "creadOnlyA", du coup je dois corriger à chaque fois, j'ai donc choisi pour l'instant d'utiliser les nombres, mais c'est vrai que je ne suis déjà pas trop à l'aise avec VBA habituellement, alors là...

Merci d'avance de ton aide éventuelle.

[marot_r]

Bonjour.

OK, c'est un peu différent.

Pour intellisens, as-tu un formulaire ouvert avec une minuterie (ex : exécute du code toutes les x secondes).
Si oui, tes problème viennent peut-être de là.
J'ai eu le cas dans une de mes applis et c'était à peu près les mêmes symptomes.

Revenons à ton problème initial.

je te suggère le code suivant qui suppose que tu as une tables des installations et une requête (R_LecteurCarte) qui te donnes seulement celles qui ont un lecteur de carte.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
dim db as dao.database:set db=currentdb
dim rDonnees as dao.recordset: set rDonnees=db.openrecordset("R_Recherche_Eco_Energie_par_Unite", dbOpenSnaShot)
dim rLecteur as dao.recordset: set rDonnees=db.openrecordset("R_LecteurCarte", dbOpenSnaShot)
 
do while not rLecteur.eof
   call rDonnees.findfisrt("[Inst]=" & rLecteur![Inst])
   me.Controls(rDdonnees![Inst]).Visible = not rDonnees.nomatch
   rLecteur.movenext
loop
 
rDonnees.close:set rDonnees=nothing
rLecteur.close: set rLecteur=nothing
db.close:set db=nothing

Ce code parcourt la liste de tes lecteurs.
Si le lecteur est trouvé not rDonnees.nomatch est éagle à True sinon à False ce qui rend ton contrôle visible ou pas.

L'avantage de passer par une requête est que si tu ajoutes ou supprimes des installations tu n'as pas à toucher à ton code.
En cas d'ajout tu devras tout de même modifier le formulaire, et seulement le formulaire, et ça c'est plus facile à la main.

A+

[com689]

Bonjour Marot_r,

j'ai essayé ta solution, mais elle ne fonctionne pas (ou peut-être est-ce moi qui ne l'ai pas réellement comprise;
Pour simplifier les choses, je joint un condensé de mon appli, avec la tentative d'utilisation de ta solution, ainsi que mon début d'approche.
En fait mon souhait est: sur un formulaire "Recherche Equipement par unités" figure entre autre un bouton éco qui execute une requête "R_Recherche_EcoEnergie_par_Unite" répertoriant toutes les unités munies de lecteur de carte, si je clique dessus, il m'ouvre un formulaire "EcoEnergie", en y affichant les zones de texte nommées des numéros résultant de la requête "R_Recherche_EcoEnergie_par_Unite". Si je clique sur le bouton "Recherche équipement par unités disponibles" du formulaire "Recherche Equipement par unités", cela m'affiche un autre bouton eco qui lui execute une autre requête "R_Recherche_EcoEnergie_par_Unite_Dispo", qui répertorie toutes les unités munies de lecteur de carte disponible ce jour, si je clique dessus, cela m'ouvre à nouveau le formulaire "EcoEnergie", en y affichant cette fois uniquement les zones nommées des numéros résultant de cette dernière requête.
Dans mon condensé, si tu cliques sur le bouton eco orange, cela doit ouvrir le formulaire avec10 carrés noirs (165,166,283,284,303,303,307,308,605 et 606) alors que si tu cliques sur le bouton Eco Vert, cela devrait ouvrir le même formulaire, mais avec uniquement 6 carrés noirs (165,283,302,307,605 et 606).

Voilà, j'espère avoir été plus précis.

Au fait, merci pour l'info sur le formulaire avec minuterie, c'était exactement mon problème.

Merci encore.