Dans un module, je cr=E9e un recordset me permettant de=20
connaitre les enregistrements dans une table. Cette=20
derni=E8re est li=E9e =E0 une autre table par Idliste et donc=20
j'aimerais =E0 partir de mon recordset r=E9cup=E9rer les IdListe=20
de ma premi=E8re table et les utiliser comme filtre dans la=20
seconde...d=E9sol=E9e si ce n'est pas clair
Voil=E0 le code que j'ai essay=E9 :
Do While (i < rs.RecordCount + 1)
If (i =3D 1) Then
Liste =3D "'" & rs![IdListe] & "'"
Else
Liste =3D Liste & "," & "'" & rs![IdListe] & "'"
End If
i =3D i + 1
rs.MoveNext
Loop
Liste =3D " [IdListe] in (" & Liste & ")"
DoCmd.OpenForm "F_ListeIntitul=E9Liste"
Forms![F_ListeIntitul=E9Liste].Filter =3D Liste
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
J-Pierre
Bonsoir Elise,
La propriété filter doit contenir Une clause Where sans le mot Where, quelque chose du genre:
IdListe = 'xxxxxxx' or IdListe = 'yyyyy' or IdListe = 'zzz' etc......
Si tu as beaucoup de IdListe, ce n'est peut-être pas la meilleure solution.
Et puis, après Forms![F_ListeIntituléListe].Filter = Liste Il faut rajouter Forms![F_ListeIntituléListe].FilterOn = True
J-Pierre
"Elise" a écrit dans le message de news:0a4901c3ade2$70aaed10$ Bonjour,
Dans un module, je crée un recordset me permettant de connaitre les enregistrements dans une table. Cette dernière est liée à une autre table par Idliste et donc j'aimerais à partir de mon recordset récupérer les IdListe de ma première table et les utiliser comme filtre dans la seconde...désolée si ce n'est pas clair Voilà le code que j'ai essayé : Do While (i < rs.RecordCount + 1) If (i = 1) Then Liste = "'" & rs![IdListe] & "'" Else Liste = Liste & "," & "'" & rs![IdListe] & "'" End If i = i + 1 rs.MoveNext Loop Liste = " [IdListe] in (" & Liste & ")" DoCmd.OpenForm "F_ListeIntituléListe" Forms![F_ListeIntituléListe].Filter = Liste
Merci d'avance pour votre aide
Bonsoir Elise,
La propriété filter doit contenir Une clause Where sans le mot Where, quelque chose du genre:
IdListe = 'xxxxxxx' or IdListe = 'yyyyy' or IdListe = 'zzz' etc......
Si tu as beaucoup de IdListe, ce n'est peut-être pas la meilleure solution.
Et puis, après
Forms![F_ListeIntituléListe].Filter = Liste
Il faut rajouter
Forms![F_ListeIntituléListe].FilterOn = True
J-Pierre
"Elise" <anonymous@discussions.microsoft.com> a écrit dans le message de news:0a4901c3ade2$70aaed10$a501280a@phx.gbl...
Bonjour,
Dans un module, je crée un recordset me permettant de
connaitre les enregistrements dans une table. Cette
dernière est liée à une autre table par Idliste et donc
j'aimerais à partir de mon recordset récupérer les IdListe
de ma première table et les utiliser comme filtre dans la
seconde...désolée si ce n'est pas clair
Voilà le code que j'ai essayé :
Do While (i < rs.RecordCount + 1)
If (i = 1) Then
Liste = "'" & rs![IdListe] & "'"
Else
Liste = Liste & "," & "'" & rs![IdListe] & "'"
End If
i = i + 1
rs.MoveNext
Loop
Liste = " [IdListe] in (" & Liste & ")"
DoCmd.OpenForm "F_ListeIntituléListe"
Forms![F_ListeIntituléListe].Filter = Liste
La propriété filter doit contenir Une clause Where sans le mot Where, quelque chose du genre:
IdListe = 'xxxxxxx' or IdListe = 'yyyyy' or IdListe = 'zzz' etc......
Si tu as beaucoup de IdListe, ce n'est peut-être pas la meilleure solution.
Et puis, après Forms![F_ListeIntituléListe].Filter = Liste Il faut rajouter Forms![F_ListeIntituléListe].FilterOn = True
J-Pierre
"Elise" a écrit dans le message de news:0a4901c3ade2$70aaed10$ Bonjour,
Dans un module, je crée un recordset me permettant de connaitre les enregistrements dans une table. Cette dernière est liée à une autre table par Idliste et donc j'aimerais à partir de mon recordset récupérer les IdListe de ma première table et les utiliser comme filtre dans la seconde...désolée si ce n'est pas clair Voilà le code que j'ai essayé : Do While (i < rs.RecordCount + 1) If (i = 1) Then Liste = "'" & rs![IdListe] & "'" Else Liste = Liste & "," & "'" & rs![IdListe] & "'" End If i = i + 1 rs.MoveNext Loop Liste = " [IdListe] in (" & Liste & ")" DoCmd.OpenForm "F_ListeIntituléListe" Forms![F_ListeIntituléListe].Filter = Liste
