ladyfrankie
New member
- Local time
- Today, 20:58
- Joined
- Dec 11, 2012
- Messages
- 6
Good Afternoon,
Having upgraded my Access front end to .accdb format, I discovered that Microsoft have dropped the function Workgroup Administrator and from what I have read it wasn't really a good solution to keeping a database secure.
The database I look after, has an SQL backend with a user table.
In my wisdom, I thought I would attempt to create a logon screen which would prompt a user name and password and give access accordingly or not as the case may be.
I have been able to generate code that opens a specific Form, once the right credentials have been entered.
However, I want a specific form to open depending on the group the person has been assigned to (held in the Users Table).
Private Sub btnLogin_Click()
Dim strCBOpw As String
Dim strPW As String
strCBOpw = Me.cboUserName.Column(1)
strPassword = Me.txtEnteredpw
If strCBOpw = strPW Then
MsgBox "Login Successful"
DoCmd.OpenForm "Main - Admin"
Else
MsgBox "Login Unsuccesslful"
End If
End Sub
Help? :banghead:
Having upgraded my Access front end to .accdb format, I discovered that Microsoft have dropped the function Workgroup Administrator and from what I have read it wasn't really a good solution to keeping a database secure.
The database I look after, has an SQL backend with a user table.
In my wisdom, I thought I would attempt to create a logon screen which would prompt a user name and password and give access accordingly or not as the case may be.
I have been able to generate code that opens a specific Form, once the right credentials have been entered.
However, I want a specific form to open depending on the group the person has been assigned to (held in the Users Table).
Private Sub btnLogin_Click()
Dim strCBOpw As String
Dim strPW As String
strCBOpw = Me.cboUserName.Column(1)
strPassword = Me.txtEnteredpw
If strCBOpw = strPW Then
MsgBox "Login Successful"
DoCmd.OpenForm "Main - Admin"
Else
MsgBox "Login Unsuccesslful"
End If
End Sub
Help? :banghead:
