Discussion :

[Sam 069]

Bonjour,

Je cherche à piloter une seconce liste déroulante en fonction du choix fait dans la première dans un formulaire.

Voici mon code

Code :

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

1
2
3
4
5
 
Private Sub form_open(cancel As Integer)
    Me.Caption = "Consultation des "
    Me!liste_fp.RowSource = "SELECT DISTINCT Left(PlanFP,3) AS PLAN FROM T4_ALLFP_POL_DESC"
End Sub

La source de cette liste fonctionne correctement

Le problème survient lors du clic sur la seconde liste 'apres la fonction
uodate donc'

Code :

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

1
2
3
4
 
Private Sub liste_fp_AfterUpdate()
    Me!liste_jour.RowSource = "SELECT DISTINCT T4_ALLFP_POL_DESC.Date FROM T4_ALLFP_POL_DESC WHERE Left(PlanFP,3)= " & Me!liste_fp
End Sub

Merci pour votre aide.

@+
++

[Gary_Stoupy]

bonjour,

Que donne le déroulement ? Te génère-t-il une erreur ? Il te remplit pas la seconde liste ? Il te met n'importe quoi ?

[cafeine]

Hello Sam,

il faut chercher dans la FAQ, ce sujet y est traité :
http://access.developpez.com/faq/?re...ulante+depende

[Invité]

Bonjour

Me!liste_fp te renvoie une chaine, il faut mettre ' avant et aprés

Code :

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

1
2
 
"SELECT DISTINCT T4_ALLFP_POL_DESC.Date FROM T4_ALLFP_POL_DESC WHERE Left(PlanFP,3)= '" & Me!liste_fp & "';"

cela devrait aller mieux

Starec

[Sam 069]

Ok ça marche.

Merci pour votre aide.

@+
++