Discussion :

[luz_negra]

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

Code :

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

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 :

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

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.

[luz_negra]

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 :

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

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 :

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

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 ?

[luz_negra]

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