Beste allen,
ik zit even met een dilemma waarmee ik door het bos de bomen niet meer zie.
Ik heb een inlogscherm (gebruiker en wachtwoord) gemaakt en deze werkt uitstekend.
Echter...nu komt het...ik zou graag dat wanneer een gebruiker zich aanmeld dat hij of zij naar zijn eigen formulier gaat.
Nu is het geval dat iedereen hetzelfde formulier opent, nl "Hoofdscherm". Dat wil ik dus niet. Pietje moet Hoofdscherm_Pietje openen na aanmelden en Henkie zou Hoofdscherm_Henkie moeten openen. Er zijn max drie varianten op de hoofschermen btw.
Weet iemand hier de oplossing voor?
CODE:
==================================
================================
ik zit even met een dilemma waarmee ik door het bos de bomen niet meer zie.
Ik heb een inlogscherm (gebruiker en wachtwoord) gemaakt en deze werkt uitstekend.
Echter...nu komt het...ik zou graag dat wanneer een gebruiker zich aanmeld dat hij of zij naar zijn eigen formulier gaat.
Nu is het geval dat iedereen hetzelfde formulier opent, nl "Hoofdscherm". Dat wil ik dus niet. Pietje moet Hoofdscherm_Pietje openen na aanmelden en Henkie zou Hoofdscherm_Henkie moeten openen. Er zijn max drie varianten op de hoofschermen btw.
Weet iemand hier de oplossing voor?
CODE:
==================================
Code:
Private Sub BtnAanmelden_Click()
'Controleert of er data in de Werknemer combo box is ingevoerd
If IsNull(Me.cboWerknemer) Or Me.cboWerknemer = "" Then
MsgBox "U dient een medewerker te kiezen.", vbOKOnly, "Required Data"
Me.cboWerknemer.SetFocus
Exit Sub
End If
'Controleert of data is ingevoerd in het wachtwoord tekstvlak
If IsNull(Me.txtWachtwoord) Or Me.txtWachtwoord = "" Then
MsgBox "U dient een wachtwoord in te vullen.", vbOKOnly, "Required Data"
Me.txtWachtwoord.SetFocus
Exit Sub
End If
'Controleert de waarde van het wachtwoord in Tbl_medewerker of deze past bij de gekozen waarde in combo box
If Me.txtWachtwoord.Value = DLookup("Wachtwoord", "[Tbl_Medewerker]", "[MedId]=" & Me.cboWerknemer.Value) Then
MyMedId = Me.cboWerknemer.Value
'Sluit aanmeldscherm en open hoofdmenu
DoCmd.Close acForm, "Aanmeldscherm", acSaveNo
DoCmd.OpenForm "Hoofdscherm"
Else
MsgBox "Wachtwoord niet valide. Probeert u nogmaals.", vbCritical + vbOKOnly, "Ongeldige invoer!"
Me.txtWachtwoord.SetFocus
End If
'Wanneer gebruiker het wachtwoord 3 keer onjuist invoert dan zal de database sluiten
intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 2 Then
MsgBox "U heeft geen toegang tot de database. Neem contact op met de beheerder.", vbCritical, "Toegang geweigerd!"
Application.Quit
End If
End Sub
================================
Laatst bewerkt: