Discussion :

[lefabe]

Bonjour,

Je cherche à activer/désactiver des boutons de commande dans un formulaire sur base de l'utilisateur qui est connecté à la base de donnée. Le formulaire "Menu" est chargé automatiquement à l'ouverture de la db via une macro autoexec. Un champs Text affiche le nom de l'utilisateur "Text76=UserName()" sur base du login windows dans le formulaire Menu. Je voudrais utiliser le contenu du champs Text76 via un SelectCase pour activer/désactiver des boutons de commande dans le formulaire Menu.

Voici le début de code...

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
Sub Form_Load()
 
       Dim user As String
       user = Forms!Menu!Text76
 
       Select Case user
 
            Case Paul
 
            Me.Command57.Enabled = False
            Me.Command56.Enabled = False
            Me.Command62.Enabled = False
 
 
 
        End Select
 
 
 
End Sub

Merci pour votre aide

[argyronet]

Bonjour,

Si tu compares user qui est un String à Paul qui est une variable vide (je suppose que Option Explicit n'est pas précisé en en-tête), il est normal que ça marche pas.

Il faut que ton Case soit enquoté...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Case "Paul"

Par ailleur, je t'invite fortement à lire ce tutoriel car si ton projet reste expérimental, ça va..., et sinon, tu t'exposeras vite à des difficultés de maintenance et de compréhesion de ton propre code.

Argy

[lefabe]

Merci pour ta rapidité ! J'essaye ça demain au boulot et je vais lire ce tuto aussi.

Encore merci