Voici mon code VB :
Private Sub Btn_ref_origine_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim qdf As DAO.querydef
'Ouverture de la base de données
Set db = DBEngine.OpenDatabase("QUA-Gérer_la_qualité.mdb" )
Set qdf = CurrentDb.QueryDefs!Req_list_fiche_anomalies
qdf = "SELECT * FROM Tb_anomalies"
'Ouverture du recordset
Set rst = db.OpenRecordset(qdf, dbOpenForwardOnly, dbReadOnly)
'Fermeture du recordset
rst.Close
End Sub
Ceci ne fonctionne déjà pas. Les filtres viendraient ensuite avec des if...then : je m'en sortirai plus facilement. Mais je souhaiterai savoir déjà ce qui ne colle pas dans mon code (j'ai adapté ce que j'ai trouvé sans certitudes...)!