1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
'declaration des variables
'-------------------------
Dim rsprinter As Recordset ' je cree un recordset rsprinter
Dim av_printer_nom As String
'je stocke dans mon recordset le resultat ma requete
Set rsprinter = cnxDAO.CurrentDB.OpenRecordset("select distinct av_printer_nom from avenant where av_lot_nom='" & Cbolot.Value & "'", dbOpenDynaset, dbFailOnError)
With rsprinter
While Not .EOF
av_printer_nom = !av_printer_nom
Cboprinter.AddItem av_printer_nom 'rempli la combo printer
.MoveNext
Wend
End With
End Sub |
Partager