Problème en VBA

Version imprimable

Problème en VBA

Bonjour,

Dans le code ci-dessous, je voudrais sélectionner la valeur d'un champ ("user") depuis une table ("T_current_user") afin que lorsque mon formulaire "Menu" se charge certains boutons (ex:"Command288") soient désactivés et ce en fonction du n° de "user".

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
Sub Form_Load()
 
       Dim user As Integer
 
 
       Select Case User
 
            Case 5, 17, 18
 
            Me.Command288.Enabled = False
            Me.Command299.Enabled = False
            Me.Command287.Enabled = False
 
            Case 1, 2, 3, 4, 6, 7, 8, 9, 10, 11, 12, 13, 15, 16
 
            Me.Command288.Enabled = False
            Me.Command269.Enabled = False
            Me.Command285.Enabled = False
            Me.Command295.Enabled = False
            Me.Command299.Enabled = False
 
        End Select
 
End Sub

Merci d'avance.

09/11/2012, 18h48
marot_r

Code:

Dim user As Integer: user=dfirst("user","T_current_user")

Je te recommande de changer les noms de tes boutons pour quelque chose de plus signifiant (ex : btnOuvrirFormClient).

Aussi si tes usagers sont amenés à changer je te recommande de gérer les accès dans une table cela évitera que tu ai à modifier ton application à chaque embauche, départ ou changement d'affectation.

Si tu veux des détails sur cela n'hésite pas à demander et il y aussi plusieurs discussions qui parlent de ce sujet.

A+
13/11/2012, 10h41
lefabe

Merci ça fonctionne parfaitement ! Au plaisir de vous lire.