Liste déroulante hiérarchisé dans sous-Forms

Fermé
Tofd54 Messages postés 5 Date d'inscription mardi 2 juin 2009 Statut Membre Dernière intervention 12 juin 2009 - 11 juin 2009 à 12:10
Tofd54 Messages postés 5 Date d'inscription mardi 2 juin 2009 Statut Membre Dernière intervention 12 juin 2009 - 12 juin 2009 à 19:54
Bonjour à tous,

Je vais essayer de vous donner tous les éléments de mon problème car il me parraît assez complexe.

J'ai crée un base d'un entrepreneur en BTP

J'Y ai fait une table dans laquelle on saisie les horraires de la journée de travail ainsi que les différentes tâches effectuées : Journee

Elle est donc reliée à une autre table : TypeTravaux (CodeType, #NumCategorie, NomType), par une table Realiser (RefJournee#, CodeType#)

Voici le schéma

http://christ54.free.fr//Probleme_access_listederoulant_sousformulaire/Relation.jpg
(désolé je ne sais pas comment rendre ce liens directement cliquable sur ce forum)


Ensuite concernant le formulaire, assez simple, le problème vient vraiment par rapport au sous-formulaire pour remplir les tâches :

http://christ54.free.fr/...

Voici ce que cela donne quand je remplis, toutes les lignes sont remplies et on ne vois que lorsque les types que lorsque la catégorie correspondante est mise.

http://christ54.free.fr//Probleme_access_listederoulant_sousformulaire/cas1.jpg
http://christ54.free.fr//Probleme_access_listederoulant_sousformulaire/cas2.jpg

concernant le VB j'ai suivit le tuto suivant :

https://argyronet.developpez.com/office/access/selectitemlistAB/


Private Sub Categorie_AfterUpdate()
Dim lngIDCat   As Long
Dim SQL        As String

  '' Vérifie que l'on a cliqué sur une catégorie pour éviter le NULL
  If Not IsNumeric(Me!Categorie) Then Exit Sub
  '' Affecte la valeur de IDCategorie à la variable lngIDCat
  lngIDCat = Me!Categorie
  '' Construit la chaîne SQL avec la catégorie concernée
  SQL = "SELECT CodeType, NumCategorie, NomType FROM TypeTravaux WHERE NumCategorie =" & lngIDCat & " ORDER BY NomType"
  '' Affecte la chaîne SQL à la liste des métiers
  CodeType.RowSource = SQL
  '' Déverrouille la liste des métiers
  CodeType.Enabled = True
  '' Donne le focus la liste des métiers
  CodeType.SetFocus
  '' Déroule la liste des métiers
  CodeType.Dropdown
End Sub



Ce que je voudais :

* voir tout les types rentrés, même si la catégorie est différente
* Je pense qu'il faudrait que les zone catégories soient réellement indépendantes entre chaque ligne, i.e. qu'elles ne soient pas les même à chaque ligne.

Avez-vous des explications ? solutions ? changement à faire ?

En tout cas merci par avance de votre aide

1 réponse

Tofd54 Messages postés 5 Date d'inscription mardi 2 juin 2009 Statut Membre Dernière intervention 12 juin 2009
12 juin 2009 à 19:54
Petit Up svp

Dites le si ce n'est pas assez claire, je tenterai d'être plus précis
0