Discussion :

[faressam]

Bonjour

J'ai une Table "T1", j'ai le champ "Code" comme clé primaire.

Quand je veux dupliquer un enregistrement dans le Champ "Code" de ma table, j'ai un message d'erreur avec un code d'erreur "3022".

- Le problème quand je saisie à travers une interface Formulaire, qu'il crée l'enregistrement ou pas, je n'ai pas de message d'erreur, et je voulais savoir comment faire pour faire un test sur le code d'erreur "3022" :

Code :

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

1
2
3
4
5
6
7
8
9
10
if Err.Number = 3022 Then
 Msgbox " Clé primaire n'accepte pas de Doublon"

Else 

' Inserer mon champ 

insert into ....

End if

Merci pour votre aide

[Dolphy35]

Salut,

utilise On error goto qui permet de lever l'erreur lors de l'éxécution de ton code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Commande0_Click()
On Error GoTo err_commande0
    'Traitement pour levée d'erreur
    '.....
    Exit Sub 'si pas d'erreur
 
err_commande0: 'si erreur
    Select Case Err.Number
        Case 3022
            'Code à exécuter
        Case Else
            MsgBox Err.Number & vbCrLf & Err.Description
    End Select
End Sub

Dolphy