I have a password form that prompts the user to input their user name and password before they can log in. I need the vba code that checks the expiry date of the user's account before the user can login

Regards

__________________
Brendan Bartley

How are you checking the user name and password?

How do you determine the expiry date?

__________________
Boyd Trimmell aka HiTechCoach (.com)
Microsoft Access MVP Alumni 2010-2015

I am using the following code when user types their user name I now need that when this is done is checks an expiry date and if the accont is locked

Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Dim prm As DAO.Parameter
Dim rst As DAO.Recordset
Dim sSQL As String
sSQL = "SELECT * FROM tblAssociate WHERE UserID = '" & Me.txtUser & "'"

Set dbs = CurrentDb()
Set qdf = dbs.CreateQueryDef("", sSQL)
For Each prm In qdf.Parameters
prm.Value = Eval(prm.Name)
Next prm
Set rst = qdf.OpenRecordset

Me.txtPassword = rst!Password

'clean up
rst.Close
Set rst = Nothing
qdf.Close
Set qdf = Nothing
Set dbs = Nothing

__________________
Brendan Bartley

Is this information stored in the tblAssociate table?

What expiry information is stored?

What account locked status is stored?

__________________
Boyd Trimmell aka HiTechCoach (.com)
Microsoft Access MVP Alumni 2010-2015

all fields are located in the tblassociate table

__________________
Brendan Bartley

You are not giving me much to work with here.

This only tells me the table name not the field name you are retrieving.

Since I have not seen your database and you have not given an details on the table structure I have no clue what is stored in your tables. I have no idea what fields you have in the table tblAssociate. Or what type of data is store in each field.

You may have all the information you need in the rst recordset.

You can reference the other fields like you do the password using rst!Password.


How exactly do you determine expiry date?

How exactly do you determine account lock status?

__________________
Boyd Trimmell aka HiTechCoach (.com)
Microsoft Access MVP Alumni 2010-2015