[AC-2003] Remplir formulaire continu

[Jean-Luc80]

Bonjour
J'ai créé un form continu que je voudrai remplir avec le code suivant

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Load()
Dim db As DAO.Database, qdf As DAO.QueryDef, rs As DAO.Recordset
Set db = CurrentDb
Set qdf = db.QueryDefs("Acteurs et TbFichiers sans correspondance")
' On fournit la valeur du paramètre
qdf.Parameters("[Formulaires]![Rechercher ces photos]![Sexe]") = Forms("Rechercher ces photos").[Sexe]
Set rs = qdf.OpenRecordset()
   rs.MoveFirst
   While Not rs.EOF
   Acteur1 = Nz(rs!Acteur1)
   rs.MoveNext
Wend
End Sub

Mais je n'ai qu'une seule ligne (sans doute le dernière !)
Est possible de faire ça ?
Merci

[Alexandre Sahli]

Bonjour,

Ce que tu fais est d'ouvrir un QueryDef pour ensuite lui affecter une valeur et ouvrir le reccordset. Cependant ce reccord set n'est pas affecté au formulaire.

peut être que le code suivant fonctionne.

Cependant à mon humble avis il serait préférable d'ouvrir le formulaire avec

Code :

1
2
3
4
5
6
7
8
Private Sub Form_Load()
Dim db As DAO.Database, qdf As DAO.QueryDef, rs As DAO.Recordset
Set db = CurrentDb
Set qdf = db.QueryDefs("Acteurs et TbFichiers sans correspondance")
' On fournit la valeur du paramètre
qdf.Parameters("[Formulaires]![Rechercher ces photos]![Sexe]") = Forms("Rechercher ces photos").[Sexe]
me.Rowsource = "Acteurs et TbFichiers sans correspondance"
End Sub

Cependant à mon humble avis il serait préférable d'ouvrir le formulaire avec
un code du type:

Code :

DoCmd.OpenForm "Mon formulaire",,,"[mon champs] = "[Formulaires]![Rechercher ces photos]![Sexe]

c'est très simple et surtout très rapide
bonne chance