Création table avec x enregistrements incrémentés [Résolu]

[stsym]

Bonjour,

Je travaille actuellement sur les Codes EAN 13 de mon entreprise.
Mon objectif est de créer une table avec tous les codes Ean13.
Sur le forum j'ai trouvé la solution pour générer la clé de contrôle.
Par contre je cherche la solution pour créer une table avec des
enregistrements incrémentés de 000001 à 999999
Une fois faite je pourrais donc concatener le Code société et la clé de contrôle.

Avez vous une idée?
D'avance merci pour votre aide
Stsym

[loufab]

Bonjour,

Qui dit, zéro non significatif, dit champs de type texte.

Il faut te créer une fonction pour incrémenter un champ texte lors de la création de chaque fiche.

Un exemple en vba

Code :

1
2
 
nouveauNumero  = format(dmax("val(Champtexte)","Table")+1,"00000")

Notes que tu peux également stocker la valeur numérique dans la table et utiliser une partie de cette fonction pour afficher avec le bon format.

Code :

format(dmax("ChampNumerique","Table"),"00000")

Cordialement,

[stsym]

Bonjour Loufab
Merci pour ta réponse rapide .
Je vois que je n'ai pas été précis dans ma question.
En effet ce que je souhaite c'est générer en automatique dans le champ d'une table des valeurs incrémentées de 000001 à 999999.

Merci encore pour ton aide.
Georges

[Philippe JOCHMANS]

Bonjour

Loufab t'a donné une piste, mais veux-tu une incrémentation au fur et à mesure de la saisie des enregistrement ou créer directement une table avec tout ?

Philippe

[loufab]

Pour créer les enregistrement de 1 à 99999 il faut faire une boucle avec l'ouverture d'un recordset puis l'ajout d'un enrgistrement.

Regarde le tuto DAO. Tout y est.

un exemple

Code :

1
2
3
4
5
6
7
8
9
10
dim rst as recordset
set rst = currentdb.openrecordset("table")
 
for i = 1 to 99999
   rst.addnew
   rst.fields("champ") = format(i,"00000")
   rst.update
next
rst.close
set rst = nothing

[stsym]

Bonjour,

Je vais suivre tes conseils et vais chercher dans le tuto.

J'ai essayé le code mais j'ai un message qui dit .
Erreur de compilation Variable (i) non définie.

Merci encore
StSym

[Philippe JOCHMANS]

Bonjour

Loufab t'a donné le code, mais il faut essayer de l'analyser avant de faire du copier/coller.

Il a juste oublié la déclaration de la variable i.

Donc écrit au début du code :

Code :

Dim i as Integer

Philippe

[stsym]

Bonjour

Suite à vos informations j'utilise le code ci-dessous.
Par contre je n'arrive pas à créer les 999999 enregistrements, je suis bloqué à 32766.
A 32767 j'ai un message "Dépassement de capacité".

Merci
StSym

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub MonBouton_Click()
Dim rst As Recordset
Dim i As Integer
 
Set rst = CurrentDb.OpenRecordset("table")
For i = 1 To 32766
   rst.AddNew
   rst.Fields("champ") = Format(i, "000000")
   rst.Update
Next
rst.Close
Set rst = Nothing
End Sub

[Philippe JOCHMANS]

Bonjour

C'est normal, et c'est de ma faute

Remplace la déclaration de i par, le type Integer est limité.

Code :

Dim i As Long

Philippe

[loufab]

D'un autre coté tu ne fais pas trop d'effort...
F1 sur le message te donne le pourquoi.

[stsym]

Bonsoir Loufab et Philippe
Merci pour votre aide car tout fonctionne.

Grâce à cette question vous m'avez permis de découvrir:
le tuto DAO (
que la touche F1 donnait le "pourquoi"sur une message d'erreur.
les subtilités des variables ( integer & long & ...) que je suis loin de maîtriser

et surtout qu'il me restait beaucoup à apprendre
Merci

Cdt
StSym