Discussion :

[Melhiril]

Bonjour,

Après des recherches sur le forum et la FAQ, j'ai trouvé une explication pour lier deux listes déroulantes de deux tables différentes. http://access.developpez.com/faq/?page=zdl#DepZdl

Mais je n'arrive pas à l'adapter à mon cas. J'ai une table affaire (qui contient des numéros d'affaires) et une table theme (qui contient des noms de thèmes comme: administratif, prospection, management ET affaires).
Donc dans mes listes, je voudrais que quand je sélectionne "affaires" dans mes thèmes, la 2e liste sur les numéros d'affaires (donc la table affaire) "s'active".

Quelqu'un peut-il m'aider svp ??

[argyronet]

Bonjour,

Voici un code simplifié...

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
Option Compare Database
Option Explicit
 
Private Sub Form_Load()
  lstAffaires.RowSource = "SELECT * FROM TBAffaires ORDER BY Affaire"
  lstThemes.RowSource = ""
End Sub
 
Private Sub lstAffaires_AfterUpdate()
Dim strAffaire As String
Dim strThemeAffaire As String
 
  strAffaire = Me!lstAffaires
  strThemeAffaire = DLookup("Affaire", "TBThemes", "[Affaire]='" _
& strAffaire & "'")
 
  If Len(strThemeAffaire) Then
    lstThemes.RowSource = "SELECT * FROM TBThemes WHERE [Affaire]='" _
& strAffaire & "'"
  Else
    lstThemes.RowSource = ""
    MsgBox "Aucun thèmes pour l'affaire " & strAffaire & " !", , "Désolé"
  End If
End Sub

N'ayant pas la structure de tes tables, il te faudra adapter la conditon Where avec ou sans quotes...

Argy

[Melhiril]

Merci beaucoup de ta réponse, je vais essayer !!