[AC-2003] Gestion d'erreur (doublon) [Résolu]

[willytito]

Bonjour,

Je développe avec Access 2003 sous Windows XP pro.
J'ai un formulaire principal et un sous formulaire.
Je voudrais intercepter l'erreur de doublon.
Pour se faire, j'utilise l'évènement Form_Error()
J'arrive à intercepter l'erreur de doublon en utilisant le n° d'erreur Data_Err = 3022, comme suit :

Code :

1
2
3
4
5
6
7
 
Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 3022 Then
    MsgBox "Doublon"
 
End If
End Sub

Mais je ne sais pas comment désactiver le message d'erreur afficher par Access :
Modifications non effectuées: risque de doublon dans l'index, clé principale ou relation interdisant les doublons ...

Si quelqu'un peut m'aider.
Merci

Willy

[marot_r]

Il doit falloir ajouter une instruction

Code :

Response = acDataErrContinue

pour indiquer à Access ce que tu veux faire.

Essaye :

Code :

1
2
3
4
5
6
Private Sub Form_Error(DataErr As Integer, Response As Integer)
  If DataErr = 3022 Then
    MsgBox "Doublon"
    Response = acDataErrContinue
  End If
End Sub

Il y a 3 valeurs possibles pour Response mais je n'ai pas réussi à remettre la main dessus.

A+

[willytito]

Bonjour,
Merci beaucoup, ça fonctionne.
Willy