[AC-2007] Comment récupérer la valeur du dernier numéro auto inséré dans une table ? [Résolu]

[marot_r]

Bonjour à tous et merci de votre temps et de votre aide.

J'ai une BD dont je dois forcer le numéro de départ d'un champ auto-incrémenté. J'ai donc fait un bout de code pour créer autant d'enr que j'en avais besoin et tout est correct.

Le problème c'est que je supprime ces enregistrements et que plus rien dans la table ne m'indique la valeur actuel du champ auto-incrémenté.

Dans la FAQ j'ai trouvé

Code sql :

SELECT @@identity FROM maTable;

qui est dit fonctionner pour Access 2000 et plus mais quand je mets ce code le SQL d'une requête dans ma BD Access 2007 je n'obtiens aucune information. Cela ne crée pas d'erreur mais cela me retourne aucun enregistrement.

Mes recherches sur Google sont restées sans resultat utile.

Quelqu'un sait comment on peut le faire ?

A+

[micniv]

Bonjour Marot,

Sache que tu peux rénitialiser un compteur en num auto par

Code :

1
2
ALTER table T_MaTable ALTER COLUMN NoAuto COUNTER(25,1)

[jpcheck]

Salut,

pour ma part, je place ce genre d'info dans une table de parametres

[Richard_35]

Bonjour,

Si je peux me permettre d'intervenir, la requête :

Code sql :

SELECT max(TonChampNumeroAuto) FROM TaTable

sans rien d'autre, te retourne le dernier TonChampNumeroAuto de TaTable.

[marot_r]

Finalement sur ce site : http://allenbrowne.com/

et plus précisement là : http://allenbrowne.com/funcindex.html qui contient toute une liste de fonctions utiles.

J'ai trouvé le code suivant que j'ai légérement adapté à mon besoin. Il nécessite une référence sur Microosft ADO Ext. (c'est le ADOX).

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
Private Sub test_GetSeedADOX()
    Debug.Print GetSeedADOX("Table1")
End Sub
 
Private Function GetSeedADOX(strTable As String, Optional ByRef strCol As String) As Long
    'Purpose:   Read the Seed of the AutoNumber of a table.
    'Arguments: strTable the table to examine.
    '           strCol = the name of the field. If omited, the code finds it.
    'Return:    The seed value.
    Dim cat As New ADOX.Catalog 'Root object of ADOX.
    Dim tbl As ADOX.Table       'Each Table in Tables.
    Dim col As ADOX.Column      'Each Column in the Table.
 
    'Point the catalog to the current project's connection.
    Set cat.ActiveConnection = CurrentProject.Connection
    Set tbl = cat.Tables(strTable)
 
    'Loop through the columns to find the AutoNumber.
    For Each col In tbl.Columns
        If col.Properties("Autoincrement") Then
            strCol = "[" & col.Name & "]"
            GetSeedADOX = col.Properties("Seed")
            Exit For    'There can be only one AutoNum.
        End If
    Next
 
    'Clean up
    Set col = Nothing
    Set tbl = Nothing
    Set cat = Nothing
End Function

Qui donne bien la valeur du prochain NumAuto. Par exemple sur une table vide il donne 1 et sur ma table de 4999 enr supprimés il donne 5000.

A+