[AC-2003] Devalidation aléatoire de boutons dans un formulaire ?

[Jeanpierre71]

Bonjour

Je dois avoir la cerise il m'arrive toujours des trucs pas clair.
depuis le menu principale de ma base qui est constitué.
1) d'une partie saisie nom, acces --> Niveau habilitation qui est obligatoire car tous les boutons de ce formulaire sont devalidé ( en gris / Propriéte Enabled = false) aprés la saisie tout les boutons (8) deviennent accéssibles aux différents sous menu ratachés. La saisie a donné un niveau d'habilitation

2) Dans ces sous menus je vais gérer les accés en fonction du niveau habilitation comme dans le menu principal (ou ca marche trés bien)

Code :

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
Private Sub Form_Open(Cancel As Integer) ' Sur ouverture du formulaire d'accés 
 NiveauHabilit = 0                               ' habilitation visiteur par défaut la saisie va modifier
  GestionBouton (True)
End Sub
 
Public Sub GestionBouton(Sans As Boolean)       ' Active et desactive les boutons du menu général
Select Case Sans
 Case Is = True
    BtAccesMenuDocu.Enabled = False              ' Devalidation boutons
    BtAccesGestionFabricants.Enabled = False
    AccesVariateurs.Enabled = False
    AccesMenuReduct.Enabled = False
    AccesMenuStockElec.Enabled = False
    AccesMenuMoteur.Enabled = False
    AccesMenuSchema.Enabled = False
 
 Case Is = False                                           ' Validation boutons
    BtAccesMenuDocu.Enabled = True
    BtAccesGestionFabricants.Enabled = True
    AccesVariateurs.Enabled = True
    AccesMenuReduct.Enabled = True
    AccesMenuStockElec.Enabled = True
    AccesMenuMoteur.Enabled = True
    AccesMenuSchema.Enabled = True
 End Select
End Sub

Cette technique marche bien avec TOUS les boutons
_______________________________________________________________

Première essai dans un sous menu (le bouton AccesVariateurs ci-dessus)
on ouvre un 2eme formulaire avec d'autres boutons et là c'est la science fiction

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_Open(Cancel As Integer)        ' sur ouverture du formulaire
  TestAcces
End Sub
 
Private Sub TestAcces()
Select Case NiveauHabilit
  Case Is = 0                                   ' Niveau d'accés invité
   Me.BtAccesSaisieVariateur.Enabled = False
 ' Me.BtConsulterVariateurs.Enabled = False   
   Me.BtConsulterTVariateur.Enabled = False
 ' Me.BtMenuRecherche.Enableb = False 
 Case Else
   ' rien
 End Select
End Sub

Pour certains boutons cela marche, pour d'autre ceux que j'ai mis en commentaires je clac un défaut :
erreur de compilation , membre de méthode ou de données introuvable.
Moi pas comprendre j'ai vérifier 25 fois la syntaxe du nom des boutons, Access serait-il raciste ? Pour les 2 autres boutons qui ne sont pas en commentaires il sont bien grisés et inactif ??
Merci au gourou pour la solution, si solution il y a

Jean Pierre