login met restricties

[dinoshop]

is het mogelijk om met acces een inlog te maken met daarop restricties
admin mag alles maar user bv geen veranderingen aan brengen in bestanden.
heb een stukje vba maar daar uit blijkt dat de restricties alleen werken op één formulier.
zou willen dat dit gewoon over het geheel van de database werkt .
hoe moet ik dit aanpassen ????

Private Sub Form_Current()

    Select Case (TempVars!strSecLvl)
        Case "Developer" ' geen restricties
            Me.pw.Enabled = True
            Me.dev.Enabled = True
            Me.admn.Enabled = True
            Me.sprvsr.Enabled = True
            Me.data.Enabled = True
            Me.reado.Enabled = True
            Me.cmdDelete.Visible = True
            Me.cmdNewRec.Visible = True
        Case "Administrator"
            If Me.NewRecord Then
                Me.pw.Enabled = True
                Me.dev.Enabled = False
                Me.admn.Enabled = True
                Me.sprvsr.Enabled = True
                Me.data.Enabled = True
                Me.reado.Enabled = True
                Me.cmdDelete.Visible = False
                Me.cmdNewRec.Visible = True
            End If
            If Me.dev.Value = -1 Then
                Me.pw.Enabled = False
                Me.dev.Enabled = False
                Me.admn.Enabled = False
                Me.sprvsr.Enabled = False
                Me.data.Enabled = False
                Me.reado.Enabled = False
                Me.cmdDelete.Visible = False
                Me.cmdNewRec.Visible = True
              Else
                Me.pw.Enabled = True
                Me.dev.Enabled = False
                Me.admn.Enabled = True
                Me.sprvsr.Enabled = True
                Me.data.Enabled = True
                Me.reado.Enabled = True
                Me.cmdDelete.Visible = False
                Me.cmdNewRec.Visible = True
            End If
        Case "Supervisor"
            If Me.NewRecord Or Me.sprvsr.Value = -1 Then
                Me.pw.Enabled = True
                Me.dev.Enabled = False
                Me.admn.Enabled = False
                Me.sprvsr.Enabled = True
                Me.data.Enabled = True
                Me.reado.Enabled = True
                Me.cmdDelete.Visible = False
                Me.cmdNewRec.Visible = False
            End If
            If Me.admn.Value = -1 Then
                Me.pw.Enabled = False
                Me.dev.Enabled = False
                Me.admn.Enabled = False
                Me.sprvsr.Enabled = False
                Me.data.Enabled = False
                Me.reado.Enabled = False
                Me.cmdDelete.Visible = False
                Me.cmdNewRec.Visible = False
              Else
                Me.pw.Enabled = True
                Me.dev.Enabled = False
                Me.admn.Enabled = False
                Me.sprvsr.Enabled = True
                Me.data.Enabled = True
                Me.reado.Enabled = True
                Me.cmdDelete.Visible = False
                Me.cmdNewRec.Visible = False
            End If
        Case Else ' geen toegang tot
            Me.UserID.Enabled = False
            Me.pw.Enabled = False
            Me.dev.Enabled = False
            Me.admn.Enabled = False
            Me.sprvsr.Enabled = False
            Me.data.Enabled = False
            Me.reado.Enabled = False
            Me.cmdDelete.Visible = False
            Me.cmdNewRec.Visible = False
    End Select
    
End Sub

Private Sub Form_Delete(Cancel As Integer)
  If Me.dev.Value = -1 Then
    MsgBox "You may not remove a developer from the application.", vbOKOnly, "Not Allowed"
    Cancel = True
  End If
End Sub

Private Sub Form_Open(Cancel As Integer)
    Call mySetSec(Me.Form.Name)
End Sub

Private Sub imgDelete_Click()
    MsgBox "You do not possess the permissions to delete this user.", vbInformation + vbOKOnly, "Insufficient Permissions"
End Sub

Private Sub imgNewCu_Click()
    MsgBox "You do not possess the permissions to add a user.", vbInformation + vbOKOnly, "Insufficient Permissions"
End Sub

Private Sub sprvsr_AfterUpdate()

    If Me.sprvsr.Value = -1 Then
        Me.data.Value = -1
        Me.reado.Value = 0
        Me.admn.Value = 0
      Else
        Me.admn.Value = 0
        Me.dev.Value = 0
    End If
  
End Sub

Private Sub sprvsr_GotFocus()

    If Me.NewRecord And IsNull(Me.UserID.Value) Then
       Me.UserID.SetFocus
    End If
 
End Sub

 

[OctaFish]

Heb je het meest recente Access hoofdstuk al bekeken in de nieuwsbrief?

 

[dinoshop]

uhe nee helaas nog niet
maar vertel

 

[OctaFish]

Niet 'vertel': maar Lees! Je kunt hem zo aanklikken in de menubalk. Beter nog: laat 'm elke maand gratis in je mail droppen

 

[dinoshop]

oke bedankt maar weer