Discussion :

[PHPkoala]

Bonjour,
Je me permets de vous demander de l'aide.

voici mon problème :

je souhaite que lorsque je choisie sur une valeur sur la premiere liste

déroulante, la seconde va allez chercher la valeur secondaire.

ex : j'ai une table avec nom et prenom

Sur la permière zone, je choisie un nom et je souhaite que lorsque j'ai fais ce

manipulation, la secondes liste déroulante me premets de choisir les prenoms

qui ont le même nom que celui de la liste déroulantes premiére.

Merci

edit :

j'ai essayé

Code :

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

=DLookup("[Opération]", "tabTraite" ,"Produit = "& forms![traitement]![Produit].value)

mais ca ne marche pas.

le formulaire s'appel traitement
le nom de la première liste déroulante s'appelle produit.

Merci

[Lou Pitchoun]

Salut,

Tu trouveras ici tout ce qu'il te faut pour réaliser la liaison :
http://argyronet.developpez.com/offi...ectitemlistAB/

[PHPkoala]

j'ai suivie le tuto trés bien détaillé.

Mais lorsque je l'addapte à mon programme,
cela ne marche pas.

lorsque je click sur la zone de liste et chosie une valeur une fênetre windows pope et me demande d'entrer une valeur

voici 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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
 
 
Private Sub cmbproduit_AfterUpdate()
Dim SQL        As String
Dim IDProduit
 
  '' Affecte la valeur de Produit à la variable lngIDCat
  IDProduit = Me!cmbproduit
  '' Construit la chaîne SQL avec la catégorie concernée
  SQL = "SELECT Opération,Produit FROM tabTraite WHERE Produit =" & IDProduit & " ORDER BY Opération"
  '' Affecte la chaîne SQL à la liste des métiers
  cmbOperation.RowSource = SQL
  '' Déverrouille la liste des métiers
  cmbOperation.Enabled = True
  '' Donne le focus la liste des métiers
  cmbOperation.SetFocus
  '' Déroule la liste des métiers
  cmbOperation.Dropdown
 
End Sub
 
Private Sub cmbProduit_BeforeUpdate(Cancel As Integer)
 
End Sub
 
Private Sub Commande12_Click()
On Error GoTo Err_Commande12_Click
 
 
    DoCmd.Close
 
Exit_Commande12_Click:
    Exit Sub
 
Err_Commande12_Click:
    MsgBox Err.Description
    Resume Exit_Commande12_Click
 
End Sub

Merci de l'aide