Discussion :

[demichoux]

Bonsoir,

Voila j'ai une base dans la quelle il faut avoir un login est un mot de passe pour ce connecté par l'intermédiaire d'un code vba, moi ce que je voudrais c'est que les autres utilisateur ne peuvent que consulter la base est ne pas modifier les données qui apparaissent dans les formulaires. est-ce-que c'est possible de le faire ?

[marot_r]

Utilises-tu la sécurité de Access (ficher .mdw) ou ta propre procédure de sécurité ?

Si c'est ta propre procédure, une solution simple serait de créer un utilisateur 'Consultation' ou quelque chose de ce genre puis pour chaque formulaire mettre dans l'événement 'Sur Ouverture' un truc du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
if MonUtilisateur="Consultation"
      'Interdit toutes les modifications
      Me.AllowAdditions = False
      Me.AllowDeletions = False
      Me.AllowEdits = False
   else
      'Autorise les modifications
      Me.AllowAdditions = true
      Me.AllowDeletions = true
      Me.AllowEdits = true
end if

A+

[demichoux]

Bonjour marot_r,

Il me marque un message d'erreur (Erreur d'execution '424' objet requis)

ci-joint les captures d'écran du code et de l'erreur

Je ne vois pas d'ou viens le probléme.

[argyronet]

Bonjour,

Utilises plutôt l'argument OpenArgs auquel tu passes la valeur représentant le fait que ce soit en consultation seule ou en lecture écriture :

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 Const CONSULTATION_SEULE As String = "Consultation"
 
Private Sub Form_Load()
Dim vntArgs As Variant
 
    vntArgs = Me.OpenArgs
    If Not IsNull(vntArgs) Then
        Me.AllowAdditions = (vntArgs = CONSULTATION_SEULE)
        Me.AllowDeletions = (vntArgs = CONSULTATION_SEULE)
        Me.AllowEdits = (vntArgs = CONSULTATION_SEULE)
    Else
        MsgBox "Paramètre manquant requis pour ouvrir ce formulaire !", vbExclamation
        DoCmd.Close acForm, Me.Name
    End If
End Sub

Argy

[demichoux]

Bonjour argyronet,

Merci mais peut tu être un peu plus précis STP,

Faut-il que je met le code surtout mes formulaires ?

A quoi correspond cette partie du code fait-elle appel a une table ?

Code SQL :

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

Private Const CONSULTATION_SEULE As String = "Consultation"

Merci

[argyronet]

Sur tous ceux qui sont susceptibles de recevoir des données...

Dans l'idéal, tu initialises une variables publique booléenne (par ex g_blnIsReadOnly) à l'ouverture de la base en fonction du profil.
Tu appliques alors la valeur de celle-ci à l'événement visé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Option Compare Database
Option Explicit
 
Private Sub Form_Load()
    Me.AllowAdditions = Not g_blnIsReadOnly
    Me.AllowDeletions = Not g_blnIsReadOnly
    Me.AllowEdits = Not g_blnIsReadOnly
    With Me.lblReadOnlyMessage
        .Caption = "LECTURE SEULE"
        .Visible = g_blnIsReadOnly
    End With
End Sub

Argy