Discussion :

[Zebulon777]

Bonjour à tous

Voici le code que j'utilise :

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
 
Private Sub C_OACI_BeforeUpdate(Cancel As Integer)
    If Not IsNull(C_OACI) And Trim(C_OACI) <> "" Then
        If Trt_Existe(C_OACI.Value) Then
            MsgBox "Ce code OACI existe déjà dans la table."
            Cancel = True
            C_OACI.SetFocus
        Else
            Cancel = False
        End If
    Else
        Cancel = True
        MsgBox ("Le champ 'Code OACI' ne peut pas être vide.")
        C_OACI.SetFocus
        Exit Sub
    End If
End Sub

Lorsque je saisis une donnée qui existe dans la table, Access me renvoie l'erreur 2108 : Vous devez enregistrer votre champs avant d'exécuter l'action AtteintreControle, la méthode GoToControle ou la méthode SetFocus.

Je ne comprend pas du tout ce qu'il veux dire car, ce que je souhaite faire, c'est de remettre le curseur dans le champs en question lorsqu'une erreur est détectée (donnée existante ou champs vide ou null)

Merci d'avance.

[Trini]

Bonjour,

En fait tu n'as pas besoin de remettre le focus sur le champ si tu fais un CANCEL=True. Le traitement reste sur le champ tant que tu ne l'a pas validé.

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
 
Private Sub C_OACI_BeforeUpdate(Cancel As Integer)
    If Not IsNull(C_OACI) And Trim(C_OACI) <> "" Then
        If Trt_Existe(C_OACI.Value) Then
            MsgBox "Ce code OACI existe déjà dans la table."
            Cancel = True
        Else
            Cancel = False
        End If
    Else
        Cancel = True
        MsgBox ("Le champ 'Code OACI' ne peut pas être vide.")
        Exit Sub
    End If
End Sub

Salut,

[Zebulon777]

Effectivement, ça fonctionne, merci...
Mais par contre, maintenant, lorsque je saisis un code qui existe dans la table, j'ai bien mon message qui s'affiche mais ensuite j'ai un autre "gros" message venant d'Access qui dit :
"La valeur du champ ou de l'enregistrement ne respecte pas la règle de validation pour l'enregistrement ou le champ. Vous avez peut-être modifié une règle de validation sans vérifier si les données existantes correspondent à la nouvelle règle de validation. Cliquez sur... etc, etc.."

Je ne compred pas ce qu'il veux dire ; je n'ai modifié aucune règle dans le code ???

Comment éviter ce message, sachant que dans le Form_Load, j'ai déjà mis un "DoCmd.SetWarnings false" ???

[Trini]

Re,

As-tu essayé de mettre le DoCmd.SetWarnings false dans la procédure en début.

Code :

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

1
2
3
4
5
 
Private Sub C_OACI_BeforeUpdate(Cancel As Integer)
 
  DoCmd.SetWarnings false
.....

[Zebulon777]

Yep, ca ne fonctionne pas ; j'ai toujours le même message.

[Trini]

Bon ben y'a plus qu'à gérer l'événement 'Sur Erreur' de ton formulaire et tu places le code suivant :

Code :

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

1
2
3
4
5
6
7
 
Private Sub Form_Error(DataErr As Integer, Response As Integer)
 
   '    MsgBox DataErr
  If DataErr = <code erreur> Then Response = acDataErrContinue
 
End Sub

La ligne avec le Msgbox permet de connaitre le <Code Erreur> correspondant. A retirer après utilisation

Salut,

[Zebulon777]

Ca fonctionne, merci beaucoup.
Où est-ce que je peux trouver les autres variables du genre DataErr ?
J'aimerai pour gérer certains codes erreur en fonction de certains champ (donc récupérer le nom du champ en cause) ???

[Trini]

Le DataErr est équivalent à Err.Number.
Si tu veux gérer plusieurs cas d'erreurs, utilises en Select Case

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 Form_Error(DataErr As Integer, Response As Integer)
 
  Select case DataErr
  Case 3501
      Response = acDataErrContinue
  Case 2702
      ' Ici tu peux placer des messages plus explicites....
       Response = acDataErrContinue
  case else
       msgbox "Err " & dataerr & " " & Error(dataerr)
  end select
 
End Sub

Sinon récupérer le champ en cause, on peut essayer avec ActiveControl.name par exemple.

Sinon quand une erreur peut être provoquée par plusieurs champs, j'indique à l'utilisateur un message du style "Veuillez vérifier votre saisie sur les champs suivants......", ça répond à tout.
Faut être près de l'utilisateur mais pas trop quand même

[Zebulon777]

Merci beaucoup m'sieur...