Discussion :

[louzz]

Bonjour tout le monde,

On viens de me demander de modifier une partie d'une base acces dans tout ce qui concerne "la sécurité" et la simplification pour des utilisateurs.

Les 2 demandes qui m'ont était faites sont les suivantes:
- Bloquer un bouton commande dans le formulaire d'accueil.

- Ne pas ouvrir ce formulaire pour certaines personnes mais directement un autre formulaire.


Bien sur je ne viens pas poster ici sans avoir essayer de trouver moi même des solutions.
Voici ci quoi je suis parti:


Bloquage du bouton:

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
 
Select Case CurrentUser
 
Case conCmdOuvrirFormulaireParcourir
Private Sub Form_Open(Cancel As Integer)           
*****Ces 3 premiers lignes ont été reprise d'un autre formulaire qui as pour but
 d'ouvrir un formulaire différent suivant la personne qui est log sur la base
lorsqu'on clic sur un bouton commande.******
If CurrentUser = "Admin" Then
    Me.Commande7.Enabled = True
    Else
    Me.Commande7.Visible = False
End If
End Select
End Sub

Donc le but est que ce bouton apparaisse aucune personne sauf pour les admins ou autres personnes définis.


Changement de formulaire direct pour certains utilisateurs:

Je me suis resservis des 3 premieres lignes utilisé précement pour effectuer cette conditions aussi.

Mon code utiliser dans le cas présent est le suivant:

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
 
Private Sub Form_Current()
DoCmd.Maximize
    Select Case CurrentUser
 
    Case conCmdOuvrirFormulaireParcourir
If CurrentUser = "MOURLEVAT" Or CurrentUser = "GRILLERE" Then
    Me.Commande7.Visible = True
    Else
    If CurrentUser = "Bousquet" Then
    Me.Commande7.Enabled = True
    DoCmd.OpenForm "F_essai relance"
    Else
    Me.Commande7.Visible = False
End If
End If
End Select
End Sub

Si quelqu'un à une idée merci de m'en faire part je continu à chercher en attendant.

Cordialement Louzz

[ClaudeLELOUP]

Bonjour,

Tu pourrais, par exemple entretenir 2 tables :
« BoutonAutorisé » qui contiendrait les currentusers qui ont accès au bouton
« AutreFormulaire » qui contiendrait les currentusers qu’il faut orienter vers un autre formulaire


Dans l’événement « sur ouverture » du formulaire d’accueil, le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Form_Open(Cancel As Integer)
'rendre le bouton visible
If DCount("*", "BoutonAutorisé", "Nom=currentuser") > 0 Then ' il figure dans la table des "BoutonAutorisé"
  Me.Commande7.Visible = True
Else
  Me.Commande7.Visible = False
End If
'ouvrir un autre formulaire
If DCount("*", "AutreFormulaire", "Nom=currentuser") > 0 Then ' il figure dans la table des "AutreFormulaire"
  DoCmd.OpenForm "AutreFormulaire" 'on ouvre l'autre formulaire
  DoCmd.Close acForm, Me.Name      'on ferme le formulaire d'accueil
End If
End Sub

Amicalement.