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

ok! I have just done that

Answer 2

I have seen it but ms access 15.0 object library is already checked

That's not the library in question.  Yes, that library should be checked, but also the one called "Microsoft Office 15.0 Access database engine Object Library".

Answer 3

I have seen it but ms access 15.0 object library is already checked

Answer 4

When you are writing code, such as you posted, you are in the VB (Visual Basic) Editor.

Answer 5

I have seen the VB Editor