Rechercher : dans
Par :

Access: activation de boutons d'option

BC77, le 2 sep 2007 à 14:20:44 
 Signaler ce message aux modérateurs

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