[VBA]INSERT INTO et récupération d'id auto [Résolu]

[norkius]

Bonjour,

Voilà j'effectue une requête d'insertion dans une table avec une clé primaire id qui est un numéroAuto. J'ai ensuite besoin de récupérer l'id qui vient d'être crée par Access pour une autre requête.
Jusqu'a maintenant je crée un recordset juste derrière ma requête INSERT INTO qui contient l'ensemble des id de la table (Select id from table) et je fais un recorset.moveLast pour récupérer le dernier id
Seulement je trouve que cette solution est très "sale". Par exemple il suffit que ma table contienne des trous dans les id et mon algo ne fonctionnerai plus...

Je pense qu'il doit exister une façon de faire plus propre pour récupérer l'id que Access vient de créer... Comment faites vous ou feriez vous?

Merci!!

[Demco]

Seulement je trouve que cette solution est très "sale". Par exemple il suffit que ma table contienne des trous dans les id et mon algo ne fonctionnerai plus...

Peu importe les trous, le dernier numero auto insere sera toujours le plus grand.

Je pense qu'il doit exister une façon de faire plus propre pour récupérer l'id que Access vient de créer... Comment faites vous ou feriez vous?

En effet.

En espérant t'aider.

[Arkham46]

slt,

Par exemple il suffit que ma table contienne des trous dans les id et mon algo ne fonctionnerai plus...

les trous de numéro auto ne sont pas bouchés

la FAQ donne d'autres méthodes

[norkius]

J'ai fait un tour dans la FAQ avant de poster j'ai du louper le paragraphe qui donne d'autres méthodes... J'y retourne alors

[norkius]

Ok d'après ce que je comprends il faut que j'utilise directement un recordset pour faire mon insertion et non l'execution d'une requête SQL sur ma database.

J'essaie donc ça...
Merci et désolé d'avoir posté alors que la solution est dans la FAQ

[Demco]

Envoyé par Demco

Peu importe les trous, le dernier numero auto insere sera toujours le plus grand.

En effet.

En espérant t'aider.

Il fallait cliquer sur le petit bonhomme FAQ, je mettrais des liens plus explicites a l'avenir c'est vrai qu'il est un peu caché ...
http://access.developpez.com/faq/?re...er+numero+auto

En esperant t'aider.

[DidZTM]

Bonjour à tous !
Après avoir galéré avec cette bêtise.
Voici une solution simple pour régler le problème.
Utiliser ("SELECT @@Identity").Collect(0).
Ceci permet de récupérer le dernier enregistrement effectué.

Voici comment je l'utilise dans un commitTrans :
------------------

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim id as Integer
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
With cn
        .connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                                   "Data Source=C:\db.accdb "<-Path de la connection,ici db access
        .CursorLocation = adUseClient
        .Properties("Jet OLEDB:Database Password") = mdbpass <- mot de passe
        .Open
End With
cn.BeginTrans
cn.Execute ("INSERT INTO X (champ) VALUES("y")",dbFailOnError)
id=cn.Execute (("SELECT @@Identity").Collect(0))
cn.CommitTrans
cn.Close
Debug.print id

--------------------------------
Voili voilou

[Soni03]

Code :

1
2
3
 
 
id=cn.Execute (("SELECT @@Identity").Collect(0))

Cette ligne ne fonctionne pas et elle est interprété comme une erreur dans mon VBA... Bizarre non ?

[Chrysostome]

Une autre possibilité que j'utilise toujours:

Dim rst As Recordset
Dim dbl_a as Double
Set rst = CurrentDb.OpenRecordset("Ta_Table")
rst.AddNew
dbl_a = rst("Id")
rst.update
rst.close

dbl_a= Id créée.

Voili, voilou, voilà!