Discussion :

[Nefret]

Bonjour,

voilà, je voudrais ajouter à une table existante (vide) un champ numéro automatique.
Comment faire pour que la valeur attribuée commence à partir d'un nombre donné ? pour que la valeur du champ soit par exemple "401" au premier enregistrement, "402" au deuxième, etc...
J'ai déjà un numéro auto dans ma table et access ne veut pas en ajouter un deuxième.
Serait-il alors possible, étant donné que le premier numéro auto commence par "1" d'ajouter à chaque fois "400" au premier numéro auto pour définir le deuxième champ numéro auto (qui n'en est pas un en fait) ?

merci pour votre aide

[samlepiratepaddy]

http://access.developpez.com/faq/?pa...reerSonNumAuto
je crois que c'est exactement le resultat que tu veux !
C'est a dire Créer ton propre N°Auto qui s'incrémente tout seul !
Et qui commence a 400, ben ça c'est pas dur!!!

[cafeine]

Ce n'est pas la meilleure méthode, il vaut mieux procéder de la sorte

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ALTER TABLE maTable ALTER COLUMN monChampAutoIncrement COUNTER(400,1)

[Nefret]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ALTER TABLE maTable ALTER COLUMN monChampAutoIncrement COUNTER(400,1)

avec cette solution, Access affiche le message d'erreur

"Type de champs de données non valide" (mon champ est un numérique étant donné qu'Access n'accepte qu'un numéro auto et que j'en ai déjà un)

[Frank]

et si tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ALTER TABLE maTable ALTER COLUMN monChampAutoIncrement COUNTER(1,400)

?
Début du numéro auto à 1 avec une intervalle de 400, si j'ai bien saisi ce que te propose Caféine.

[Nefret]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ALTER TABLE Tbl_CLIENT ALTER COLUMN Num_privilege COUNTER(1,400);

Cela ne change rien, j'ai toujours le message d'erreur d'Access
"Type de champs de données non valide"

et avec la proposition de samlepiratepaddy, aucune valeur ne s'enregistre dans le champ Num_privilege

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Form_BeforeInsert(Cancel As Integer)
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(Me.RecordSource, dbOpenForwardOnly)
If rs.EOF Then
Me!Num_privilege = 401
Else
rs.MoveLast
Me!Num_privilege = rs!Num_privilege + 1
End If
rs.Close
Set rs = Nothing
End Sub

[samlepiratepaddy]

Re,
Je ne pense par que le code soit sur le bon evènement !
Sur afterMaj du premier champ rempli peut etre !
Mais attention dans ton code tu partira toujours de 401 !!!!
Me!NumPrivilege doit etre le dernier N° de la table !!!
Et non =401 !!!
La première ligne OK mais la seconde tu veux bien quelle affiche 402, la troisième 403 etc....
Sinon dans ton code actuel, il renverra toujours 402 en résultat !
il faut donc ajouter 1 au dernier enregistrement de NumPrivilege de ta table !
@+

[User]

Pour la 1ère solution,
As tu mis [event procedure] sur l'evenement BeforeInsert de ton form:

Sinon pour:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ALTER TABLE Tbl_CLIENT ALTER COLUMN Num_privilege COUNTER(1,400);

quelle version d'access utilise tu ?

[Nefret]

dans les propriétés du form sous VBA, il y a bien [event procedure] dans BeforeInsert.
Sinon j'utilise Access 2003.

[User]

Ton champ Num_privilege dans ta table tbl_Client est de quel type pour le moment ?

[Nefret]

Num_privilege est de type Numérique (Entier Long)

[User]

Pour la 1ère solution sur ajout d'1 nouvel enrg normalement 1 numéro s'ajoute égal à 1+le numéro de l'enrg précédent, mais sur ajout seulement.

Je ne conseil plutot d'utiliser:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ALTER TABLE Tbl_CLIENT ALTER COLUMN Num_privilege COUNTER(1,400);

Ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ALTER TABLE Tbl_CLIENT ADD COLUMN Num_privilege COUNTER(1,400);

mais il faut supprimer ton champ Num_Privilege avant.

[Nefret]

Pour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ALTER TABLE Tbl_CLIENT ALTER COLUMN Num_privilege COUNTER(1,400);

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
ALTER TABLE Tbl_CLIENT ADD COLUMN Num_privilege COUNTER(1,400);

j'ai un message d'erreur qui me dit
"la table résultante ne peut pas avoir plus d'un champ AutoNumber"

[cafeine]

Tu ne peux pas avoir plus d'un champ autoincrement par table.

je vais tester mon code sur une base 2000 ...

en attendant as-tu bien orthographié le nom du champ autoincrement de ta table ainsi que ta table ?

[Nefret]

Oui, le nom du champ et le nom de la table sont bien orthographiés;

[cafeine]

Bon je viens de tester ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

docmd.RunSQL "ALTER TABLE clients ADD COLUMN id COUNTER(401);"

ce code fonctionne mais uniquement pour les nouveaux enregistrements que tu vas ajouter.

Entre nous, un id autoincrémenté n'a pas à être porteur d'information, c'est une erreur de conception, le numéro pourrait être arbitraire, si tu as besoin de créer un chrono je te recommande d'utiliser un autre champ ou de repenser ton modèle.

[kryssy]

Salut
Autre solution qu'on m'avait proposé
1- créer une table temporaire tbl1 avec un champ contenant la valeur souhaité - 1 (400-1=399)
2 - créer une requête ajout avec comme source tbl1
et ajout table : sélectionne ta table
et sélectionne ton champ n° auto
3 - dans ta table (avec ton numéro auto) supprime la clé primaire, les propriétés null interdit, indexé, valide si
4 - exécute la requête ajout
5 - supprime la table tbl1 ainsi que la requête ajout
6 - compacte ta base de donnée
7 - suprime le nouvel enregistrement dans ta table
et enfin remet ta clé ainsi que les paramètre supprimés

Je sais que sais long mais je pense que ça marche

[egg3774]

Je viens de suivre les procédures décrites pour initialiser un autonumber à ma table à partir d'un nombre précis et ca fonctionner sans problème. Excellente suggestion. Bravo !

Merci pour tous.

[tibjedi]

Désolé de remonter le message, mais pour résoudre le problème de Nefret j'ai du modifier mon numeroAuto en Numérique, sauvegarder, puis le remettre en numeroAuto. et la requete SQL marche.

[loufab]

Bonjour,

Tu fais ça en plein milieu du fonctionnement de ton appli ?

Cordialement,