Discussion :

[saucisson]

Bonjour à tous,


sur une application multi-postes, on insère des enregistrements dans une même table. Je génère manuellement (dmax+1) l'identifiant du nouvel enregistrement avant de faire mon insert.
Or je sais que dans certains cas mon insert ne sera pas fait car un autre utilisateur a déjà pu avoir inséré un enregistrement avec le meme identifiant.

Je voudrai donc tester si mon insert a marché convenablement.
Mais aucune erreur n'est levée alors qu'il y a un doublon de clé primaire.
Ma requête d'insertion affiche bien un message d'erreur de clé sous Access mais en VBA, rien, aucun message !!

Si vous avez une idée, je suis preneur parce que la...

[ptitdragon_eric]

et pquoi ne pas utiliser un numéroauto? ça serait plus fiable et tu serais sur que ton insertion marcherait.

An plus si deux utilisateurs peuvent avoir le même identifiant c'est que l'attribution de cet identifiant ne se fait pas lors de l'enregistrement. Et c'est à ce niveau là que tu devrais revoir le code.

[Trini]

Bonjour,

Tu dis que tu as essayé en VBA, c'est quoi tes lignes de code ?
Parce que avec une petite gestion d'erreur tu dois pouvoir rattrapper l'erreur.

Salut,

[Arkham46]

Salut,

Y a pas de gestion d'erreur VB pour les requêtes SQL, sauf si la requête est explicitement annulée par l'utilisateur lorsque les avertissements sont actifs.

Par contre tu peux récupérer le nombre d'enregistrements sur lequel la requête a agit :

Code :

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

1
2
3
4
Dim db As Database
Set db = CurrentDb
db.Execute "insert into ..."
MsgBox db.RecordsAffected

Donc si c'est 0 ben c'est qu'il y a eu une erreur.

[User]

Salut,

Si tu es au niveau de ton formulaire tu peux faire sur beforeInsert de ton form:

Code :

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

1
2
3
4
5
6
7
Private Sub Form_BeforeInsert(Cancel As Integer) 
 
..... 
 
Me!num = DMax("[num]", "maTable") + 1 
 
End Sub

et récupérer l'erreur en cas de doublon:
sur l'évenement error de ton form:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Error(DataErr As Integer, Response As Integer) 
 
    If DataErr = 3022 Then 'erreur doublon 
    Response = acDataErrContinue 
    Me!num = DMax("[num]", "maTable") + 1  'recalcule le Me!num 
 
    End If 
 
 
End Sub

@+

[Trini]

Re,

Pour récupérer une erreur sur une requete SQL en VBA il faut ajouter DbFailOnError après l' Execute :

Code :

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

1
2
 
db.Execute "insert into ..." ,DbFailOnError

Un On Error et hop, on gère !

Salut

[random]

le mieux serait de laisser access gérer la clef en automatique

mais si pour des raisons que j'ignore tu tiens à ton système il va falloir
utiliser des transactions

pour cela regarde dans l'aide et dans la faq mots clefs transaction
rollback

[saucisson]

ok merci beaucoup à vous tous pour vos réponses

au final c'est la solution de Trini qui marche avec le

Code :

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

db.Execute "insert into ..." ,DbFailOnError

Je pense que c'est la solution la plus adaptée à mon problème (je ne pouvais pas utiliser le numéroAuto car j'avais besoin de garder de "petits" identifiants)

A noter que le db.recordsAffected me retournait 0 à chaque fois, que la requête marche ou ne marche pas.

Merci encore, toujours bien efficace ce forum ...

et bonne journée !