Private Sub Form_Load() Dim bds As Database Dim SQL As String Set bds = OpenDatabase("C:\...\baseD.mdb") SQL = "SELECT nomMetier FROM metier" Set bds = bds.OpenRecordset(SQL) With rs .MoveLast .MoveFirst Do While Not .EOF Metier.AddItem !nomMetier .MoveNext Loop .Close End With bds.Close End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question