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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Blaise Cacramp
Selon : Bonjour ou bonsoir
en VBA ?
Cdt, Blaise ---- ---- ----
"DESBROSSES" a écrit dans le message de news:
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
Selon : Bonjour ou bonsoir
en VBA ?
Cdt, Blaise
---- ---- ----
"DESBROSSES" <claude.desbrosses@hotmail.fr> a écrit dans le message de news:
8C23775B-7424-4855-9127-947E6A7393DE@microsoft.com...
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
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
DESBROSSES
VBA ou autre mais une solution simple -- petitlutin
"Blaise Cacramp" a écrit :
Selon : Bonjour ou bonsoir
en VBA ?
Cdt, Blaise ---- ---- ----
"DESBROSSES" a écrit dans le message de news:
> 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
VBA ou autre mais une solution simple
--
petitlutin
"Blaise Cacramp" a écrit :
Selon : Bonjour ou bonsoir
en VBA ?
Cdt, Blaise
---- ---- ----
"DESBROSSES" <claude.desbrosses@hotmail.fr> a écrit dans le message de news:
8C23775B-7424-4855-9127-947E6A7393DE@microsoft.com...
> 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
VBA ou autre mais une solution simple -- petitlutin
"Blaise Cacramp" a écrit :
Selon : Bonjour ou bonsoir
en VBA ?
Cdt, Blaise ---- ---- ----
"DESBROSSES" a écrit dans le message de news:
> 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
Blaise Cacramp
Selon : Bonjour ou bonsoir
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" a écrit dans le message de news:
VBA ou autre mais une solution simple -- petitlutin
"Blaise Cacramp" a écrit :
Selon : Bonjour ou bonsoir
en VBA ?
Cdt, Blaise ---- ---- ----
"DESBROSSES" a écrit dans le message de news:
> 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
Selon : Bonjour ou bonsoir
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" <claude.desbrosses@hotmail.fr> a écrit dans le message de news:
B937942F-8847-4C2B-99A9-2B4619DA09AC@microsoft.com...
VBA ou autre mais une solution simple
--
petitlutin
"Blaise Cacramp" a écrit :
Selon : Bonjour ou bonsoir
en VBA ?
Cdt, Blaise
---- ---- ----
"DESBROSSES" <claude.desbrosses@hotmail.fr> a écrit dans le message de
news:
8C23775B-7424-4855-9127-947E6A7393DE@microsoft.com...
> 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
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" a écrit dans le message de news:
VBA ou autre mais une solution simple -- petitlutin
"Blaise Cacramp" a écrit :
Selon : Bonjour ou bonsoir
en VBA ?
Cdt, Blaise ---- ---- ----
"DESBROSSES" a écrit dans le message de news:
> 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