Help with Login Form

[Gregm66]

Hi all,

I have created a Login form that opens as soon as my database opens.
the username and the password textboxes both work they accept the username and the password but my problem is that each time I login it keeps adding my login name and password to my table.

tested 4 times then went into my table and there was my username and password 4 times, any ideas what is going
on below is the code I'm using.

Thanks for any help in advance


Appologise now I think I just posted this in the wrong place. sorry

Option Compare Database
Option Explicit


Private Sub btnLogin_Click()
    Dim rs As Recordset
   
    Set rs = CurrentDb.OpenRecordset("tblLogin", dbOpenSnapshot, dbReadOnly)
    rs.FindFirst "UserName='" & Me.txtUsername & "'"
    
    If rs.NoMatch = True Then
        Me.lblWronguser.Visible = True
        Me.txtUsername.SetFocus
    Exit Sub
End If
Me.lblWronguser.Visible = False


    If rs!Password <> Me.txtPassword Then
        Me.lblWrongPass.Visible = True
        Me.txtPassword.SetFocus
    Exit Sub
End If
Me.lblWrongPass.Visible = False
DoCmd.OpenForm "frmNavigation"
DoCmd.Close acForm, Me.Name
End Sub

[ItsMe]

What are you using to determine the value of Me.txtUsername?

[aytee111]

Is tblLogin the record source for this form? That might be where the records are being added each time you open the form.

[Gregm66]

hi and thankyou for your replies,
Yes the table called tblLogin is where the username and passwords are stored.
and I'm not sure ItsMe what you mean by determining the value of me.txtusername. in its properties it's control source is in tblLogin, field called UserName. same with the password its control source is password. The form its self is set to control source tblLogin.

[ItsMe]

the point I am trying to get at is you need to locate a record within the table that matches, Joe, Sue, or Bob. What your code seems to be doing is matching a record in the table that matches the Current Record of the Form's Recordset.

So, if you open the bound form and the record it opens to is Joe, your code is doing something like ...

Open recordset of table

Find first record that = Joe

If record no match then
Deal with it and exit sub

hide lblWronguser

If the Joe's password <> txtUsername
Then deal with it and exit sub

Show lblWrongPass
Allow access to other form

[aytee111]

Removing the table as the form's record source will stop the duplicate records being added. Or else do it ItsMe's method.

[Gregm66]

thanks for the reply ItsMe,
ill look over everything ive done and double check.
and if I remove the record source from the form aytee111 I can no longer enter any data into the textboxes
so I just have to go over it all and find the problem I guess

[aytee111]

Your textboxes will be known as "unbound" textboxes, i.e. not bound to a record source, with empty Control Source property. In your code above you are validating the entries thru the back-end, not using the form for verification. It would be simpler to make it an unbound form and control the reading of the tables thru your code (as you have it above).

[Gregm66]

hi aytee111

I removed sources from my textboxes and my form, my textboxes are unbound, the problem I have is that when I got to form view I can click inside the textboxes but I can not type anything into these boxes.

[ItsMe]

Remove the RecordSource from the form. Add a combobox to replace the UserName textbox control. Use the table as the RowSource of the combo. Use the correct column to Store the Value For Later Use.

Use the Value property of your combo in your VBA

rs.FindFirst "UserName='" & Me.ComboboxName.Value & "'"

That should be a start to fix a few problems.

[Gregm66]

Hi ItsMe

Thanks for you reply and input I checked all of my properties for my form, the following settings were all set to no I changed to yes and now the form works as it should.

Data Entry was no
Allow additions was no
Allow deletions was no
Allow edits was no