Thomassoft
Verenigingslid
- Lid geworden
- 6 jul 2010
- Berichten
- 130
Ik heb in een Access Database een login form. Hiervoor gebruik ik onderstaande VBA code voor de login button. Nu wil ik de username die door de gebruiker wordt ingevoerd bij het inloggen (als gegevens correct zijn) vast zetten als tijdelijke variable in de database voor gebruik in tabellen en formulieren. Ik kom er niet uit met de DIM functie. Iemand een iedee welke twee regels ik moet typen en waar xD.
Code:
Option Compare Database
Private Sub KnopCancel_Click()
DoCmd.Quit
End Sub
Private Sub knoplogin_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tblmedewerker", dbOpenSnapshot, dbReadOnly)
rs.FindFirst "Gebruikersnaam='" & Me.txtGebruiker & "'"
If rs.NoMatch Then
Me.lblgebruikersnaamonjuist.Visible = True
Me.txtGebruiker.SetFocus
Me.lblwachtwoordonjuist.Visible = True
Me.txtWachtwoord.SetFocus
Exit Sub
End If
Me.lblgebruikersnaamonjuist.Visible = False
If rs("Wachtwoord") <> Nz(Me.txtWachtwoord, "") Then
Me.lblwachtwoordonjuist.Visible = True
Me.txtWachtwoord.SetFocus
Exit Sub
End If
Me.lblwachtwoordonjuist.Visible = False
DoCmd.OpenForm "frmDashboard"
DoCmd.Close acForm, Me.Name
End Sub
Private Sub GebruikersnaamOnjuistStyle()
Me.lblgebruikersnaamonjuist.Visible = True
Me.txtGebruiker.BorderColor = RGB(255, 0, 0)
End Sub
Private Sub WachtwoordonjuistStyle()
Me.lblwachtwoordonjuist.Visible = True
Me.txtWachtwoord.BorderColor = RGB(255, 0, 0)
End Sub