Bonjour
J'ai créé un form continu que je voudrai remplir avec le code suivant
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 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