Personnaliser message d'erreurs.

Version imprimable

09/02/2007, 21h54
gentoo

Personnaliser message d'erreurs.

Rebonjour à tous!!

Comment personnaliser les "longs messages" d'erreurs générés par access?

merci d'avance
09/02/2007, 22h44
Heureux-oli

Facile, tu fais une recherche sur la signification du message qui sont affichés et ensuite, tu remplace le message d'access par le tien et tu archives dans une table les messages d'erreurs qui ont été générés pour améliorer ton code et ton appli.
11/02/2007, 00h30
gentoo

Merci!

bonjour,

Pour mettre à table les erreurs Access :lol: voici une petite fonction qui peut vous aider :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
'---------------------------------------------------------------------------------------
' Procédure    : ATableLesErreursAccess !!!   [Sub]
' Version      : 1.0
' Objet        : Génère la liste des erreurs Access et DAO et rempli la table
'                <ErreursEtDescriptions>
' Structure    : La table <ErreursEtDescriptions> doit être créee ainsi :
'                N°_Colonne  Nom_Colonne  Type_Colonne   Index
'                    1       Number       Long           Clef primaire
'                    2       Description  Memo           -
' Remarque     : Utilisation d'une colonne <Memo> car la description la plus longue
'                dépasse 255 caractères
'                La table contient 4284 messages d'erreurs pour ma version d'Access 2003 FR
'---------------------------------------------------------------------------------------
Public Sub ATableLesErreursAccess()
   On Error GoTo errortag
   Dim oDb As DAO.Database
   Dim oRs As DAO.Recordset
   Dim lcount As Long
   Set oDb = CurrentDb
   Set oRs = oDb.OpenRecordset("ErreursEtDescriptions", dbOpenTable)
   With oRs
      For lcount = 0 To 32768
         If Len(Trim$(Nz(AccessError(lcount), ""))) > 0 Then
            .AddNew
            !Number = lcount
            !Description = AccessError(lcount)
            .Update
         End If
      Next lcount
   End With
   MsgBox DCount("Number", "ErreursEtDescriptions") & " messages d'erreurs enregistrés", _
          vbInformation, "A Table Les Erreurs Access !"
fin:
   Set oRs = Nothing
   Set oDb = Nothing
   Exit Sub
errortag:
   MsgBox "Erreur n°" & Err.Number & vbCrLf & "Description : " & Err.Description, vbCritical, "Erreur..."
   Resume fin
End Sub

Vous pouvez rajouter une colonne pour votre description personnelle.

On peut aussi se servir de cette table pour générer un fichier PDF à partir d'un état pour conserver un référentiel des erreurs Access.

Cordialement,

Philippe

25/05/2007, 11h43
jolemoine

;) Bonjour Heureux-oli,

cela semble facile mais je ne sais pas comment faire, en effet dans un champs date en saisie je voudrais le paramétrer, elle ne doit pas être supérieure à la date du jour.

Tofalu m'a indiquer comment faire, paramétrer ce champ dans la table.

créer un bout de programme en utilisant le numéro de l'erreur pour fair une MsgBox personalisée, car celle d'Acces, bie que l'on pêut changer le tecte il y a le bouton "aide" qui me gêne.

mais je sais pas où le mettre, où sur quelle évènement du champ "Date_saisie" de mon formulaire.

bon un peut d'aide me ferai du bien, merci
;)
26/05/2007, 16h03
micniv

Merci pour la table, Philben :king: