Numerotation automatique si champs null à partir de 40000 dans une table

Version imprimable

26/06/2020, 17h40
VCM5962

Numerotation automatique si champs null à partir de 40000 dans une table

Bonjour,
Dans le cadre d'une reprise de données d'une application informatique complexe, je reprends toutes les données existantes via BO. J'ai des numéros automatique obligatoire de l'ancienne application mais qui ne se suivent pas. L'application précédente étant nationale, je la reprends en locale. Ces numéros d'identifications "Volc_Id" sont nécessaires dans des tables annexes.

Je souhaiterai numéroter mes nouvelles entrées à partir de 40000 (j'ai 37000 numéros pour 27000 entrées) si le champs est vide. Je suppose que c'est un champ calculé et que l'on positionne la formule dans la ligne de l'expression du champs calculé.

Mais voilà, je n'arrive pas à la formuler correctement avec le langage ACCESS

J'ai fait de nombreuses recherches, mais je cale.

Merci pour votre aide
29/06/2020, 12h14
EricDgn

1 pièce(s) jointe(s)

Bonjour,

Pour autant que j'aie bien compris votre question, ceci pourrait peut-être vous convenir selon l'exemple ci attaché.
1) récupérer vos données dans une table tampon tRecup où le champ Volc_Id est entier long.
A vérifier: aucun Volc_Id vide ni aucun doublon.
2) ajouter un enregistrement "bidon" dont le champ Volc_Id = 40000.
3) créer une table tNew de structure identique à tRecup sauf que le champ Volc_Id est de type "NuméroAuto" et clef primaire.
4) lancer la requête qAjout_de_tRecup_dans_tNew qui recopie tous les enregistrements de tRecup dans tNew.
5) supprimer l'enregistrement "bidon" dans tNew.
6) à partir de maintenant les nouveaux enregistrements entrés dans tNew ont leur Volc_Id qui s'incrémente automatiquement à partir de 40000: 40001, 40002, ...

Cordialement.
29/06/2020, 15h27
VCM5962

Merci beaucoup pour votre aide, mais je pense que ça ne me conviendra pas, à moins de ne pas avoir tout compris. Sur ma table, j'ai effectivement un champs Volc_Id, qui est un numéro sans doublon et qui correspond à un nom et un prénom. Le problème c'est que j'ai deux autres tables, une pour les participations et l'autre correspond à des contacts ou j'ai effectivement aussi le Volc_Id, mais avec dans les deux cas une relation de un Volc_Id à plusieurs dans la table participations et la table contacts. Tout fonctionne à merveille, sauf que maintenant je veux ajouter de nouvelles personnes et c'est là que le bât blesse. Il faudrait que je numérote mes Volc_Id au moment de l'ajout d'une nouvelle fiche dans le formulaire. Probablement, sur le bouton de fermeture du formulaire, sur les propriétés du bouton. J'ajoute donc ma personne et au moment ou je ferme le formulaire l'application devrait numéroter Si [Volc_Id] est null, numéroter à partir de 40000.
Je pense que c'est possible en mode VBA mais je ne sais pas écrire ma formule.
29/06/2020, 19h26
EricDgn

Si le champ Volc_Id est mis au type NuméroAuto il n'y a pas de valeur à introduire: ce numéro se crée automatiquement dès que le nouvel enregistrement est validé (ce qui se produit entre autres quand on passe à l'enregistrement de la personne suivante).
Cordialement.
29/06/2020, 19h42
hyperion13
Salut
Si j'ai bien compris la problématique, vous souhaitez démarrer le prochain Volc_Id à partir de 40000.
Je pense que ceci va vous intéresser.
Sinon créer une req en mode SQL et passer
Code:

1 2 INSERT INTO NomDeLaTable (Volc_Id) SELECT 40000 AS Expr1;
Exécuter qu'une seule fois
29/06/2020, 20h29
EricDgn

1 pièce(s) jointe(s)

Un exemple en attaché. Entrez de nouvelles valeurs, le champ Volc_Id y est auto incrémenté.
Cordialement.
30/06/2020, 09h51
VCM5962

Je réponds à Hypérion, j'ai testé dans le formulaire sur le bouton que j'ai créé pour l'ajout, procédure évènementielle et l'appli me dit que j'ai fait une erreur :

Code:

= INSERT INTO [T02_DonneesAdministratives].[Volc-Id] SELECT 40000 AS Expr1;

La syntaxe n'est pas valide

Pour Eric je n'ai pas testé car je pense avoir compris que c'est une manœuvre de renumérotation automatique totale et j'ai plusieurs tables liées, il faudra donc que je fasse cette manip dans toutes les tables ? ça ne me paraît pas simple.

Merci à vous deux

Sur l'évènement sur click() du btn de commande, passez

Code:

1
2
3
4
5
6
Private Sub Commande10_Click()
Dim StrSQL As String
StrSQL = "INSERT INTO T02_DonneesAdministratives (Volc_Id)"
StrSQL = StrSQL & "SELECT 40000 AS Expr1"
CurrentDb.Execute StrSQL, dbFailOnError
End Sub

30/06/2020, 16h33
EricDgn

Citation:

Envoyé par VCM5962

...j'ai plusieurs tables liés, il faudra donc que je fasse cette mani dans toutes les tables ?

La numérotation automatique n'est mise en oeuvre que pour les nouveaux enregistrements. Pour tous les enregistrements existants il n'y a rien à faire, rien à aller modifier (surtout pas même).
Cordialement.

Citation:

Envoyé par EricDgn

La numérotation automatique n'est mise en oeuvre que pour les nouveaux enregistrements. Pour tous les enregistrements existants il n'y a rien à faire, rien à aller modifier (surtout pas même).
Cordialement.

Bonsoir membres du forum,
bonsoir EricDgn,
bonsoir hyperion13,

Vos interventions sont tellement claires que je n'est pas pu m'empêcher d'intervenir
afin de garder cette discussion parmi tant d'autres où j'ai participé.
Donc je suis allé récupérer la procédure dans le chemin que vous avez indiqué.
Vraiment très intéressante. Je vais l'exploiter.
Je conseille VCM5962, en plus des exemples qu'EricDon a offerts, il devrait voir aussi cette procédure:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Définissez AutoNumbers pour commencer à partir de ...
La réinitialisation d' un numéro automatique à 1 est simple: supprimez les enregistrements et compactez la base de données.
 
Mais comment forcez- vous un numéro automatique à démarrer à partir d'une valeur spécifiée? L'astuce consiste à importer un enregistrement avec un de moins que le nombre souhaité, puis à le supprimer. Le sous-suivant effectue cette opération. Par exemple, pour forcer la table "tblClient" à commencer la numérotation à partir de 7500, entrez:
 
    Appelez SetAutoNumber ("tblClient", 7500)
Sub SetAutoNumber (sTable As String, ByVal lNum As Long)
En cas d'erreur GoTo Err_SetAutoNumber
    'Objectif: définir le champ NuméroAuto dans sTable pour commencer à lNum.
    'Arguments: sTable = nom de la table à modifier.
    'lNum = le nombre à partir duquel vous souhaitez commencer.
    'Exemple d'utilisation: appeler SetAutoNumber ("tblInvoice", 1000) 
    Dim db As DAO.Database       ' Current db. 
    Dim tdf As DAO.TableDef      'TableDef of sTable. 
    Dim i As Integer             'Loop counter 
    Dim fld As DAO.Field         ' Champ de table. 
    Dim sFieldName As String     'Nom du champ NuméroAuto. 
    Dim vMaxID As Variant        'Current Maximum AutoNumber value. 
    Dim sSQL As String           'Append / Delete string de requête. 
    Dim sMsg As String           'MsgBox string.
 
    lNum = lNum - 1              'Attribuer à 1 de moins que la valeur souhaitée.
 
    'Localisez le champ d'incrémentation automatique de cette table.
    Définir db = CurrentDb ()
    Définissez tdf = db.TableDefs (sTable)
    Pour i = 0 À tdf.Fields.Count - 1
        Définissez fld = tdf.Fields (i)
        Si fld.Attributes Et dbAutoIncrField Alors
            sFieldName = fld.name
            Quitter pour
        Fin si
    Prochain
 
    Si Len (sFieldName) = 0 Alors
        sMsg = "Aucun champ NuméroAuto trouvé dans la table" "" & sTable & "" "."
        MsgBox sMsg, vbInformation, "Cannot set AutoNumber"
    Autre
        vMaxID = DMax (sFieldName, sTable)
        Si IsNull (vMaxID) Alors vMaxID = 0
        Si vMaxID> = lNum Then
            sMsg = "Fournissez un plus grand nombre." "" & sTable & "." & _
                sFieldName & "" "contient déjà la valeur" & vMaxID
            MsgBox sMsg, vbInformation, "Trop bas".
        Autre
            ' Insérez et supprimez l'enregistrement.
            sSQL = "INSERT INTO" & sTable & "([" & sFieldName & "]) SELECT" & lNum & "AS lNum;"
            db.Execute sSQL, dbFailOnError
            sSQL = "DELETE FROM" & sTable & "WHERE" & sFieldName & "=" & lNum & ";"
            db.Execute sSQL, dbFailOnError
        Fin si
    Fin si
Exit_SetAutoNumber:
    Quitter sous
 
Err_SetAutoNumber:
    MsgBox "Error" & Err.Number & ":" & Err.Description,, "SetAutoNumber ()"
    Reprendre Exit_SetAutoNumber
End Sub

Je lui conseille de poster une pièce jointe de sa base de données afin qu'on puisse mieux comprendre ses explications.
:merci::merci::merci: toujours pour le bien que vous nous apporté.
Cordialement.

22/07/2020, 12h17
VCM5962

REMERCIEMENT A TOUS LES PARTICIPANTS

Je vous remercie tous pour vos précieux conseils, néanmoins n'étant pas experte ACCESS je n'ai pas réussi à les mettre en oeuvre aussi ai-je choisi une autre solution. J'avais beaucoup d'enregistrements mais peu de tables. J'ai donc pensé à exporter toutes mes données sur un tableeur excel et j'ai renuméroté mes volontaires avec un numéro automatique sur excel, fait une RECHERCHEV sur les tables supplémentaires et recopié le tout sur ACCESS ce qui m'a résolu le problème.:D