Bonjour,
J’ai décidé de refaire une bdd (réalisée il y a quelques années) car ma première version était trop lourde à utiliser et, plutôt que de repartir de ma bdd initiale, j’ai préféré recommencer à zéro.
Mais, alors que je ne suis encore que dans la première phase, j’ai déjà un souci avec la fonction « .visible ». J’ai beau vérifier, revérifier et avoir recommencé la même bdd 3 fois (pensant que c’était un bug), je n’arrive toujours pas à comprendre pourquoi cela ne fonctionne pas puisque j’ai fait la même chose pour chaque condition et cela fonctionne très bien pour la plupart.
Mon formulaire :
- champ 1 : « Taxonomic Rank », liste déroulante limitée à 9 choix : Familia ; Subfamilia ; Tribus ; Subtribus ; Genus ; Subgenus ; Species ; Subspecies et Varietas.
- champ 2 : « Superfamila », liste déroulante.
- champ 3 : « Familia », liste déroulante.
- champ 4 : « Subfamila », liste déroulante.
- champ 5 : « Tribus », liste déroulante.
- champ 6 : « Subtribus », liste déroulante.
- champ 7 : « Genus », liste déroulante.
- champ 8 : « Subgenus », liste déroulante.
- champ 9 : « Species ».
- champ 10 : « Subspecies ».
- champ 11 : « Varietas ».
…
- champ 14 : «Type Species », oui/non.
- champ 15 : « Type Species Name ».
- champ 16 : « Original Combination ».
- champ 17 : « Status », valid/synonym.
- champ 18 : « Synonym of ».
…
Les champs 1, 2, 3 & 17 sont toujours visibles.
Les champs 4 à 11, 14 à 16 et 18 sont visibles sur condition. Dans le format ils sont donc en « Visible : NON ».
Pour les champs 2 à 11 et 14 à 17 j’ai une macro après MAJ pour actualiser le champ.
Quand je choisi dans la liste déroulante « Taxonomic Rank »:
* « Familia » : les seuls champs devant être visibles sont ceux qui le sont toujours.
* « Subfamila » : idem + Subfamila.
* « Tribus » : idem + Subfamilia et Tribus.
* « Subtribus » : idem + Subfamilia, Tribus et Subtribus.
* « Genus » : idem + Subfamilia, Tribus, Subtribus, Genus et Type Species Name.
* « Subgenus » : idem + Subfamilia, Tribus, Subtribus, Genus, Subgenus et Type Species Name.
* « Species » : idem + Subfamilia, Tribus, Subtribus, Genus, Subgenus, Species, Type Species et Original Combination.
* « Subspecies » : idem + Subfamilia, Tribus, Subtribus, Genus, Subgenus, Species, Subspecies et Original Combination.
* « Varietas » : idem + Subfamilia, Tribus, Subtribus, Genus, Subgenus, Species, Subspecies, Varietas et Original Combination.
PROBLEMES :
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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137 Private Sub Taxonomic_Rank_AfterUpdate() If [Taxonomic Rank] = "Familia" Then [Familia].Visible = True Else [Subfamilia].Visible = False [Tribus].Visible = False [Subtribus].Visible = False [Genus].Visible = False [Subgenus].Visible = False [Species].Visible = False [Subspecies].Visible = False [Varietas].Visible = False [Type Species].Visible = False [Type Species Name].Visible = False [Original Combination].Visible = False End If If [Taxonomic Rank] = "Subfamilia" Then [Familia].Visible = True [Subfamilia].Visible = True Else [Tribus].Visible = False [Subtribus].Visible = False [Genus].Visible = False [Subgenus].Visible = False [Species].Visible = False [Subspecies].Visible = False [Varietas].Visible = False [Type Species].Visible = False [Type Species Name].Visible = False [Original Combination].Visible = False End If If [Taxonomic Rank] = "Tribus" Then [Familia].Visible = True [Subfamilia].Visible = True [Tribus].Visible = True Else [Subtribus].Visible = False [Genus].Visible = False [Subgenus].Visible = False [Species].Visible = False [Subspecies].Visible = False [Varietas].Visible = False [Type Species].Visible = False [Type Species Name].Visible = False [Original Combination].Visible = False End If If [Taxonomic Rank] = "Subtribus" Then [Familia].Visible = True [Subfamilia].Visible = True [Tribus].Visible = True [Subtribus].Visible = True Else [Genus].Visible = False [Subgenus].Visible = False [Species].Visible = False [Subspecies].Visible = False [Varietas].Visible = False [Type Species].Visible = False [Type Species Name].Visible = False [Original Combination].Visible = False End If If [Taxonomic Rank] = "Genus" Then [Familia].Visible = True [Subfamilia].Visible = True [Tribus].Visible = True [Subtribus].Visible = True [Genus].Visible = True [Type Species Name].Visible = True Else [Subgenus].Visible = False [Species].Visible = False [Subspecies].Visible = False [Varietas].Visible = False [Type Species].Visible = False [Original Combination].Visible = False End If If [Taxonomic Rank] = "Subgenus" Then [Familia].Visible = True [Subfamilia].Visible = True [Tribus].Visible = True [Subtribus].Visible = True [Genus].Visible = True [Subgenus].Visible = True [Type Species Name].Visible = True Else [Species].Visible = False [Subspecies].Visible = False [Varietas].Visible = False [Type Species].Visible = False [Original Combination].Visible = False End If If [Taxonomic Rank] = "Species" Then [Familia].Visible = True [Subfamilia].Visible = True [Tribus].Visible = True [Subtribus].Visible = True [Genus].Visible = True [Subgenus].Visible = True [Species].Visible = True [Type Species].Visible = True [Original Combination].Visible = True Else [Subspecies].Visible = False [Varietas].Visible = False [Type Species Name].Visible = False End If If [Taxonomic Rank] = "Subspecies" Then [Familia].Visible = True [Subfamilia].Visible = True [Tribus].Visible = True [Subtribus].Visible = True [Genus].Visible = True [Subgenus].Visible = True [Species].Visible = True [Subspecies].Visible = True [Original Combination].Visible = True Else [Varietas].Visible = False [Type Species].Visible = False [Type Species Name].Visible = False End If If [Taxonomic Rank] = "Varietas" Then [Familia].Visible = True [Subfamilia].Visible = True [Tribus].Visible = True [Subtribus].Visible = True [Genus].Visible = True [Subgenus].Visible = True [Species].Visible = True [Subspecies].Visible = True [Varietas].Visible = True [Original Combination].Visible = True Else [Type Species].Visible = False [Type Species Name].Visible = False End If End Sub
1er : Toutes mes sélections sur la liste déroulante « Taxonomic Rank » fonctionnent, affichant ou cachant les champs prévus SAUF le champ « Subfamilia » qui reste toujours visible lorsque je retourne sur « Familia ».
2ème : Les champs « Type Species » et « Type Species Name » n’apparaissent jamais.
Voilà, en espérant pouvoir régler ce problème grâce à vous et passer ainsi aux prochaines étapes de ma bdd.
Un grand merci d’avance pour votre aide .
Mise à jour: j'ai pu régler le problème avec le champ "Synonym of" qui n'apparaissait pas. Pour le reste par contre je ne vois toujours pas mon (mes) erreur(s)...
Partager