Login Code Problem in Access

Question

Hello there, please someone should help me on this code problem, I am working on how to login to a form main menu using a login screen to achieve gain access,I have created a table called "Admin" and  a "login form" I created textboxes for "user name and Password" with the following codes:

Private Sub btnLogin_Click()

   Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("tblAdim", dbOpenSnapShot, DbReadOnly)

   rs.FindFirst "UserName='" & Me.txtUsername & "'"

   If rs.NoMatch = True Then

  Me.lbWrongUser.Visible = True

  Me.txtUsername.SetFocus

Exit Sub

End If

Me.lbWrongUser.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 "frmMainMenu"

  DoCmd.Close acForm, Me.Name

  End Sub

     But the exception I got is :" user defined type not defined" Please tell me what to do.

Answer 1

Please,how do I locate the VB editor

Answer 2

Is it possible that you don't have a reference set to DAO?  That would be very unusual, but just in case, in the VB Editor window, on the menu line at the top, click Tools -> References, and verify that one of the checked references at the top of the list is either "Microsoft Office <version> Access database engine Object Library" or (for Access 2003 or earlier) "Microsoft DAO 3.6 Object Library".

Answer 3

Which line is highlighted as problematic.

You may also like to review

http://www.devhut.net/2012/12/21/ms-access-login-form/

Private Sub btnLogin_Click()    ......................................... this line on yellow colour

   Dim rs As Recordset              ........................................   this line is blue highlighted

Answer 4

I have tried "Dim rs As DAO.Recordset " as you instructed, the error still persist.

Answer 5

Try Dim rs As DAO.Recordset