Hoe te zien in VBA welke rechten een user op de database heeft

[cvandijk]

Ik heb op een MS Access database een mdw bestand aangemaakt waarin de users staan vermeld, die de database mogen gebruiken. Een aantal van deze users hebben alleen leesrechten.
In een window zijn alleen unbound-velden opgenomen. Wijziging van de inhoud leidt tot een databasewijziging. Bij users met alleen leesrechten worden i.t.t. de database-velden deze unbound-velden niet geblokkeerd. Hoe regel ik in VBA dat deze unbound-velden ook geblokkeerd worden bij users met alleen leesrechten

 

[Guus2005]

Help on Permissions

Zoek in je help naar "permissions"
die geeft je de volgende voorbeeld code

Sub AllPermissionsX()

   ' Ensure that the Microsoft Jet workgroup information 
   ' file is available.
   DBEngine.SystemDB = "system.mdw"

   Dim dbsNorthwind As Database
   Dim ctrLoop As Container

   Set dbsNorthwind = OpenDatabase("Northwind.mdb")

   ' Enumerate Containers collection and display the current 
   ' user and the permissions set for that user.
   For Each ctrLoop In dbsNorthwind.Containers
      With ctrLoop
         Debug.Print "Container: " & .Name
         Debug.Print "User: " & .UserName
         Debug.Print "  Permissions: " & .Permissions
         Debug.Print "  AllPermissions: " & _
            .AllPermissions
      End With
   Next ctrLoop

   dbsNorthwind.Close

End Sub

HTH

 

[cvandijk]

Guus,

Bedankt voor je antwoord, echter dit antwoord geeft niet de info die ik nodig heb. Ik krijg niet het verschil te zien tussen een user met Full Permmissions en een user met Read Only. Voor beide is .Permissions = 0 en .AllPermissions = <space>.

M.vr.gr.

Cees

 

[Guus2005]

Guus,

Bedankt voor je antwoord, echter dit antwoord geeft niet de info die ik nodig heb. Ik krijg niet het verschil te zien tussen een user met Full Permmissions en een user met Read Only. Voor beide is .Permissions = 0 en .AllPermissions = <space>.

M.vr.gr.

Cees

Dat hangt natuurlijk wel af van de container. En binnen die container het rapport of het form.

HTH