Discussion :

[Waluigi]

Bonjour à tous,
J'ai un formulaire qui lors de l'erreur n° 3201 me provoque un avertissement : "Vous ne pouvez pas ajouter ou modifier un enregistrement car l'enregistrement connexe..."

Voulant personnaliser mon avertissement j'ai un code:

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)
Dim Attention As Integer
If DataErr = 3201 Then
DoCmd.SetWarnings False
Attention = MsgBox("  Veuillez valider !", vbOKOnly + vbExclamation, _
"Attention")
Exit Sub
End if
End Sub

Mais impossible de retirer l'avertissement original d'Access.
Comment faire? Quelqu'un a t-il une idée?
Merci d'avance

[ft035580]

Salut,

Et en mettant un truc du style:

Code :

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

1
2
3
4
Select Case Err.Number
     Case 3201
            MsgBox "Veuillez valider !", vbOKOnly + vbExclamation, "Attention"
End Select

[Arkham46]

slt,

il faut agir sur le paramètre Response

à mon humble avis, F1 sur l'événement devrait donner des précision

[Waluigi]

Effectivement
Response = acDataErrContinue
resoud le problème.

Merci beaucoup