There are several possible approaches to this problem. The best, or
feasible, one will depend on how the application works after the switchboard
form is opened, and perhaps on whether the application is split, with each
user having their own front-end and a shared back-end datafile. [Note: I'm
assuming from your current code that you are not using Access's built-in
user-level security.]
First off, I suggest using a function based on whether the manager
switchboard was opened, which will work providing the switchboard form is
not closed until the user ends the session. The switchboard can be hidden
when other forms are opened form it (that's a very common practice), and
this will still work. Copy the following into a module, and save the
module - you must give it a different name to that of this function!
Public Function IsManager() As Boolean
Dim i As Integer
IsManager = False
For i = 0 To Forms().Count - 1
If Forms(i).Name = "frmManagerSwitchboard" Then IsManager = True
Next i
End Function
This returns True or False, depending on whether the frmManagerSwitchboard
is open or not; it uses the fact that a form which is not open is not a
member of the Forms collection. This function will allow the statements I
posted previously to work.
If this doesn't work, post again and we'll explore further alternatives.
HTH,
Rob
dcash45 said:
I have a user type table thats keeps the usertypeId & usertypename. I have
another that call login which links the userID & the usertypeID together.
So
in the form login the code I use is .....
Sub procLogin(UserName As String, Pwd As String)
On Error GoTo LoginErrors
' Declare variables
Dim dbsConnection As Database
Dim rsUser As Recordset
Dim dbstring As String
Dim sqlString As String
Dim thisUser As String
Dim temp As Integer
' DFD 1.3 (DBU1)
' Connect to database by calling a module procedure.
Set dbsConnection = procConnectToDatabase()
' Define and open the table
sqlString = "tblLogin"
Set rsUser = dbsConnection.OpenRecordset(sqlString)
sqlString = "SELECT tblLogin.UserID, tblLogin.Username,
tblLogin.Password, tblLogin.UserTypeID" & _
" FROM tblLogin" & _
" WHERE (((tblLogin.Username)='" & UserName & "') AND
((tblLogin.Password)='" & Pwd & "'));"
' Send the SQL Query to the database connection
Set rsUser = dbsConnection.OpenRecordset(sqlString)
' if eof then user was found with that username/ password
If rsUser.EOF Then
temp = MsgBox("Invalid Login.", vbExclamation, "Can't Log In")
' DFD 1.5
' close recordsets and database connection
rsUser.Close
'Call procCloseDatabase(dbsConnection)
Exit Sub
'DFD 1.6
Else
' User found so find out what type they are and display appropriate GUI
UserTypeID = rsUser!UserTypeID
' Close Login GUI
DoCmd.Close
Select Case UserTypeID
Case 1: ' Manager logged in, open Manager Switchboard GUI
DoCmd.OpenForm "frmManagerSwitchboard", , , , , , rsUser!userID
Case 2: ' Employee switchboard Logged In, open Employee switchboard GUI
DoCmd.OpenForm "frmEmployeeSwitchboard", , , , , ,
rsUser!userID
Case 3: ' Customer switchboard Logged In, open Customer switchboard GUI
DoCmd.OpenForm "frmCustomerSwitchboard", , , , , ,
rsUser!userID
Case Else: procDisplayMessage ("You are not authorized to login")
End Select
so now after the user is login a switchboard display depending the type of
user and in this switchboard I have buttons that opening up other forms.
Now
the manager switcbhoard and the employee switchboard is different but the
2
have a button that opens up the form states...now heres where I get lost.
I
dont know how to enable or disenable the buttons base on the user.
