Difficulté de créer une table réflexive

**lhouknifis** · 22/06/2017, 05h18

Bonjour
Suite a ma demande d'aide dont voilà le lien https://www.developpez.net/forums/d1646745/logiciels/microsoft-office/access/modelisation/difficulte-creer-table-reflexive/

Voilà le problème : j'ai réalisé la BDD grâce a votre aide en français , j'ai mis le code ça a marché nickel, mais comme la plupart des dirigeants des association n'ont pas un bon niveau en français, j'ai essayé de convertir en arabe, j'ai changé les légendes et le code ne marche pas. Etrange n'est ce pas. voici le code:

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
Option Compare Database
 
Private Sub GererType()
    Select Case TypeAdherent
        Case "منخرط عادي"
           'On va cacher tous les champs qui concerne les membres et les salariés
           Me.Role.Visible = False
           Me.DteDebutRole.Visible = False
           Me.DteFinRole.Visible = False
           Me.Emploi.Visible = False
           Me.DteDebutContrat.Visible = False
           Me.DteFinContrat.Visible = False
           Me.Salaire.Visible = False
 
       Case "عضو مسير"
           'On va afficher les champs qui concernent les membres et cacher ceux pour les salariés
           Me.Role.Visible = True
           Me.DteDebutRole.Visible = True
           Me.DteFinRole.Visible = True
           Me.Emploi.Visible = False
           Me.DteDebutContrat.Visible = False
           Me.DteFinContrat.Visible = False
           Me.Salaire.Visible = False
       Case "أجير"
           'On va afficher les champs qui concernent les salariés et cacher ceux pour les membres
           Me.Role.Visible = False
           Me.DteDebutRole.Visible = False
           Me.DteFinRole.Visible = False
           Me.Emploi.Visible = True
           Me.DteDebutContrat.Visible = True
           Me.DteFinContrat.Visible = True
           Me.Salaire.Visible = True
 
       Case esle
           Call Err.Raise(5, , Error$(5) & " -Type non géré.") 'Signale qu'on s'est trompé dans la programmation. Ne devrait jamais se produire en production.
 
   End Select
End Sub
 
Private Sub Form_Current()
Call GererType
End Sub
 
Private Sub TypeAdherent_AfterUpdate()
Call GererType
End Sub

**th.elnikoff** · 22/06/2017, 15h37

Bonjour à toi,

J'ignore les significations des libellés avec entités, mais une chose m'interpelle : pourquoi ne pas gérer le type avec une valeur codifiée (0, 1, 2, ...) dont l'affichage seul est localisé ?

En outre, je doute que la syntaxe "Case esle" soit admise, mais j'avoue que j'ignore si tu as fait un copier-coller de ton code ou une simple erreur de frappe en la recopiant ici.

Finalement : "Ca ne marche pas", pour moi, ne veut rien dire. Un message d'erreur serait plus pertinent, non ?

Bien à toi,

**lhouknifis** · 22/06/2017, 16h50

Envoyé par th.elnikoff

Bonjour à toi,

J'ignore les significations des libellés avec entités, mais une chose m'interpelle : pourquoi ne pas gérer le type avec une valeur codifiée (0, 1, 2, ...) dont l'affichage seul est localisé ?

bonjour et merci pour votre réaction voici le code original avant de changer les libellés en arabe:

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
Option Compare Database
 
Private Sub GererType()
    Select Case TypeAdherent
        Case "Adhérent"
           'On va cacher tous les champs qui concerne les membres et les salariés
           Me.Role.Visible = False
           Me.DteDebutRole.Visible = False
           Me.DteFinRole.Visible = False
           Me.Emploi.Visible = False
           Me.DteDebutContrat.Visible = False
           Me.DteFinContrat.Visible = False
           Me.Salaire.Visible = False
 
       Case "Bureau"
           'On va afficher les champs qui concernent les membres et cacher ceux pour les salariés
           Me.Role.Visible = True
           Me.DteDebutRole.Visible = True
           Me.DteFinRole.Visible = True
           Me.Emploi.Visible = False
           Me.DteDebutContrat.Visible = False
           Me.DteFinContrat.Visible = False
           Me.Salaire.Visible = False
       Case "Employé"
           'On va afficher les champs qui concernent les salariés et cacher ceux pour les membres
           Me.Role.Visible = False
           Me.DteDebutRole.Visible = False
           Me.DteFinRole.Visible = False
           Me.Emploi.Visible = True
           Me.DteDebutContrat.Visible = True
           Me.DteFinContrat.Visible = True
           Me.Salaire.Visible = True
 
       Case esle
           Call Err.Raise(5, , Error$(5) & " -Type non géré.") 'Signale qu'on s'est trompé dans la programmation. Ne devrait jamais se produire en production.
 
   End Select
End Sub
 
Private Sub Form_Current()
Call GererType
End Sub
 
Private Sub TypeAdherent_AfterUpdate()
Call GererType
End Sub

ainsi j'ai une liste déroulante et chaque fois que sélectionne un élément des champs concernant cet élément s'affiche et les autres restent invisibles comme dans ces aperçus :
Nom : ecran1.png
Affichages : 136
Taille : 173,3 Ko

Nom : ecran1.png
Affichages : 136
Taille : 173,3 Ko

Nom : ecran2.png
Affichages : 204
Taille : 193,4 Ko

Nom : ecranDepart.png
Affichages : 146
Taille : 197,2 Ko

En outre, je doute que la syntaxe "Case esle" soit admise, mais j'avoue que j'ignore si tu as fait un copier-coller de ton code ou une simple erreur de frappe en la recopiant ici.

Finalement : "Ca ne marche pas", pour moi, ne veut rien dire. Un message d'erreur serait plus pertinent, non ?

maintent j'ai changé les libellés en arabe c'est tout, mais quand je selectionne un element comme auparavant les champs ne réagit pas et pas un seul message d'erreur.
Nom : ecranarabe.png
Affichages : 134
Taille : 198,4 Ko

Nom : ecranarabe.png
Affichages : 134
Taille : 198,4 Ko

et voici le code une deuxième fois avec les libelles en arabe:

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
Option Compare Database
 
Private Sub GererType()
    Select Case TypeAdherent
        Case "ãäÎÑØ ÚÇÏí"
           'On va cacher tous les champs qui concerne les membres et les salariés
           Me.Role.Visible = False
           Me.DteDebutRole.Visible = False
           Me.DteFinRole.Visible = False
           Me.Emploi.Visible = False
           Me.DteDebutContrat.Visible = False
           Me.DteFinContrat.Visible = False
           Me.Salaire.Visible = False
 
       Case "ÚÖæ ãÓíÑ"
           'On va afficher les champs qui concernent les membres et cacher ceux pour les salariés
           Me.Role.Visible = True
           Me.DteDebutRole.Visible = True
           Me.DteFinRole.Visible = True
           Me.Emploi.Visible = False
           Me.DteDebutContrat.Visible = False
           Me.DteFinContrat.Visible = False
           Me.Salaire.Visible = False
       Case "ÃÌíÑ"
           'On va afficher les champs qui concernent les salariés et cacher ceux pour les membres
           Me.Role.Visible = False
           Me.DteDebutRole.Visible = False
           Me.DteFinRole.Visible = False
           Me.Emploi.Visible = True
           Me.DteDebutContrat.Visible = True
           Me.DteFinContrat.Visible = True
           Me.Salaire.Visible = True
 
       Case esle
           Call Err.Raise(5, , Error$(5) & " -Type non géré.") 'Signale qu'on s'est trompé dans la programmation. Ne devrait jamais se produire en production.
 
   End Select
End Sub
 
Private Sub Form_Current()
Call GererType
End Sub
 
Private Sub TypeAdherent_AfterUpdate()
Call GererType
End Sub

A+

Bien à toi,

**th.elnikoff** · 23/06/2017, 13h59

Re bonjour à toi.

Je persiste : si c'est effectivement le code que tu utilises, la construction "Case ESLE" n'est pas valable. ESLE n'est pas un token du langage VBA.

Tu dois remplacer "Case ESLE" par "Case Else"

Tu peux, normalement, "compiler" le code VBA dans l'éditeur. Ce processus t'indiquera les erreurs de syntaxe de ce type.

Ensuite, ce que je te suggère de faire, c'est de mettre un point d'arrêt dans le code qui pose problème. Lorsque ce code sera exécuté, l'exécution sera suspendue là où le point d'arrêt sera défini, et tu pourras procéder à l'exécution pas à pas pour déterminer l'instruction provoquant l'erreur.

Bon courage à toi !

**lhouknifis** · 25/06/2017, 04h47

Envoyé par th.elnikoff

Re bonjour à toi.

Je persiste : si c'est effectivement le code que tu utilises, la construction "Case ESLE" n'est pas valable. ESLE n'est pas un token du langage VBA.

Tu dois remplacer "Case ESLE" par "Case Else"Tu peux, normalement, "compiler" le code VBA dans l'éditeur. Ce processus t'indiquera les erreurs de syntaxe de ce type.

Tu raison apropos de "Case ESLE" c'est une faute de frappe, mais il ne pose pas problème pendant l’exécution du code avant de changer les libellés.

Envoyé par th.elnikoff

Ensuite, ce que je te suggère de faire, c'est de mettre un point d'arrêt dans le code qui pose problème. Lorsque ce code sera exécuté, l'exécution sera suspendue là où le point d'arrêt sera défini, et tu pourras procéder à l'exécution pas à pas pour déterminer l'instruction provoquant l'erreur.

Bon courage à toi !.

Malheureusement ,j'ai essayé cette méthode de débogage en vain, aucun erreur signalé.
A+

Difficulté de créer une table réflexive

VBA Access

Discussions similaires

Partager

Partager