Rebonjour à tous!!
Comment personnaliser les "longs messages" d'erreurs générés par access?
merci d'avance
Rebonjour à tous!!
Comment personnaliser les "longs messages" d'erreurs générés par access?
merci d'avance
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.
Merci!
bonjour,
Pour mettre à table les erreurs Access voici une petite fonction qui peut vous aider :
Vous pouvez rajouter une colonne pour votre description personnelle.
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
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
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
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
Merci pour la table, Philben
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager