1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Public base as database 'variable d la bd
public e_client as recordset 'variable d la table
public e_Fournisseur as recordset 'variable d la table
public sub Ouverture()
set base=opendatabase(app.path & "\Gestion_stock.mdb")
set e_client=base.openrecordset("CLIENT")
set e_fournisseur=base.openrecordset("Fournisseur")
end sub
voila l module est finis
dans l form load
private sub tu va faire
Private sub form_load()
Ouverture 'ouverture du base de donner
with e_client
.if not .eof then .movefirst
while not .eof
combo1.additem ncl 'remplire le combo avec N°CLient
if not .eof then .movenext
wend
end with
end sub |