Private Sub Form_Error(ErrDonnée As Integer, Réponse As Integer)
Const conCléDupliquée = 3022
Dim chMsg As String
If ErrDonnée = conCléDupliquée Then
Réponse = acDataErrContinue
chMsg = " A chaque enregistrement d'employé doit correspondre " _
& " un numéro d'IDentification unique. Veuillez vérifier vos
données."
MsgBox chMsg
End If
End Sub
Comment faire pour identifier la zone à l'origine de l'erreur dans le cas ou
il y aurait plusieurs clé uniques
dans mon cas j'ai un Identifiant unique et (N° Fournisseur+N° Facture
unique) si l'un des deux est en double j'obtiens le meme message
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Bruno
En faisant les controles dans les événements beforeUpdate() de chaque zone. Utilise des dlookup pour faire les controles. Sinon, à mon avis, c'est impossible dans Form_Error @+ Bruno
"Didier Fraisse" a écrit dans le message de news:419c6439$0$31419$
Bonjour
Extrait de l'aide en ligne access
Private Sub Form_Error(ErrDonnée As Integer, Réponse As Integer) Const conCléDupliquée = 3022 Dim chMsg As String
If ErrDonnée = conCléDupliquée Then Réponse = acDataErrContinue chMsg = " A chaque enregistrement d'employé doit correspondre " _ & " un numéro d'IDentification unique. Veuillez vérifier vos données." MsgBox chMsg End If End Sub
Comment faire pour identifier la zone à l'origine de l'erreur dans le cas ou
il y aurait plusieurs clé uniques dans mon cas j'ai un Identifiant unique et (N° Fournisseur+N° Facture unique) si l'un des deux est en double j'obtiens le meme message
Merci de votre aide Didier
En faisant les controles dans les événements beforeUpdate() de chaque zone.
Utilise des dlookup pour faire les controles.
Sinon, à mon avis, c'est impossible dans Form_Error
@+
Bruno
"Didier Fraisse" <dfraisse.info@free.fr> a écrit dans le message de
news:419c6439$0$31419$626a14ce@news.free.fr...
Bonjour
Extrait de l'aide en ligne access
Private Sub Form_Error(ErrDonnée As Integer, Réponse As Integer)
Const conCléDupliquée = 3022
Dim chMsg As String
If ErrDonnée = conCléDupliquée Then
Réponse = acDataErrContinue
chMsg = " A chaque enregistrement d'employé doit correspondre " _
& " un numéro d'IDentification unique. Veuillez vérifier vos
données."
MsgBox chMsg
End If
End Sub
Comment faire pour identifier la zone à l'origine de l'erreur dans le cas
ou
il y aurait plusieurs clé uniques
dans mon cas j'ai un Identifiant unique et (N° Fournisseur+N° Facture
unique) si l'un des deux est en double j'obtiens le meme message
En faisant les controles dans les événements beforeUpdate() de chaque zone. Utilise des dlookup pour faire les controles. Sinon, à mon avis, c'est impossible dans Form_Error @+ Bruno
"Didier Fraisse" a écrit dans le message de news:419c6439$0$31419$
Bonjour
Extrait de l'aide en ligne access
Private Sub Form_Error(ErrDonnée As Integer, Réponse As Integer) Const conCléDupliquée = 3022 Dim chMsg As String
If ErrDonnée = conCléDupliquée Then Réponse = acDataErrContinue chMsg = " A chaque enregistrement d'employé doit correspondre " _ & " un numéro d'IDentification unique. Veuillez vérifier vos données." MsgBox chMsg End If End Sub
Comment faire pour identifier la zone à l'origine de l'erreur dans le cas ou
il y aurait plusieurs clé uniques dans mon cas j'ai un Identifiant unique et (N° Fournisseur+N° Facture unique) si l'un des deux est en double j'obtiens le meme message
