[filtre] probleme de filtre entre 2 formulaires

Version imprimable

bonjour sur mon formulaire 1 j'ai une ZDL sur laquelle je dblclic, voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub lstTitreJaune_DblClick(Cancel As Integer)
Dim intcolumn As Integer
Dim nomsoustype2 As Integer
 
 
intcolumn = lstTitreJaune.Column(1)
nomsoustype2 = lstTitreJaune.Column(0)
 
DoCmd.OpenForm "page recette jaune", acNormal, , "[idversion] = " & intcolumn, , , nomsoustype2
 
Me.Visible = False
 
End Sub

voici le code load de mon formulaire 2

Code:

1
2
3
4
5
6
7
8
Private Sub Form_Load()
nomsoustype2 = Me.OpenArgs
 
Me.RecordSource = "SELECT Versions.idversion, Versions.id_nom_recette, Recettes.id_sous_categorie, Categories.nom, Versions.auteur, Versions.Ingrédients, Versions.recette, Versions.[temps préparation], Versions.[temps de cuisson], Versions.Portion, Versions.[photo recette], Versions.Appréciations, Recettes.Titre, Versions.idFavoris FROM (Categories INNER JOIN Recettes ON Categories.idcategorie = Recettes.idcategorie) INNER JOIN Versions ON Recettes.id_nom_recette = Versions.id_nom_recette WHERE Recettes.id_sous_categorie = " & OpenArgs & " AND Categories.nom='Cuisine du monde'"
 
 
 
End Sub

mon formulaire 2 s'ouvre bien. L'argument est respecté...mais mon filtre n'est pas éffectué ! :?

Je ne comprend pas pourquoi.

jk'ai trouvé !

il faut mettre MsgBox Me.Filter dans le open form2 pour qu'il recuperer le where du forme 1

donc le code deviens

form 1
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub lstTitreJaune_DblClick(Cancel As Integer) Dim intcolumn As Integer Dim nomsoustype2 As Integer intcolumn = lstTitreJaune.Column(1) nomsoustype2 = lstTitreJaune.Column(0) DoCmd.OpenForm "page recette jaune", acNormal, , "[idversion] = " & intcolumn, , , nomsoustype2 Me.Visible = False End Sub
voici le code load de mon formulaire 2
Code:

1 2 3 4 5 6 7 8 Private Sub Form_Load() nomsoustype2 = Me.OpenArgs MsgBox Me.Filter Me.RecordSource = "SELECT Versions.idversion, Versions.id_nom_recette, Recettes.id_sous_categorie, Categories.nom, Versions.auteur, Versions.Ingrédients, Versions.recette, Versions.[temps préparation], Versions.[temps de cuisson], Versions.Portion, Versions.[photo recette], Versions.Appréciations, Recettes.Titre, Versions.idFavoris FROM (Categories INNER JOIN Recettes ON Categories.idcategorie = Recettes.idcategorie) INNER JOIN Versions ON Recettes.id_nom_recette = Versions.id_nom_recette WHERE Recettes.id_sous_categorie = " & OpenArgs & " AND Categories.nom='Cuisine du monde'" End Sub
tous marche !

lorsque je clic sur form1, un msg box s'ouvre avec bouton ok qui me dit idversion]=et ilme donne la valeur. apres avoir cliqué sur ok il m'ouvre mon formulaire 2 et effctuant bien le filtre.

mais je n'aime pas le msgbox. comment optenir le meme éffet sans que l'utilisateur ne vois et clic se message box a chaque fois ? :?

07/12/2007, 18h19
luz_negra

J'ai pas reussi à régler ce probleme. Je passerais donc par une autre méthode.
Merci