Discussion :

[fabrice518]

Bonjour,

j'ai un probleme avec un sous formulaire indépendant qui ne filtre pas comme je lui demande.
(Mon Form s'appelle "Mazars", et mon sous-Form "Bureaux")
(je dois filtrer par "iso")

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Let SQL = "SELECT bureaux.id_bur, bureaux.iso, FROM bureaux ; "
 
'Prend la valeur "iso" du control "pays" (de la page recherche)
Let iso = Forms!Mazars!pays.Value
 
'Donne la source du Formulaire bureaux
Form_bureaux.RecordSource = (SQL)
 
'Applique le filtre de sélection iso
Form_bureaux.Filter = ("bureaux.iso = " & iso)

Pourtant, quand j'ouvre mon ss Form en mode création, je retrouve bien la source et le filtre...

Merci pour votre aide !

[fdraven]

Je dirais qu'il te manque un requery. Essaye ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Let SQL = "SELECT bureaux.id_bur, bureaux.iso, FROM bureaux ; " 
 
'Prend la valeur "iso" du control "pays" (de la page recherche) 
Let iso = Forms!Mazars!pays.Value 
 
'Donne la source du Formulaire bureaux 
Form_bureaux.RecordSource = (SQL) 
Form_bureaux.requery
 
'Applique le filtre de sélection iso 
Form_bureaux.Filter = ("bureaux.iso = " & iso)

[User]

Pourquoi ne fait tu pas comme sur les tutos:

Code :

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

1
2
3
4
Let SQL = "SELECT bureaux.id_bur, bureaux.iso, FROM bureaux Where bureaux.iso=" & Forms!Mazars!pays.Value 
 
'Donne la source du Formulaire bureaux 
bureaux.Form.RecordSource = (SQL)

Note que si iso est un string tu dois avoir:

Code :

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

Where bureaux.iso=" & Chr(34) & Forms!Mazars!pays.Value & Chr(34)

ou

Code :

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

bureaux.Form.Filter = "bureaux.iso = " & Chr(34) & iso & Chr(34)

[fabrice518]

merci, voila comment j'ai résolu :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
'Requete pour le sous formulaire bureaux
Let SQL = "SELECT bureaux.id_bur, bureaux.iso, FROM bureaux WHERE "
 
'Prend la valeur "iso" du control "pays" de la page "recherche"
Let iso = Forms!Mazars!pays.Value
 
'Clause1 sur iso
Let clause1 = ("bureaux.iso = " & Chr(34) & iso & Chr(34))
 
'Donne la source du Formulaire bureau
Form_bureaux.RecordSource = (SQL & clause1)