gestion d'erreurs centralisée

sur un form, event = erreur

call gesterreur(dataerr,response)

=======

module

=====

Public Sub gesterreur(numerr As Integer, Response As Integer)

Dim reperreur As String

Select Case numerr

Case 2237

reperreur = "cet élément ne fait pas partie de la liste des choix possibles"

Case 3022

reperreur = "cet élément existe déjà - (violation de clé primaire, ou indexé sans doublons)"

Case 3314

reperreur = "Un champ obligatoire est resté vide"

Case Else

reperreur = "non identifiée"

End Select

If reperreur = "non identifiée" Then

Response = acDataErrDisplay

Else

Response = acDataErrContinue

AfficheMessage reperreur

End If

End Sub