Thomassoft
Verenigingslid
- Lid geworden
- 6 jul 2010
- Berichten
- 130
Hoi iedereen,
Ik heb een database met daarvoor een Inlog scherm.
Het inlog scherm werkt naar behoren wanneer mijn database niet gecompileerd is, maar wanneer ik de database compileer gebeurt er niks, geen foute inlog melding of wat dan ook ?
Weten jullie wat hier aan de hand is ?
VBA code van het inlog scherm:
Alvast bedankt !
Ik heb een database met daarvoor een Inlog scherm.
Het inlog scherm werkt naar behoren wanneer mijn database niet gecompileerd is, maar wanneer ik de database compileer gebeurt er niks, geen foute inlog melding of wat dan ook ?
Weten jullie wat hier aan de hand is ?
VBA code van het inlog scherm:
Code:
Option Compare Database
Private Sub KnopCancel_Click()
DoCmd.Quit
End Sub
Private Sub knoplogin_Click()
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tblmedewerkers", 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 "frmHoofdmenu"
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
Alvast bedankt !
Laatst bewerkt: