Discussion :

[rainbow14]

Bonjour,
je sens que l'on va me taper sur les doigts
mais j'ai bien regardé la faq (access.developpez.com/faq/?page=zdl#LierZdl )et fais quelques recherches
mais le code ne semble pas marcher pour lier mes deux zones de liste

Code :

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

1
2
3
4
5
6
7
8
9
10
 Private Sub F_R_Liste_Département_LostFocus()
 
Dim strSQL As String
 
If Me.F_R_Liste_Département.Selected = "CALVADOS" Then
Me.F_R_Liste_Pays.RowSourceType = "Table/Requête"
strSQL = "SELECT N_PAYS_R25.NOM_PAYS FROM N_PAYS_R25 WHERE (N_PAYS_R25.CODE_PAYS) Like '14****';"
Me.F_R_Liste_Pays.RowSource = strSQL
Me.F_R_Liste_Pays.Requery
End sub

j'ai mis cet évènement sur perte du focus car par possibilité de sur changement avec zone de liste (possible avec zone de liste modifiable) si vous avez également une astuce

de plus j'avais trouvé la semaine dernière un post fort intéressant mais impossible de le retrouver (trop de chose sur ce forum ^^) c'était pour récupérer les valeur des zone de liste je suis dans le cas d'un multiselect

merci pour celles et ceux qui pourront m'aider sur mes trois problèmes

[mout1234]

Bonsoir,

Petite remarque en passant (qui n'est pas la source de ton problème)

Code :

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

Like '14****'

Mets simplement

Code :

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

Like '14*'

ou, si tu veux spécifier le nombre de caractères inconnus

Code :

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

Like '14???'

Code :

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

Me.F_R_Liste_Pays.RowSourceType = "Table/Requête"

Je ne suis pas convaincu (jamais testé) qu'il s'agisse d'une valeur reconnue quand tu l'affectes en VBA.
Mais en fait, as-tu besoin de définir cette propriété, elle ne change pas non?

[rainbow14]

Salut,
merci pour ta remarque, je viens de modifier

pour le RowSourceType j'ai toujours fais comme ça
et mon code marche quand je l'utilise avec des zones de liste modifiable mais pas là avec les zones de liste

[The_Super_Steph]

bonjour,

J'ai un problème similaire au tien, alors on peut s'entraider...
Toutefois, je me pose une question : pourquoi ne mets-tu pas ton événement sur Après MAJ (after update) ?

Stéphanie

[rainbow14]

j'ai mis sur afterupdate mais pour essayer le résultat il vaudrait que le code marche
mais je n'ai pas encore trouvé la solution

[rainbow14]

bonjour,
Sur chargement du formulaire le code suivant s'exécute

Code :

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

1
2
3
4
5
6
Me.F_R_Liste_Département.RowSourceType = "Table/Requête"
strSQL2 = "SELECT N_COMMUNE_BDTOPO_R25.Département FROM  "
strSQL2 = strSQL2 + " (SELECT N_COMMUNE_BDTOPO_R25.Département, 1 As Position from "
strSQL2 = strSQL2 + " [N_COMMUNE_BDTOPO_R25] Union Select TOP 1 '-Tous-' , 0  "
strSQL2 = strSQL2 + "from [N_COMMUNE_BDTOPO_R25] ) Order by Position,[N_COMMUNE_BDTOPO_R25].[Département];"
Me.F_R_Liste_Département.RowSource = strSQL2

(un peu compliqué par l'ajout de "tous")
Mais la syntaxe fonctionne pour le chargement de la première liste.

Donc je veux maintenant pouvoir suivant la valeur rentrer dans cette première liste avoir une deuxième liste (cf code en début de post)
pour commencer dans le cas d'une valeur dans la première liste
puis pour le cas avec plusieurs valeurs (je suis en multiselect ).

merci

[mout1234]

Bonjour,

As-tu consulté ces éléments dans la faq?
Comment faire en sorte que le contenu d'une zone de liste déroulante dépende de la valeur d'une autre liste ?

Il y a en fait plusieurs tout un chapitre sur les zones de liste...
http://access.developpez.com/faq/?page=zdl


Un petit détail en passant

strSQL2 = strSQL2 + " [N_COMMUNE_BDTOPO_R25] Union Select TOP 1 '-Tous-' , 0 "

Mieux vaut mettre UNION ALL

Code :

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

strSQL2 =" ... UNION ALL Select ... "

Cela évite au moteur de s'assurer qu'il n'y a pas de doublons entre les sources de l'union.



Bon courage

[rainbow14]

voici le résultat (en mélangeant plusieurs éléments de la faq)
merci mout1234

pour info voici le code

Code :

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

1
2
3
4
If Me.F_R_Liste_Département.Selected(1) Then
Me.F_R_Liste_Pays.RowSourceType = "Table/Requête"
strSQL = "SELECT N_PAYS_R25.NOM_PAYS FROM N_PAYS_R25 WHERE (N_PAYS_R25.CODE_PAYS) Like '14????';"
End If