Restrict multiple logins with single username at sametime in ms access

[yuvang]

Hi all

I have a mdb with login name and password form. There are several login names, i defined through a table "User_login". Here the problem is at a time a single user is able to login in multible system, which i want to restrict.

here is the code which i i am using for login check.....

Private Sub cmblogin_Click()
 
Static intlogonattempts As Integer
 
'Check to see if data is entered into the UserName combo box
 
    If IsNull(Me.cmbname) Or Me.cmbname = "" Then
      MsgBox "You must enter a User Name.", vbOKOnly, "Required Data"
        Me.cmbname.SetFocus
        Exit Sub
    End If
 
    'Check to see if data is entered into the password box
 
    If IsNull(Me.cmbpass) Or Me.cmbpass = "" Then
      MsgBox "You must enter a Password.", vbOKOnly, "Required Data"
        Me.cmbpass.SetFocus
        Exit Sub
    End If
 
    'Check value of password in tblEmployees to see if this
    'matches value chosen in combo box
 
 
 
        If Me.cmbpass.Value = DLookup("Password_login", "user_login", "[id]=" & Me.cmbname.Value) Then
 
 
            emp_name = Me.cmbname.Value
 
            intlogonattempts = 0
 
            'Close logon form and open splash screen
 
            cmbname.SetFocus
            Me.Visible = False
            DoCmd.OpenForm "As Laid Backlog Digitization Database"
 
 
        Else
          intlogonattempts = intlogonattempts + 1
 
          If intlogonattempts > 3 Then
            MsgBox "Sorry! You do not have access to this database.Please contact admin.", vbCritical, "Restricted Access!"
            Application.Quit
 
         End If
 
          MsgBox "Password Invalid. Please Try Again", vbOKOnly, "Invalid Entry!"
          Me.cmbpass.SetFocus
 
          End If          
End Sub
 

can anyone please help on this..........


Regards
yuvan

<E-mail address removed>

[NeoPa]

You don't say :
What problem you're having.
What error messages you're getting.
What line the error message is on.

[NeoPa]

Assuming [cmbName] holds a string value, try changing line #26 of your code to :

If Me.cmbPass = DLookup("Password_login", "user_login", "[id]='" & Me.cmbname & "'") Then

[NeoPa]

To ensure the same user only logs in once at a time, add a field into your [User_Login] table that indicates if the user is currently logged in. You will need to set it to TRUE after a successful login, and test for that too when checking the name and password.

You will also need a facility to reset any or all names in case the system crashes at any point.

[yuvang]

Hi Neopa,

My problem is a person with the login name "A" is able to login into "N" number of systems at a time. i want to restrict that through VB code. Can you please help on this...........

[NeoPa]

You don't say :
What problem you're having.
What error messages you're getting.
What line the error message is on.

You answer none of my questions. You don't respond to (ignore) the help I've already posted. Now you want me to start again from scratch.

I understand your basic problem. I need you to respond to my posts before I spend any more time on this. Is that too much to ask? It is your question after all.

[yuvang]

Sorry.... I was out of internet facility for one week at the time of your reply. So that i couldn't able to response to you in right time................

[NeoPa]

Timing is not a problem, but when you do reply, I still need you to answer the questions. Without all those answers I am unable to help further.

[yuvang]

What problem you're having.

Problem that is a person is able to login in several systems by using same login. That I want to restrict..........

What error messages you're getting.

No error messages.

What line the error message is on

All the lines are working fine. I gave th code just for your reference.

[NeoPa]

Thank you. Now we can progress.

The next question then (in response to the information) is what did you think about post #4. It seems to me this may well be a solution to the problem you've described.

[yuvang]

i too thing that will work. But i don't know how to do that..........

[NeoPa]

OK Let's take this step by step.

Do you have a table of accounts that can be used to log on? What is its name?

[yuvang]

Table name is "user_login"

[NeoPa]

Sorry, that info was already available from the OP (Original Post). Never mind.

The next question is :
What are the names of all the fields you have in that table now?

This will work much better if you can post the meta-data (info about the layout / structure) of the table in the same way as I use in my example. Click on the Reply button and you will have access to all the codes I've used. PK & FK stand for Primary Key & Foreign Key respectively. Never use TABs in this as the layout gets mucked up. Use spaces and all is fine.
Table Name=[User_Login]

Field           Type      IndexInfo
UserID          AutoNumber    PK
Account         String      Unique
Password        String
FullName        String
InUse           Boolean

This example is a basic layout and includes the items you will need ([FullName] not ABSOLUTELY necessary). You need to post what you have in your table in this layout.

[yuvang]

Hi

here is my table detail

Table Name=[User_Login]

Field             Type      IndexInfo
ID                Number        PK
EMP_NAME          String      Unique
Password_Login    String
InUse             Boolean

[NeoPa]

That looks sensible enough.

Looking at your code in the OP (Original Post) I can't see how you're trying to get this to work. You have a Click event procedure for a ComboBox control (cmbLogin) :S I would have expected a Command Button type control (cmd...).

Can you clarify which controls you have on your form for me please, and how a user logs in.

[yuvang]

Yes, your guess is correct. The command button is named as "cmblogin".

[NeoPa]

Can you clarify which controls you have on your form for me please, and how a user logs in.

Please answer the questions so that we can continue.