Bonjour,

Voici le code que je viens de faire il marche mais que sur le premier enregistrement il ne prend pas en compte les autres

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
Dim db As Database 
Dim rs As Recordset  
Set db = OpenDatabase("g:\facturation\facture.mdb") 
Set rs = db.OpenRecordset("clients", dbOpenTable)
Frmfacture.cmdfacrefclt.Text = rs("numclt")
Frmfacture.cmdfacnomclt.Text = rs("nomclt")
Frmfacture.cmdfacprenomclt.Text = rs("prenomclt")
Merci