Hey, I'm trying to create a Login for my database. I have 3 "ranks" in a table. Admin, Editor, and Sale.
I'm designing a home "form" for each of them (dont tell me to do the swichboards, i'm just being difficult and I JUST got the forms finished)
When you put in the 2 txt boxes at "login" Username and password (they are not refrenced to anything) I wrote a simple VB macro to select wich "Start Page" to open
Private Sub Login_Click()
if
frmLogin.Login = tblemployee.EmployeeID And frmLogin.Password = tblemployee.Password And frmLogin.Editor
open frmInput
elseif
frmLogin.Login = tblemployee.EmployeeID And tfrmLogin.Password = tblemployee.Password And frmLogin.Editorthen
open frmAdmin
elseif
frmLogin.Login = tblemployee.EmployeeID And frmLogin.Password = tblemployee.Password And frmLogin.Editor
then open frmSales
End sub
........................
I'm wayyyy off arent I?
LOL Let me know how I can fix this please, I appreciate it!
I'm designing a home "form" for each of them (dont tell me to do the swichboards, i'm just being difficult and I JUST got the forms finished)
When you put in the 2 txt boxes at "login" Username and password (they are not refrenced to anything) I wrote a simple VB macro to select wich "Start Page" to open
Private Sub Login_Click()
if
frmLogin.Login = tblemployee.EmployeeID And frmLogin.Password = tblemployee.Password And frmLogin.Editor
open frmInput
elseif
frmLogin.Login = tblemployee.EmployeeID And tfrmLogin.Password = tblemployee.Password And frmLogin.Editorthen
open frmAdmin
elseif
frmLogin.Login = tblemployee.EmployeeID And frmLogin.Password = tblemployee.Password And frmLogin.Editor
then open frmSales
End sub
........................
I'm wayyyy off arent I?
LOL Let me know how I can fix this please, I appreciate it!