Method or data member not found

[papa yaw]

Private Sub cmdLogin_Click()
   Static count As Integer
   'Check if data is entered in the Employee Id box'
   If IsNull(Me.txtEmployeeId) Or Me.txtEmployeeId = "" Then
      MsgBox "You must enter an Employee Id.", vbOKOnly, "Required Data"
      Me.txtEmployeeId.SetFocus
      Exit Sub
   End If
   'Check to see if data is entered into the password box'
   If IsNull(Me.txtPassword) Or Me.txtPassword Then
      MsgBox "You must enter a password.", vbOKOnly, "Required Data"
      Me.txtPassword.SetFocus
      Exit Sub
   End If
   EmployeeId = Nz(DLookup("strEmployeeId", "tblEmployeeLogin", "StrEmployeeId='" & Me.txtEmployeeId & "'"), "")
   Password = Nz(DLookup("strPassword", "tblEmployeeLogin", "strPassword='" & Me.txtPassword & "'"), "")
   If Me.EmployeeId = EmployeeId And Me.txtPassword = Password Then
      MsgBox "Access Granted", vbInformation, "Logging into Database"
      DoCmd.Close
      DoCmd.OpenForm "Menu"
   Else
      MsgBox "Access Denied"
      count = count + 1
      If count = 3 Then
         MsgBox "You have failed to login on three tries", vbCritical, "Exiting...."
         DoCmd.CloseDatabase
      End If
   End If
End SubPrivate Sub Login_Click()
   Static count As Integer
   'Check if data is entered in the Employee Id box'
   If IsNull(Me.txtEmployeeId) Or Me.txtEmployeeId = "" Then
      MsgBox "You must enter an Employee Id.", vbOKOnly, "Required Data"
      Me.txtEmployeeId.SetFocus
      Exit Sub
   End If
   'Check to see if data is entered into the password box'
   If IsNull(Me.txtPassword) Or Me.txtPassword Then
      MsgBox "You must enter a password.", vbOKOnly, "Required Data"
      Me.txtPassword.SetFocus
      Exit Sub
   End If
   EmployeeId = Nz(DLookup("strEmployeeId", "tblEmployeeLogin", "StrEmployeeId='" & Me.txtEmployeeId & "'"), "")
   Password = Nz(DLookup("strPassword", "tblEmployeeLogin", "strPassword='" & Me.txtPassword & "'"), "")
   If Me.EmployeeId = EmployeeId And Me.txtPassword = Password Then
      MsgBox "Access Granted", vbInformation, "Logging into Database"
      DoCmd.Close
      DoCmd.OpenForm "Menu"
   Else
      MsgBox "Access Denied"
      count = count + 1
      If count = 3 Then
         MsgBox "You have failed to login on three tries", vbCritical, "Exiting...."
         DoCmd.CloseDatabase
      End If
   End If
End Sub

[RuralGuy]

Which line is giving you the error?

[ssanfu]

And your question/problem is????

However, looking at your code and your subject line. I can tell a few things.

* You do not have "Option Explicit" at the top of your code page. You should turn on this option. It requires you to declare variables.
You should have:

   Dim EmployeeId As String
   Dim Password As String

* You are probably getting an error at this line (in both procedures):

   If Me.EmployeeId = EmployeeId And Me.txtPassword = Password Then

I would guess you do not have a control named "EmployeeId".
Try using:

   If Me.txtEmployeeId = EmployeeId And Me.txtPassword = Password Then

"Data Member not found" means (to me) there is not a member in the controls collection named "EmployeeId"

[papa yaw]

No line is giving me an error, however when i click on the button in its form view i get a method or data member not found error.

[RuralGuy]

Can you do a Debug>Compile from the code window without error?

[ssanfu]

The top two lines of your module should be:

Option Compare Database
Option Explicit

Did you add "Option Explicit" (without quotes)

Did you change "Me.EmployeeId" to "Me.txtEmployeeId"??