knoppen verbergen bij geen autorisatie

[galletje]

Beste Forum gebruikers

Mijn database voor de registratie is bijna klaar, echter zit ik nog met 1 uitdaging.

Ik wil graag als een gebruiker inlogt(data uit Tabel) met een gebruikersnaam en wachtwoord dan de juiste knoppen zichtbaar/ of drukbaar worden.
Voor het inloggen gebruik ik van internet gegrepen inlog VBA code hieronder deze code.

Hoe moet ik deze aanpassen zodat de juiste buttons zichtbaar/drukbaar worden worden.

Hieronder de inlog code voor het inloggen in database.

Private Sub cmdOK_Click()
    
    Dim iResult As Integer
    Dim sMsg As String
    
    If Me.txtUsername = "" Or IsNull(Me.txtUsername) Then
        sMsg = "AUB voer juiste gebruikersnaam in."
        MsgBox sMsg, vbCritical, "Gebruiker niet geldig."
        Exit Sub
    End If
    
    If Me.txtPassword = "" Or IsNull(Me.txtPassword) Then
        sMsg = "AUB voer juiste paswoord in."
        MsgBox sMsg, vbCritical, "Ongeldig paswoord."
        Exit Sub
    End If
    
    oUser.Username = Me.txtUsername
    oUser.Password = Me.txtPassword
    
    iResult = oUser.Authenticate
    
    If iResult <= -1 Then
        
        ' There was an error
        sMsg = "Er is een fout opgetreden tijdens het inlogen. De fout was: " & vbCr & vbLf & vbCr & vbLf & oUser.ErrDescription
        MsgBox sMsg, vbCritical, "Login Error."
        LogIt 1, "Logon", "Logon FAILED: " & oUser.Username
    Else
        LogIt 1, "Logon", "Logon SUCCESS: " & oUser.Username
    End If
    
    DoCmd.Close acForm, "frmLogin"
    DoCmd.OpenForm "Frm_userselectie", acNormal, , , acFormReadOnly, acDialog
End Sub

Aan elke formulier hangt dan in de open argument onderstaande code.

Private Sub menu6_Click()
Dim sMsg As String
    
    ' Are you allowed?
    CheckLogin
    If Not oUser.IsMember("veiligheidsmedewerker") Then
        sMsg = "U heeft geen toegang tot deze functie."
        MsgBox sMsg, vbCritical, "Onvoldoende rechten."
        LogIt 1, "frm_admin.Form_Load", "User " & oUser.Username & " Heeft geprobeerd in het menu Admin in te loggen, dit is niet gelukt wegens verkeerde rechten."
        'DoCmd.Close acForm, "formTemplate", acSaveNo
        Exit Sub
    End If
    DoCmd.Close acForm, "frm_userselectie", acSaveYes
    DoCmd.OpenForm "frm_veiligheid", acNormal, , , acFormEdit, acDialog
End Sub

Wie kan me hierbij helpen.


TYhankxxx

John

 

[OctaFish]

Tip 1: maak van Me.txtUsername een keuzelijst met invoervak. Waarom zou je gebruikers een naam laten intypen (met kans op typefouten) terwijl het niet zo makkelijk (zo niet makkelijker) is om ze te laten kiezen? Je hebt de code duidelijk niet bij HelpMij vandaan, want onze voorbeelden maken allemaal gebruik van keuzelijsten . En ja, dan had je ook gelijk het antwoord op je vraag gevonden, want die zit daar ook in verwerkt.
De truc is overigens dat je bij het laden/openen van het formulier de status van de ingelogde gebruiker checkt met zijn/haar rechten, en op grond daarvan met een SELECT CASE knoppen aan of uit zet. Maar ik zou zeggen: zoek het voorbeeldje er even bij, dan kom je er wel uit.

 

[galletje]

Re buttons

Hey Michel,

Thanks voor je bericht en moet idd bekennen dat de code niet bij dit forum wegkomt.. Echter heb ik wel gezocht op inlog formulieren en buttons verbergen maar ook nu kan ik niks vinden.
Misschien gebruik ik net de verkeerde zoek woorden maar. Dus pretty please kan je me op weg helpen hiermee waar ik dit stukje code kan vinden.

grt

John

 

[OctaFish]

En toch staat er genoeg. Hier bijvoorbeeld. En hier staat de database die ik meestal als voorbeeld gebruik.

 

[galletje]

Re

Michel.

Beetje laat maar is opgelost thanks.

John