Bonjour
Voila j'ai un problème, bien que j'ai suivi au mieux le tutoriel qui s'y prêtait.
Comme vous pouvez voir sur le doc attaché, j'ai 4 Tables et un formaulaire comportant 2 combox: cmbManager et cmbProject.
Mon souhait serai que lorsque je sélectionne dans cmbManager un nom,
La cmbProject me donne tout les titres de project (Title_Project) dont cette personne s'occupe.
Avec le code ci-dessous, je me retrouve systématiquement quelque soit le nom du manager sélectionné avec tous les titres de projets.
Dans le tuto l'exemple était basée sur un projet à 2 tables...
Merci de votre aide.
karim
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 Private Sub cmbManager_AfterUpdate() Dim lngIDMan As Long Dim SQL As String 'verifie que l'on a cliqué sur Manager pour eviter le NULL If Not IsNumeric(Me!cmbManager) Then Exit Sub ' Affecte la valeur de ID_Manager à la variable lngIDCat lngIDMan = Me!cmbManager '' Construit la chaîne SQL avec lE mANAGER concerné IDmanager, SQL = "SELECT distinct ID_Manager_Project, Title_Project, IDManager from NN_MAnager_Project, IT_Project_Manager, IT_Project_Title WHERE IDManager =" & lngIDMan & " order BY Title_Project" '' Affecte la chaîne SQL à la liste des métiers cmbProject.RowSource = SQL '' Déverrouille la liste des métiers cmbProject.Enabled = True '' Donne le focus la liste des métiers cmbProject.SetFocus '' Déroule la liste des métiers cmbProject.Dropdown End Sub
Partager