Discussion :

[gabzout]

Bonjour a tous,

Etant totalement novice en la matiere je rencontre quelques soucis avec les creations de formulaires et d'etats...

J'ai pour l'instant 3 tables dans ma base de donnees :
TblEquipmentList(EquipmentName, Module)
TblEquipmentReport(EquipmentName, CodeRevision)
Et enfin j'ai cree la derniere table a partir d'une requete permettant de regrouper les deux tables :
TblPendingEquipment(EquipmentName, CodeRevision, Module)

Il existe 8 sortes de modules (module1, module2...) et 3 sortes de codes revision (1,2 et 3)

J'aimerai pouvoir creer un formulaire (ou mieux un etat directement) qui me donne tous les enregistrements relatifs a un module. C'est a dire mettre une combobox me permettant de choisir le module que je veux, et que ca m'affiche TOUS les enregistrements de ce module (peut etre dans un sous formulaire?)

Je ne sais pas trop comment faire ...
Donc si quelqu'un pouvait m'aider ca serait sympa

[ClaudeLELOUP]

Bonjour et bienvenue chez nous,


Voici trois tutoriels qui traitent ce sujet :


Charles A. Recherches multicritère ;

Jean BALLAT Création d'un formulaire de recherche multicritère ;

Fabrice Constans Formulaire de recherche prêt à l'emploi.


et tant qu'à faire :

http://claudeleloup.developpez.com/t...e-multicritere

http://claudeleloup.developpez.com/t...che-pere-fils/



Comme tu vois, on n'est pas en manque de documentation sur le sujet !

[gabzout]

Merci beaucoup, je vais potasser ca

[gabzout]

Je bloque toujours...
J'ai cree un formulaire independant comprenant juste, pour l'instant, une combobox (cbomodule) permettant de choisir le module a partir de la table TModule, et une listbox (lstresults) affichant tous les enregistrements de QEquipment : qui est une requete qui regroupe les enregistrements de 2 tables.
Quand j'ouvre ce formulaire, tous les enregistrements s'affichent bien dans la listbox. cependant quand je selectionne un module dans la combobox plus aucun resultat ne s'affiche...

voici le code vba :


Si quelqu'un a une petite idee de ce qui ne va pas !

Merci

[ClaudeLELOUP]

Bonjour,

Si quelqu'un a une petite idee de ce qui ne va pas

Je te propose de construire le formulaire ensemble.

Poste un BdD en format Access2000 (un fichier .mdb) avec tes tables.

[gabzout]

Merci beaucoup !!
Voici le fichier :
Database2000.zip

[ClaudeLELOUP]

Occupons-nous d’abord de ton modèle de données et de la définition de tes tables.
J’essaie de comprendre.
Tu as 35 équipements (TEquipementList) qui concernent 8 modules (TModule).
Explique ce qu’est « EquipmentDesignation » et ce que contient TCodeRev.

[gabzout]

TEquipmentList et TEquipmentReport sont deux tables creees a partir d'une importation de documents excel.
CodeRev represente le statut d'avancement de l'equipement (Ex : code 3 = pret pour l'installation)
Module represente l'endroit ou se trouve l'equipement
TCodeRev et TModule sont deux tables que j'ai cree (regroupant donc les 3 codes pour TCodeRev et les 8 modules pour TModule). je ne sais pas si elles sont utiles... a la base je les ai creees juste pour en faire mes sources pour les combobox

[ClaudeLELOUP]

Donc, tu as 35 équipements qui ont chacun
- un nom ;
- une désignation ;
- un endroit où il est stocké ;
- un état d’avancement.

Ton modèle devrait ressembler à ceci :






Pour le formulaire, je te propose ce genre de formulaire polyvalent qui te permet à la fois de compléter, consulter et opérer des recherches suivant tes critères




Si tu opères un choix dans une zone de liste verte, la liste se limite aux enregistrements qui ont ce critère






Pour simplifier le code , les zones de liste en vert portent des noms qui commencent par « Filtre », par exemple « FiltreModule ».
La source du formulaire est une requête qui ramène toutes les colonnes souhaitées de TEquipment et qui se réfèrent au contenu des filtres






Le code associé au formulaire :

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
Option Compare Database
Option Explicit
 
 
Private Sub btTous_Click()
  Dim ctl As Control
  For Each ctl In Me.Controls
    If ctl.Name Like "filtre*" Then ctl = Null
  Next ctl
  Me.Requery
End Sub
 
Private Sub filtreDesignation_AfterUpdate()
  Me.Requery
End Sub
 
Private Sub filtreModule_AfterUpdate()
  Me.Requery
End Sub
 
Private Sub FiltreStatut_AfterUpdate()
  Me.Requery
End Sub

Avantage supplémentaire : lorsque ton formulaire est ouvert, sa requête source peut servir telle quelle pour imprimer l'état correspondant à la sélection.

La db exemple est ici : http://claudeleloup.developpez.com/&...806Gabzout.mdb

[gabzout]

Merci beaucoup !!!!!
Donc selon toi je dois obligatoirement changer le contenu de mes tables ?
TEquipmentList et TEquipmentReport sont importes d'excel tels quel, je vais essayer de passer par des requetes pour arriver aux tables voulues.
Merci encore pour ton aide

[ClaudeLELOUP]

Bonjour,

Donc selon toi je dois obligatoirement changer le contenu de mes tables ?

Pas nécessairement, mais ce serait mieux si tu veux construire d'autres fonctionnalités dans ta base de données.