Discussion :

[gwenagan]

Bonjours à tous,

Je tiens à remercier Madefemere d'avoir répondu à ma question d'hier concernant une variable permettant d'adapter la taille d'un formulaire en fonction de la définition d'affichage choisie par l'utilisateur. Cela fonctionne parfaitement et je le recommande à lire ICI :
http://www.developpez.net/forums/d38...n-formulaires/

Ma question d'aujourd'hui porte sur la gestion des erreurs.
je tiens à préciser que je suis autodidacte passionné par la conception et le développement de petits logiciel de tout genre et notamment de base de donnée.
C'est donc tout naturellement que je me suis tourné vers access qui me semblait offrir des possibilités infinies.

Je vous met ci-dessous la façon dont j'écris un écran ou formulaire de recherche pour que vous compreniez mieux ma question. (j'espère réussir à mettre mon code entre balises !!!)

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
Private Sub WFILTRE_Click()
 
    NEW_FILTRE = "SELECT T_ALLOCATAIRE.NO_ALLOCATAIRE, T_ALLOCATAIRE.NO_ALLOCATAIRE_REEL, T_ALLOCATAIRE.CAF, T_ALLOCATAIRE.MSA, T_ALLOCATAIRE.AUTRE, T_ALLOCATAIRE.ASSISTANTE_MATERNELLE, T_ALLOCATAIRE.[ACTIF], T_ALLOCATAIRE.A_GENRE, T_ALLOCATAIRE.A_NOM, T_ALLOCATAIRE.A_PRENOM, T_ALLOCATAIRE.A_ADR1, T_ALLOCATAIRE.A_ADR2, T_ALLOCATAIRE.A_CP, T_ALLOCATAIRE.A_VILLE, T_ALLOCATAIRE.A_TEL, T_ALLOCATAIRE.A_MOBILE, T_ALLOCATAIRE.A_EMAIL, T_ALLOCATAIRE.DATE_INSCRIPTION FROM T_ALLOCATAIRE"
    WAND = " WHERE"
 
    CPTE = 0
 
    If Not IsNull(fW_NOM) And fW_NOM <> "" Then
 
    NEW_FILTRE = NEW_FILTRE + WAND
    NEW_FILTRE = NEW_FILTRE + " "
    NEW_FILTRE = NEW_FILTRE + "T_ALLOCATAIRE.A_NOM Like '" & fW_NOM & "'"
 
    WAND = " AND"
    CPTE = 1
    End If
 
    If Not IsNull(fW_PRENOM) And fW_PRENOM <> "" Then
 
    NEW_FILTRE = NEW_FILTRE + WAND
    NEW_FILTRE = NEW_FILTRE + " "
    NEW_FILTRE = NEW_FILTRE + "T_ALLOCATAIRE.A_PRENOM Like '" & fW_PRENOM & "'"
 
    WAND = " AND"
    CPTE = 1
    End If
 
    If Not IsNull(fW_CP) And fW_CP <> "" Then
 
    NEW_FILTRE = NEW_FILTRE + WAND
    NEW_FILTRE = NEW_FILTRE + " "
    NEW_FILTRE = NEW_FILTRE + "T_ALLOCATAIRE.A_CP Like '" & fW_CP & "'"
 
    WAND = " AND"
    CPTE = 1
    End If
 
    If Not IsNull(fW_VILLE) And fW_VILLE <> "" Then
 
    NEW_FILTRE = NEW_FILTRE + WAND
    NEW_FILTRE = NEW_FILTRE + " "
    NEW_FILTRE = NEW_FILTRE + "T_ALLOCATAIRE.A_VILLE Like '" & fW_VILLE & "'"
 
    WAND = " AND"
    CPTE = 1
    End If
 
    If CPTE = 1 Then
    NEW_FILTRE = NEW_FILTRE
    Else
 
    NEW_FILTRE = "SELECT T_ALLOCATAIRE.NO_ALLOCATAIRE, T_ALLOCATAIRE.NO_ALLOCATAIRE_REEL, T_ALLOCATAIRE.CAF, T_ALLOCATAIRE.MSA, T_ALLOCATAIRE.AUTRE, T_ALLOCATAIRE.ASSISTANTE_MATERNELLE, T_ALLOCATAIRE.[ACTIF], T_ALLOCATAIRE.A_GENRE, T_ALLOCATAIRE.A_NOM, T_ALLOCATAIRE.A_PRENOM, T_ALLOCATAIRE.A_ADR1, T_ALLOCATAIRE.A_ADR2, T_ALLOCATAIRE.A_CP, T_ALLOCATAIRE.A_VILLE, T_ALLOCATAIRE.A_TEL, T_ALLOCATAIRE.A_MOBILE, T_ALLOCATAIRE.A_EMAIL, T_ALLOCATAIRE.DATE_INSCRIPTION FROM T_ALLOCATAIRE"
 
    End If
    Me.RecordSource = NEW_FILTRE + ";"
    Me.Requery
 
End Sub

Ceci est un exemple de programme utilisé par une halte garderie.

Ceci n'est pas forcement très orthodoxe mais fonctionne très bien, là n'est pas la question.

Dans des formulaire de saisie, je gère les erreurs de saisie par des Msgbox avertissant l'utilisateur que la saisie est incorrecte ou que la valeur saisie n'est pas appropriée à ce type de champs etc ...

Mais malgré tout, l'utilisateur ce retrouve parfois avec un plantage et ce retrouve dans le code source à l'endroit de l'erreur (si il possède Access, en runtime, le programme ce ferme).

Ce qui me choque, c'est de voire dans vos code à vous ce qui semble être une gestion des erreurs du type :

Code :

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

On Error GoTo

A quoi cela sert il et comment cela s'applique t' il ?

Je vous souhaite une bonne journée et vous remercie d'avance pour votre aide.

[Dolphy35]

Salut,

je t'invite à lire ce tuto qui te permettra de comprendre la mise en place d'une gestion d'erreur. Ceci concerne Excel mais le principe est le même sous Access.

http://silkyroad.developpez.com/VBA/GestionErreurs/

@++

[gwenagan]

Bonjour et merci pour ta réponse.

Je potasse ça tout de suite.

A plus tard pour le verdict.

Bonne soirée.