Discussion :

[acabat]

Bonjour,

Dans un formulaire, deux listes sont liées. Les valeurs voulues sont bien stockées dans la table désignée. Jusqu'à là, tout va bien... Malheureusement, dès que j'appelle un enregistrement dans le formulaire en question, la première liste déroulante n'affiche que la dernière valeur sélectionnée et la seconde reste vierge... bien que la valeur soit stockée dans la table. De toute évidence, il me manque une étape.
Merci de votre aide, belle soirée.

[ClaudeLELOUP]

Bonsoir,

tu ne donnes pas assez de détail

tu devrais montrer les sources de tes listes et nous dire comment s'appelle le contrôle de ton formulaire qui doit déterminer la sélection.

[LedZeppII]

Bonsoir,

Est-ce que tu as vu le tutoriel Concevoir une liste qui en alimente une autre ?

A+

[acabat]

Bonsoir,
Merci pour votre si rapide intervention.
Après avoir consulté le tutoriel à l'adresse suivante : http://argyronet.developpez.com/offi...ectitemlistAB/ j'ai souhaité le mettre en application dans la base ci-jointe.
La liaison entre les listes fonctionne, c'est juste l'affichage des données, pourtant stockées dans la table tblPersonnel, champ IdMetier, qui pose problème.
En vous remerciant de nouveau.

[ClaudeLELOUP]

Bonjour,

Désolé de ne pouvoir t'aider. Peux-tu poster une BDD compatible Access2000 ?

[scoobydoos]

Bonjour acabat,

Je veux faire la même chose mais avec les clients et les contacts clients.
J'ai tout fait le code mais il me demande "IDContactsclients" a chaque fois (voir ci-joint).

voila mon code :

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
Private Sub Liste_Clients_AfterUpdate()
Dim lngIdClient As Long
Dim SQL         As String
 
' Vérifie que l'on a cliqué sur un client pour éviter le NULL
If Not IsNumeric(Me!Liste_Clients) Then Exit Sub
' Affecte la valeur de IDClients à la variable lngIDCat
  lngIdClient = Me!Liste_Clients
' Construit la chaîne SQL avec le client concerné
  SQL = "SELECT IDContactsclients, nom, Liste_Clients FROM Clients WHERE Liste_Clients =" & lngIdClient & " ORDER BY nom"
' Affecte la chaîne SQL à la liste des contacts
  liste_contacts.RowSource = SQL
' Déverrouille la liste des contacts
  liste_contacts.Enabled = True
' Donne le focus la liste des contacts
  liste_contacts.SetFocus
' Déroule la liste des contacts
  'liste_contacts.Dropdown
 
End Sub

Où est-ce que ca foire ?

merci par avance

@+

[ClaudeLELOUP]

Bonjour scoobydoos,

Pour trouver, je te suggère de procéder comme suit

1° modifie provisoirement ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
' Construit la chaîne SQL avec le client concerné
  SQL = "SELECT IDContactsclients, nom, Liste_Clients FROM Clients WHERE ... 
debug.print sql

Exécute l'action

2° <ctrl> + G ---> vérifie le code effectivement généré : cela te permettra de voir le contenu actuel de Me!Liste_Clients

3° si besoin, introduis le sql affiché dans le sql d'une requête et examine alors comment cette requête réagit

[scoobydoos]

Bonsoir,

Bon j'ai fait ce que tu m'as dit mais j'ai pas grand chose de plus. Ma liste de contact est vide !

Voila ce qu'il me donne quand j'exécute :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT IDContactsclients, nom, Liste_Clients FROM Clients WHERE Liste_Clients =1 ORDER BY nom

Pourquoi cela ne fonctionne-t-il pas ? Une autre solution ?

merci par avance

@+

[LedZeppII]

Bonsoir,

Bonsoir,
Merci pour votre si rapide intervention.
Après avoir consulté le tutoriel à l'adresse suivante : http://argyronet.developpez.com/offi...ectitemlistAB/ j'ai souhaité le mettre en application dans la base ci-jointe.
La liaison entre les listes fonctionne, c'est juste l'affichage des données, pourtant stockées dans la table tblPersonnel, champ IdMetier, qui pose problème.
En vous remerciant de nouveau.

Dans ton contrôle cmbMetiers le contenu de la liste doit être la table tblMetiers.

Pour un meilleur rendu, je te suggère de mettre une procédure événementielle au niveau du formulaire, pour l'événement "Sur activation".
Cet événement se produit lorsqu'on change d'enregistrement.

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
Private Sub Form_Current()
Dim strSql As String, strSqlNew As String, lgPos As Long
 
' réinitialise la liste Catégories à blanc
Me.cmbCategories = Null
 
' Enlève le filtre sur le contenu de la liste Métiers
strSql = Me.cmbMetiers.RowSource
lgPos = InStr(1, strSql, " Where ", vbTextCompare)
If lgPos > 1 Then
   strSqlNew = Left(strSql, lgPos)
   Me.cmbMetiers.RowSource = strSqlNew
End If
' Verrouille la liste Métiers
Me.cmbMetiers.Enabled = False
End Sub

A+

[acabat]

Bonjour à tous,
Merci pour vos messages et votre collaboration.
J'ai résolu mon petit problème en simplifiant au maximum; je stocke désormais la valeur et non plus l’identifiant dans les champs. Ainsi, je construis les listes, dans les tables, à partir de simples requêtes. Ainsi, c'est très simple...
Encore merci à vous tous,
Belle journée