MS Access comment convertir accdb a exe

**User** · 06/02/2018, 10h59

Il ne doit pas trouver le username dans la table T_Droit.

Essayez ce code et dites moi ce qui se passe :

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
Private Sub Form_Open(Cancel As Integer)
Dim User As String
 
User = Environ("username")
 
MsgBox(User)
 
   If Nz(DLookup("Droit", "T_Droit", "NomUtilisateur like '" & User & "' and Menu like 'Formulaire Factures'"), "Lecture") <> "Ecriture" Then ' Teste le contenu du champ Droit de la table des droits
    ' Si droits en lecture on mets des propriétés d'édition, de délétion et d'addition des données à Faux...
      Me.AllowEdits = False
      Me.AllowDeletions = False
      Me.AllowAdditions = False
   End If
 
End sub

Et me dire ce que ça affiche sur l'ouverture du formulaire...

Cdlt,

**jamila12** · 06/02/2018, 11h36

Bonjour,

Oui il m'affiche un MsgBox contient le nom d'utilisateur .. mais soit le droit est Lecture ou Ecriture la même résultat

**User** · 06/02/2018, 11h41

Envoyé par jamila12

Bonjour,

Oui il m'affiche un MsgBox contient le nom d'utilisateur .. mais soit le droit est Lecture ou Ecriture le même résultat

Et par défaut sans le code, quand le formulaire s'ouvre vous pouvez modifier les données ?

Pouvez-vous afficher une image de votre table T_Droit ?

Cdlt,

**jamila12** · 06/02/2018, 11h47

Envoyé par User

Et par défaut sans le code, quand le formulaire s'ouvre vous pouvez modifier les données ?

Pouvez-vous afficher une image de votre table T_Droit ?

Cdlt,

voilà

username	Menu	Droit
Saida	ModifCommande	Lecture
Ali	ModifCommande	Ecriture

et voilà le 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
Private Sub Form_Load()
 
    Dim User As String
 
    User = [TempVars]![TempID]
 
    MsgBox (User)
 
    If Nz(DLookup("Droit", "T_Droit", "username like '" & User & "' and Menu like 'FormClient'"), "Lecture" <> "Ecriture") Then '
    Me.AllowEdits = False
    Me.AllowDeletions = False
    Me.AllowAdditions = False
 
    End If
 
End Sub

**User** · 06/02/2018, 11h52

C'est Menu Like 'ModifCommande', dans le 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
Private Sub Form_Load()
 
Dim User As String
 
User = [TempVars]![TempID]
 
If Nz(DLookup("Droit", "T_Droit", "username like '" & User & "' and Menu like 'ModifCommande'"), "Lecture") <> "Ecriture" Then 
Me.AllowEdits = False
Me.AllowDeletions = False
Me.AllowAdditions = False
 
End If
 
End Sub

Cdlt,

**jamila12** · 06/02/2018, 11h58

Envoyé par User

C'est Menu Like 'ModifCommande', dans le 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
Private Sub Form_Load()
 
Dim User As String
 
User = [TempVars]![TempID]
 
If Nz(DLookup("Droit", "T_Droit", "username like '" & User & "' and Menu like 'ModifCommande'"), "Lecture" <> "Ecriture") Then '
Me.AllowEdits = False
Me.AllowDeletions = False
Me.AllowAdditions = False
 
End If
 
End Sub

Cdlt,

je l'ai modifiée mais encore la même résultat

**User** · 06/02/2018, 12h03

Avez-vous d'autres codes dans votre formulaire ?
Sans le code pouvez-vous modifier les données du formulaire ?
En dernier recours, postez votre base.

Cdlt,

**jamila12** · 06/02/2018, 12h09

Envoyé par User

Avez-vous d'autres codes dans votre formulaire ?
Sans le code pouvez-vous modifier les données du formulaire ?
En dernier recours, postez votre base.

Cdlt,

Non, il n'y a pas d'autres codes dans la formulaire .. oui sans le code je peux modifier mais avec ce code non même si le droit d'utilisateur Lecture ou Ecriture

**User** · 06/02/2018, 12h18

En fait, il me semble que vous avez modifié le code d'origine au niveau d'une parenthèse, essayez ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Load()
 
Dim User As String
 
User = [TempVars]![TempID]
 
If Nz(DLookup("Droit", "T_Droit", "username like '" & User & "' and Menu like 'ModifCommande'"), "Lecture") <> "Ecriture" Then '
Me.AllowEdits = False
Me.AllowDeletions = False
Me.AllowAdditions = False
 
End If
 
End Sub

**jamila12** · 06/02/2018, 12h29

Envoyé par User

En fait, il me semble que vous avez modifié le code d'origine au niveau d'une parenthèse, essayez ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Load()
 
Dim User As String
 
User = [TempVars]![TempID]
 
If Nz(DLookup("Droit", "T_Droit", "username like '" & User & "' and Menu like 'ModifCommande'"), "Lecture") <> "Ecriture" Then '
Me.AllowEdits = False
Me.AllowDeletions = False
Me.AllowAdditions = False
 
End If
 
End Sub

ça ne marche pas

j'ai pensée de si le droit d'utilisateur est Lecture je peux mettre les buttons de modification Enabled = true
qu'est ce que tu pense par cette solution?

**User** · 06/02/2018, 12h34

Pouvez-vous poster votre base sans les données pour que je teste ?

**jamila12** · 06/02/2018, 12h36

Envoyé par User

Pouvez-vous poster votre base sans les données pour que je teste ?

je sais pas comment l'envoyée ici, par contre je peux l'envoyée par mail

**User** · 06/02/2018, 12h46

Il faut appuyer sur "gérer les pièces jointes" en bas du message, sinon je vous ai envoyé un mp.

Cdlt,

**User** · 06/02/2018, 13h11

OK, je vous réponds sur la discussion :

Vous avez un champ Username qui est du type numérique, donc ça ne peut pas marcher.
Ensuite, il faut faire une liaison entre la table T_Droit et tblUsers sur (Id,Username) le tout dans une requête R_Droit, utiliser le champ userLogin à la place, et modifier le code comme suit :

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_Load()
Dim User As String
 
User = [TempVars]![TempID]
 
If Nz(DLookup("Droit", "R_Droit", "userlogin like '" & User & "' and menu like 'ModifCommande'"), "Lecture") <> "Ecriture" Then '
 
Me.AllowEdits = False
Me.AllowDeletions = False
Me.AllowAdditions = False
 
End If
End Sub

Cdlt,

**jamila12** · 06/02/2018, 13h32

Envoyé par User

OK, je vous réponds sur la discussion :

Vous avez un champ Username qui est du type numérique, donc ça ne peut pas marcher.
Ensuite, il faut faire une liaison entre la table T_Droit et tblUsers sur (Id,Username) le tout dans une requête R_Droit, utiliser le champ userLogin à la place, et modifier le code comme suit :

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_Load()
Dim User As String
 
User = [TempVars]![TempID]
 
If Nz(DLookup("Droit", "R_Droit", "userlogin like '" & User & "' and menu like 'ModifCommande'"), "Lecture") <> "Ecriture" Then '
 
Me.AllowEdits = False
Me.AllowDeletions = False
Me.AllowAdditions = False
 
End If
End Sub

Cdlt,

Enfiiiin Merciiiiii beaucoup .. une autre question est ce que je peux modifier le message qui affiche lorsque l'utilisateur a le droit de Lecture ?

**User** · 06/02/2018, 13h40

Modifier le message ?

Si vous parlez des macros affectées aux boutons de commande, c'est compliqué de les modifier.

Par contre, vous pouvez désactiver les boutons "ajouter.." et "sauvegarder.." en jouant sur la propriété enabled.

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
Private Sub Form_Load()
Dim User As String
 
User = [TempVars]![TempID]
 
If Nz(DLookup("Droit", "R_Droit", "userlogin like '" & User & "' and menu like 'ModifCommande'"), "Lecture") <> "Ecriture" Then '
 
Me.AllowEdits = False
Me.AllowDeletions = False
Me.AllowAdditions = False
 
Me.Commande30.enabled=false
 
End If
End Sub

Cdlt

**jamila12** · 06/02/2018, 14h24

Envoyé par User

Modifier le message ?

Si vous parlez des macros affectées aux boutons de commande, c'est compliqué de les modifier.

Par contre, vous pouvez désactiver les boutons "ajouter.." et "sauvegarder.." en jouant sur la propriété enabled.

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
Private Sub Form_Load()
Dim User As String
 
User = [TempVars]![TempID]
 
If Nz(DLookup("Droit", "R_Droit", "userlogin like '" & User & "' and menu like 'ModifCommande'"), "Lecture") <> "Ecriture" Then '
 
Me.AllowEdits = False
Me.AllowDeletions = False
Me.AllowAdditions = False
 
Me.Commande30.enabled=false
 
End If
End Sub

Cdlt

Ouii , Merci infiniment