Start by creating a table with fields for the user's name and their Windows
login name and some code that defines their rights.
You can use this code to find the user's Windows login name:
***************************************
Private Declare Function GetUserNameA Lib "Advapi32" (ByVal strN As String,
ByRef intN As Long) As Long
Public Function GetUserID()
Dim Buffer As String * 10
Dim Length As Long
Dim lngResult As Long, UserId As String
Length = 10
lngResult = GetUserNameA(Buffer, Length)
GetUserID = Left(Buffer, Length - 1)
End Function
********************************
Put the code in a standard module
Then just write the code in the Load event of your form's to dermine who is
logged on ans what their rights are. The set the properties of the form
objects to allow the users only the rights they have. For example, if you
want the user to be read only, set all the controls to .Enabled = False and
..Locked = True
They can the look at stuff, but can't change it.