Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access cacher un bouton de commande si pas un tel utilisateur

cacher un bouton de commande si pas un tel utilisateur

2 réponses
Avatar
...Patrick
Bonjour,
ci-dessous j'essaie de chacher le bouton b_Import si le pc est "portable"
mais ça ne vas pas :-(
Qui sait me donner une explication ?
Merci

Private Sub Form_Open(Cancel As Integer)
Dim Muser, Mus
Mus = CurrentUser
Muser = Environ$("Username")
MsgBox (Mus)
MsgBox (Muser)
If (Muser = "portable") Then
Me![b_Import].SetFocus
Me![b_Import].Visible = True
Else
Me![b_Import].Visible = False
End If
DoCmd.Maximize
End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Eric
Bonjour,

Au premier coup d'oeil, le test devrait être :
If Muser <> "portable" Then
...

Bonjour,
ci-dessous j'essaie de chacher le bouton b_Import si le pc est
"portable" mais ça ne vas pas :-(
Qui sait me donner une explication ?
Merci

Private Sub Form_Open(Cancel As Integer)
Dim Muser, Mus
Mus = CurrentUser
Muser = Environ$("Username")
MsgBox (Mus)
MsgBox (Muser)
If (Muser = "portable") Then
Me![b_Import].SetFocus
Me![b_Import].Visible = True
Else
Me![b_Import].Visible = False
End If
DoCmd.Maximize
End Sub



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
...Patrick
ok Eric

merci j'ai trouvé
c'est le focus sur le champ qui empeche celui-ci d'entre mis en invisible.


Merci
Bonne soirée

"Eric" a écrit dans le message de news:

Bonjour,

Au premier coup d'oeil, le test devrait être :
If Muser <> "portable" Then
...

Bonjour,
ci-dessous j'essaie de chacher le bouton b_Import si le pc est "portable"
mais ça ne vas pas :-(
Qui sait me donner une explication ?
Merci

Private Sub Form_Open(Cancel As Integer)
Dim Muser, Mus
Mus = CurrentUser
Muser = Environ$("Username")
MsgBox (Mus)
MsgBox (Muser)
If (Muser = "portable") Then
Me![b_Import].SetFocus
Me![b_Import].Visible = True
Else
Me![b_Import].Visible = False
End If
DoCmd.Maximize
End Sub



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr