Discussion :

[bestall666]

Bonsoir tout le monde

J'ai un problème de contrôle de données !!!

J'ai un champ texte en saisie obligatoire et je veux remplacer le message d'erreur d'access par un message personnalié mais j'ai un message d'erreur "Vous devez enregistrer le champ avant de l'atteindre avec set focus "

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 Form_Error(DataErr As Integer, Response As Integer)
On Error GoTo Err_Form_Error
 
    If DataErr = 3314 Then
        AfficheErreur "Vous devez saisir le titre du film", "Erreur de saisie"
        Response = acDataErrContinue
        [Titre Film].SetFocus
    End If
 
    Exit Sub
 
Err_Form_Error:
    MsgBox Err.Description
    Exit Sub
 
End Sub

Que faire pour supprimer le message d'erreur d'access ?

Merci d'avance

@+

Bestall666

[Arkham46]

slt

ça ça arrive parce que tu es en train de modifier le champ sur lequel tu fais ton SetFocus

essaye de vérifier que ce n'est pas le cas (pas la peine de toute façon de mettre le focus sur le champ en cours...) :

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
Private Sub Form_Error(DataErr As Integer, Response As Integer)
On Error GoTo Err_Form_Error
 
    If DataErr = 3314 Then
        AfficheErreur "Vous devez saisir le titre du film", "Erreur de saisie"
        Response = acDataErrContinue
       If Screen.ActiveControl <> [Titre Film] Then [Titre Film].SetFocus
    End If
 
    Exit Sub
 
Err_Form_Error:
    MsgBox Err.Description
    Exit Sub
 
End Sub

[bestall666]

slt

ça ça arrive parce que tu es en train de modifier le champ sur lequel tu fais ton SetFocus

essaye de vérifier que ce n'est pas le cas (pas la peine de toute façon de mettre le focus sur le champ en cours...) :

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
Private Sub Form_Error(DataErr As Integer, Response As Integer)
On Error GoTo Err_Form_Error
 
    If DataErr = 3314 Then
        AfficheErreur "Vous devez saisir le titre du film", "Erreur de saisie"
        Response = acDataErrContinue
       If Screen.ActiveControl <> [Titre Film] Then [Titre Film].SetFocus
    End If
 
    Exit Sub
 
Err_Form_Error:
    MsgBox Err.Description
    Exit Sub
 
End Sub

Merci Bcp Arkham46 !!!!!

Car ca marche à la perfection !!

J'ai encore appris quelque chose grâce à ce superbe forum !!!!

@+

Bestall666