Discussion :

[ver_for2]

Bonjour

Je souhaite insérer un nouvel enregistrement dans une table et récupérer le numéro de l'identifiant (numéro auto) de l'enregistrement créé.

Je précise que les données sont dans une table liée qui est une liste SharePoint.

Apparemment il y a deux solutions :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim lastID As Long
    With CurrentDb
        With .CreateQueryDef("", _
            "INSERT INTO MaTable " & _
                "( Mon_champ ) " & _
            "VALUES " & _
                "( '999' )")
            .Execute dbFailOnError
            .Close
        End With
        lastID = .OpenRecordset("SELECT @@IDENTITY").Fields(0)
        Debug.Print lastID
    End With

Ou bien

Code :

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

1
2
3
4
5
6
7
Dim rst As Recordset
Dim dbl_a as Double
Set rst = CurrentDb.OpenRecordset("MaTable")
rst.AddNew
dbl_a = rst("Id")
rst.update
rst.close

Quelle est la manière méthode pour bien récupérer l'ID de l'enregistrement inséré même si plusieurs utilisateurs insèrent des données de manière concurrente ?

Merci pour vos réponses

[User]

Bonsoir,

Dans la seconde méthode apparemment vous n'ajoutez rien dans votre table : pas de mise à jour entre rst.addnew et rst.update.

Donc, dans ce cas le numéro auto n'est pas généré.

Il faudrait faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim rst As Recordset
Dim num as long
 
Set rst = CurrentDb.OpenRecordset("MaTable")
 
rst.AddNew
rst!Mon_champ = 999
'...
rst.update
 
rst.MoveLast ' on va au dernier enrg
 
num = rst("Id") ' copie du dernier numéro-auto 
 
'...
 
rst.close
set rst = Nothing

En mode multi-utilisateurs, si un autre utilisateur ajoute un enrg. dans cette table dans le m^me temps, il pourrait générer le même numéro-auto (il faudrait peut être mettre des verrous sur les enrg. de cette table).

Idéalement, il faudrait créer une table compteur indépendante pour enregistrer le dernier numéro-auto qui serait mise à jour uniquement quand on crée un nouveau numéro-auto, il y aurait moins de risque de conflits.

Sinon, utiliser une gestion d'erreur en cas de doublon sur ce champ en clé primaire.

Cdlt,

[star]

Bonjour,
Essaye quelque chose du genre :

Code :

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

1
2
3
4
 
Private Sub Form_AfterInsert()
    Debug.Print "Recuperer de la base de donnees le numero d'ordre de l'enregistrement nouvellement insere"
End Sub

.

[Thumb down]

Bonjour,
Par définition on ne peut pas fournir 999 a un autoincrement.

Ta deuxième solution celle avec le recordset me paraît la plus appropriée.

Code :

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

1
2
3
4
5
6
7
8
9
SQL="select* from [mytable] where [champ1]='toto'"
Set RS= CurrentDb.OpenRecordset(SQL)
If RS.eof then
   RS.addnew
   Rd("champ1")="toto"
   RS.update
End if
Debug.print RS.id
RS.close

[deedolith]

Hello,

J'aurais tendance à privilégier la requête @@IDENTITY,
l'ouverture d'un recordset sur une table, selon son volume, peut être coûteux.

[Thumb down]

Access ne reconnaît pas la @@IDENTITY d'une table lié
sql="SELECT DMax('[ID]', '[NomDeLaTableLiée]') AS DernierID FROM [NomDeLaTableLiée];"Merci pour le -1 anonyme

[ver_for2]

Merci pour vos réponses!

Mon problème est bien celui de récupérer le numéro auto de l'enregistrement généré par mon insertion de données.
En faisant DoCmd.RunSQL

Code :

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

INSERT INTO MaTAble ...

Puis

Code :

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

New_id = Dmax("[num_Auto]","[MaTable]","[num_Auto] > 0")

NewID ne correspond pas forcément au NumAuto de l'enregistrement qui vient d'être effectué dans le cas où deux utilisateurs travaille en même temps.

Je vais surveiller si cette méthode fonctione

[Thumb down]

Si plusieurs utilisateurs sont susceptibles de faire de insertion plus ou moins simultané alors je t'invite à ajouter, si tu en as le pouvoir, un champ user qui permettra de signer son travail.

Ainsi le maxID du user concerné ne posera plus de problème.

[deedolith]

Petit points d'attention:
Numéro automatique n'est pas forcément synonyme d'incrémentation automatique, tout dépend comment sont configuré les tables.
Sous Access, il y a incrémentation automatique ou valeur aléatoire, et si l'on a choisit numéro de réplication comme type de données, c'est un GUID aléatoire.

Selon la BDD en back-end, DMax()+1 ne garantie pas non plus de retourner la N° de la prochaine clef primaire, en effet, les SGBD robustes garantissent la non réutilisation des clefs primaire (AddNew + Cancel ==> une clef primaire "mangée"), ce qu'Access ne fait pas initialement (il est possible d'enforcer ce comportement avec les triggers), il suffit de compacter une BDD pour re-initialiser les clefs primaires a DMax()+1.

Même si on ne se soucis pas de ces détails dans 99% des cas, c'est bon à savoir.

[Thumb down]

Le demandeur précise dans ça première question

récupérer le numéro de l'identifiant (numéro auto)

[ver_for2]

C'est une bonne idée. Je vais tester!

Si plusieurs utilisateurs sont susceptibles de faire de insertion plus ou moins simultané alors je t'invite à ajouter, si tu en as le pouvoir, un champ user qui permettra de signer son travail.

Ainsi le maxID du user concerné ne posera plus de problème.