OVH Cloud OVH Cloud

Nuéroatation automatique

5 réponses
Avatar
maxben
Est il possible avec un champ de numerotat° automatique, de ne pas commencer
à 1 et de modifier le 1er enregistrement pour lui mettre le numéro que l'on
veut car on reprend une base excel pour l'intégrer dans access
Merci

5 réponses

Avatar
Eric
Bonjour,

Pour que le NumAuto commence à 1000 par exemple. Creation d'un numero
999 puis suppression de cet enregistrement artificiel.

Sub zz()
CurrentDb.Execute "Insert into LaTable(NumAuto) Values(999);"
CurrentDb.Execute "Delete from LaTable"
End Sub

Est il possible avec un champ de numerotat° automatique, de ne pas commencer
à 1 et de modifier le 1er enregistrement pour lui mettre le numéro que l'on
veut car on reprend une base excel pour l'intégrer dans access
Merci


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
maxben

Bonjour,

Pour que le NumAuto commence à 1000 par exemple. Creation d'un numero
999 puis suppression de cet enregistrement artificiel.

Sub zz()
CurrentDb.Execute "Insert into LaTable(NumAuto) Values(999);"
CurrentDb.Execute "Delete from LaTable"
End Sub

Est il possible avec un champ de numerotat° automatique, de ne pas commencer
à 1 et de modifier le 1er enregistrement pour lui mettre le numéro que l'on
veut car on reprend une base excel pour l'intégrer dans access
Merci


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Merci beaucoup je vais essayer



Avatar
maxben

Bonjour,

Pour que le NumAuto commence à 1000 par exemple. Creation d'un numero
999 puis suppression de cet enregistrement artificiel.

Sub zz()
CurrentDb.Execute "Insert into LaTable(NumAuto) Values(999);"
CurrentDb.Execute "Delete from LaTable"
End Sub

Est il possible avec un champ de numerotat° automatique, de ne pas commencer
à 1 et de modifier le 1er enregistrement pour lui mettre le numéro que l'on
veut car on reprend une base excel pour l'intégrer dans access
Merci


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr


J'ai entré ce code et ça ne marche pas, message erreur de compli
Sub num()
CurrentDb.Execute "Insert into Courriers(NumAuto) Values(999)"

CurrentDb.Execute "Delete from Courriers"
End Sub
Merci


Avatar
Eric
re,

Charges la référence Microsoft DAO 3.x Object Library - Menu
Outils|Références de l'éditeur VB. Ca marche mieux ?

J'ai entré ce code et ça ne marche pas, message erreur de compli

Sub num()


CurrentDb.Execute "Insert into Courriers(NumAuto) Values(999)"
CurrentDb.Execute "Delete from Courriers"
End Sub
Merci


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr


Avatar
maxben

re,

Charges la référence Microsoft DAO 3.x Object Library - Menu
Outils|Références de l'éditeur VB. Ca marche mieux ?

J'ai entré ce code et ça ne marche pas, message erreur de compli

Sub num()


CurrentDb.Execute "Insert into Courriers(NumAuto) Values(999)"
CurrentDb.Execute "Delete from Courriers"
End Sub
Merci


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
J'avais une erreur de code et puis j'executais sur des tables attachées, j'ai executé le code sur la base où se trouve la table et ça a marché
Merci beaucoup