Ok. I am sure that there are tons for this request.

1. I am trying to force that once you log on to the data base initially that you have to change the password. I currently have a table that has a generic password but want them to change it after the initial log on as I am sure that many will not want to change their password if they don't have to. I have created a change password form so they will be able to change their password any time.

Here is the code currently which is working other than not changing the password.

Private Sub Login_Click()
On Error GoTo Err_Login_Click
Dim varEvent As Variant
Dim stDocName As String

varEvent = DLookup("[UserType]", "[ID_PW_Check]") I have been told I need to do some changes her but unsure.

If Not IsNull(varEvent) Then

stDocName = "Switchboard" & varEvent
DoCmd.Close acForm, "Login", acSaveNo
DoCmd.OpenForm stDocName
Else
MsgBox "User name not found or password is incorrect", vbInformation, "Warning"
End If
Exit_Login_Click:
Exit Sub

Err_Login_Click:
MsgBox Err.Description
Resume Exit_Login_Click
End Sub

2. I also have a form that I want it to auto populate the user ID and and name once they have logged into the data base mentioned above. As the form stands now they log in and then when the get tot the form needed. they get asked again to log in severl more times. here is what is in there currently for the name and one similar being used for the ID.

SELECT [User Activity User].[UserName] FROM [User Activity User] ORDER BY [UserName];


Thanks in advance.