Gestion des numéros de série
Le
DESBROSSES
Bonjour à tous
Gestion FIFO de N° de série d'un article
Chaque article possede son compteur
Le but du jeu est d'incrémenter le compteur de la quantité rentrée
en créant un enregistrement pour chaque n° de série
Exemple dernier n° de série enregistré : 100
Qté à rentrer 10 pièces en créant n° de série 101, 102, 103.109, 110--
Merci de votre aide
petitlutin
Gestion FIFO de N° de série d'un article
Chaque article possede son compteur
Le but du jeu est d'incrémenter le compteur de la quantité rentrée
en créant un enregistrement pour chaque n° de série
Exemple dernier n° de série enregistré : 100
Qté à rentrer 10 pièces en créant n° de série 101, 102, 103.109, 110--
Merci de votre aide
petitlutin
Poser une question
en VBA ?
Cdt, Blaise
---- ---- ----
"DESBROSSES"
--
petitlutin
"Blaise Cacramp" a écrit :
Suis fatigué. Grosse chaleur dans ce foutu bureau
Utiliser un dloockup pour chercher le dernier numéro
et puis ...
dim i as long
Dim Ado_Dos As New ADODB.Recordset
Ado_Dos.Open "Table", CurrentProject.Connection, adOpenKeyset,
adLockOptimistic
For I = Dernier To Dernier + nombre
Ado_Dos.AddNew
Ado_Dos("Serie") = I
...
Ado_Dos.Update
Next I
Ado_Dos.Close
Set Ado_Dos = Nothing
----
Si ça va pas , on verra demain
Cdt, Blaise
---- ---- ----
"DESBROSSES"