Bonsoir, je fait mes premiers essais de module,
j'ai testé ce code sur une ouverture de formulaire d'abord uniquement avec
"pean" ça fonctionne,
ensuite j'ai voulu rajouter Or "VIESCOL" et là ça bloque, pourquoi?
Private Sub Form_Open(Cancel As Integer)
If Application.CurrentUser = "pean" Or "VIESCOL" Then
Exit Sub
Else: Me.Fiche_de_suivi.Visible = False
Me.Sanction.Visible = False
Me.bt_courrier_fiche_de_suivi.Visible = False
Me.bt_courrier_sanction.Visible = False
End If
DoCmd.Maximize
End Sub
deuxième question je voulait aussi rendre invisible certains control sur une
barre perso que j'ai créée pour tous mes formulaires poutant dans
commandbars je ne la trouve pas,est-ce quelle y est de manière codée et non
en clair (j'ai access 2000). Merci.
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
3stone
Salut,
"pean.eric"
ensuite j'ai voulu rajouter Or "VIESCOL" et là ça bloque, pourquoi? Private Sub Form_Open(Cancel As Integer) If Application.CurrentUser = "pean" Or Application.CurrentUser = "VIESCOL" Then
Exit Sub Else: Me.Fiche_de_suivi.Visible = False
Il est conseillé d'écrire...
if turlute Then tititata Else tototata end if
plus tard, à la relecture... ;-)
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/charte.htm --------------------------------------
Salut,
"pean.eric"
ensuite j'ai voulu rajouter Or "VIESCOL" et là ça bloque, pourquoi?
Private Sub Form_Open(Cancel As Integer)
If Application.CurrentUser = "pean" Or Application.CurrentUser = "VIESCOL" Then
Exit Sub
Else: Me.Fiche_de_suivi.Visible = False
Il est conseillé d'écrire...
if turlute Then
tititata
Else
tototata
end if
plus tard, à la relecture... ;-)
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------
ensuite j'ai voulu rajouter Or "VIESCOL" et là ça bloque, pourquoi? Private Sub Form_Open(Cancel As Integer) If Application.CurrentUser = "pean" Or Application.CurrentUser = "VIESCOL" Then
Exit Sub Else: Me.Fiche_de_suivi.Visible = False
Il est conseillé d'écrire...
if turlute Then tititata Else tototata end if
plus tard, à la relecture... ;-)
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/charte.htm --------------------------------------
