Filtré des listes deroulante

[jawed]

Salut le forum après mainte recherche sur le forum j'ai trouvé ce Tuto très intéressant.En se basant sur ce dernier j'ai créé trois tables Affectation,Departement et Service
j'ai inséré le code suivant dans la liste déroulante Departement

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub Departement_AfterUpdate()
Dim lngIDAff   As Long
Dim SQL        As String
  If Not IsNumeric(Me!Affectation) Then Exit Sub
  lngIDAff = Me!Affectation
  SQL = " SELECT IDDept, Departement, IDAff from TBLDepartement where IDAff =" & lngIDAff & " order by Departement"
  Departement.RowSource = SQL
  Departement.Enabled = True
  Departement.SetFocus
  Departement.Dropdown
End Sub

Le problème c'est que malgré le code il ne filtre pas le champ Département
Ci joint le fichier des relations et du formulaire
Cordialement
A bientôt

[Philippe JOCHMANS]

Bonjour

Tu as mal lu le tuto d'Argy, sur l'évènement After_Update il remplit une autre liste, toi tu remplis la même

Philippe

[jawed]

Bonjour Philippe JOCHMANS
Alors je ne peut pas filtré la liste Departement ou il y a une autre solution qui existe
Cordialement

[Philippe JOCHMANS]

Si tes listes sont dans cet ordre Affectation,Departement et Service


C'est à partir de la liste affectation donc son AfterUpdate que tu filitres tes départements.

Je pense que tu devrais relire le tuto.

Philippe

[jawed]

Bonjour
Effectivement Philippe JOCHMANS mes listes sont dans cet ordre Affectation,Departement et Service et aussi j'ai constaté que j'ai affecté le code a la liste Departement alors je doit l'affecté a la liste Affectation, j'ai corrigé l'erreur mais ça ne marche pas
Alors j'ai relis le Tuto et j'ai crée des listes indépendante au lieu de mes liste dépendante j'ai affecté le code suivant dans la liste Affectation mais il m'affiche un e liste vide dans Departement

Code :

1
2
3
4
5
6
7
8
9
10
11
Private Sub cmbAffectation_AfterUpdate()
Dim lngIDAff   As Long
Dim SQL        As String
  If Not IsNumeric(Me!cmbAffectation) Then Exit Sub
  lngIDAff = Me!cmbAffectation
  SQL = " SELECT IDDept, Departement, IDAff from TBLDepartement where IDAff =" & lngIDAff & " order by cmbDepartement"
  cmbDepartement.RowSource = SQL
  cmbDepartement.Enabled = True
  cmbDepartement.SetFocus
  cmbDepartement.Dropdown
End Sub

une autre question
1- es que les tables Dans le tuto de Agry sont relié entre elle car les mienne son relié?
2- Si j'utilise des liste indépendante es que mes champs dans les tables Affectation,departement et Service seront repli automatiquement ?
Cordialement

[Philippe JOCHMANS]

Re

Déjà ton OrderBy n'est pas bon, tu mets le nom de ton contrôle :

Code :

order by Departement

Philippe

[jawed]

c'est la preuve que je n'ai pas de notion en VBA
c'est corrigé mais le même problème persiste
Cordialement