Chers vous,
Je suis en train de créer une base de données sur Microsoft Access 2002 et me trouve confronté à un petit problème que je n'arrive pas a résoudre!
Ma base de donnée comporte un formulaire avec plusieurs groupes d'option qui permettent d'indiquer le statut (0 = pas administré, 1 = administré, 2 = a corriger) de différents tests (test1, test2…). Les valeurs des options sont enregistrées dans une table "tblTestStatut" ou chaque colonne représente un test donné.
Pratiquement, j'aimerais imposer l'activation ou non activation des boutons d'option en fonction de la valeur courante du groupe d'option auquel ils appartiennent. Pour ce faire, j'ai écrit une routine dont je vous reproduis uniquement la partie de code qui pose problème (les "…" représentant du code qui fonctionne bien):
-----------------------------------------------------------------------------------------------------------------
Private Sub Form_Current()
…
Dim Test As Field, TestStatutFrame As String
Dim OptionTestStatut0 As String, OptionTestStatut1 As String
Dim OptionTestStatut2 As String, OptionTestStatut3 As String
…
' Boucle qui permet de scanner les différentes colonnes de "tblTestStatut"
Do Until varColumnFocus > varColumnTotal - 1
Set Test = rsTestStatutTable.Fields(varColumnFocus)
TestStatutFrame = Test.Name & "Statut_Frame"
OptionTestStatut0 = "Option_" & Test.Name & "Statut_0"
OptionTestStatut1 = "Option_" & Test.Name & "Statut_1"
OptionTestStatut2 = "Option_" & Test.Name & "Statut_2"
If Me(TestStatutFrame) = "" Or Me(TestStatutFrame) = 0 Then
Me(OptionTestStatut1).Enabled = True
Me(OptionTestStatut2).Enabled = False
End If
varColumnFocus = varColumnFocus + 1
Loop
End Sub
-----------------------------------------------------------------------------------------------------------------
En l'occurrence, il semble que VBA n'accepte pas le code:
Me(variable string représentant le nom du bouton d'option).Enabled
alors qu'il accepte parfaitement le code suivant:
Me.Nom du bouton d'option.Enabled
Auriez-vous une solution ?
Merci d'avance
Configuration: Windows XP
Internet Explorer 6.0