Inlog code

[balzac]

Hoi hoi

Wie kan me helpen ik zit hier nu al een dag op en ik kom er niet uit.
Ik heb 2 vragen

Vraag 1
Hieronder staat een code en ik wil die verwijzen naar een formulier en niet een popupje dat je access heb, hoe verander ik dat ?

Private Sub cmdAdmin_Click()
    If DLookup("[AccessLevelID]", "tblUser", "[UserID] = " & Forms!FrmLogin!cboUser) = 2 Then
        MsgBox "You have Administrator access!", vbOKOnly
    Else
        MsgBox "You do not have Administrator access!", vbOKOnly
    End If
End Sub

Ik 4 beveiligings nivo's nu wil ik dat alle 4 de nivo's access hebben hoe verander ik dat dan

Private Sub cmdAdmin_Click()
    If DLookup("[AccessLevelID]", "tblUser", "[UserID] = " & Forms!FrmLogin!cboUser) = 2 Then
        MsgBox "You have Administrator access!", vbOKOnly
    Else
        MsgBox "You do not have Administrator access!", vbOKOnly
    End If
End Sub

 

[balzac]

Vraag 1 opgelost met

Private Sub cmdAdmin_Click()
    If DLookup("[AccessLevelID]", "tblUser", "[UserID] = " & Forms!FrmLogin!cboUser) = 2 Then
        MsgBox "You have Administrator access!", vbOKOnly
    Else
        MsgBox "You do not have Administrator access!", vbOKOnly
    End If
End Sub

Vervangen door :

Private Sub cmdAdmin_Click()
    If DLookup("[AccessLevelID]", "tblUser", "[UserID] = " & Forms!FrmLogin!cboUser) = 2 Then
        DoCmd.OpenForm "Frm_naam", vbOKOnly
    Else
        MsgBox "You do not have access!", vbOKOnly
    End If
End Sub

 

[OctaFish]

En vraag 2 snap ik niet. Overigens is het de bedoeling dat mensen die het forum lezen daar iets van opsteken; de mededeling dat je probleem is opgelost draagt weinig bij aan het verhogen van die kennis. Dus graag vermelden wat je hebt gedaan. Ik vermoed overigens dat je de code in zijn geheel hebt verwijderd?
Het voorbeeld doet overigens niks anders dan die msgbox laten zien op basis van Accesslevel 2. Ofwel heb je meer code die de echte rechten regelt, ofwel moet je daar nog aan beginnen...

 

[balzac]

Nou ik heb 4 beveiligings nivo's
Ik heb een button en er moeten 2 beveiligings nivo's access hebben maar hoe doe ik dat met deze code

Private Sub cmdALL_Click()
    If DLookup("[AccessLevelID]", "tblUser", "[UserID] = " & Forms!FrmLogin!cboUser) = 2 Then
        DoCmd.OpenForm "Frm_naam", vbOKOnly
    Else
        MsgBox "You do not have access!", vbOKOnly
    End If
End Sub

 

[OctaFish]

Je geeft geen goed antwoord op de vraag. Zoals ik al zei: de code die je laat zien geeft alleen een popupje weer met de tekst als je niet level 2 hebt. Verder wordt (zie ik nu) het formulier frm_Naam geopend. Ik neem aan dat je hier de rest van je beveiliging op regelt.
Denk aan zoiets:

Private Sub cmdALL_Click()
Dim iLevel As Integer
    iLevel = DLookup("[AccessLevelID]", "tblUser", "[UserID] = " & Forms!FrmLogin!cboUser)
    Select Case iLevel
        Case 2, 4
            DoCmd.OpenForm "Frm_naam"
        Case Else
            MsgBox "You do not have access!", vbOKOnly
    End Select
End Sub

 

[balzac]

Thanks OctaFish opgelost