Ok this is starting to get to me. I am trying to set up some text boxes that will basically run a query on the fly. Anyway I keep getting an error that says Sub or Function no defined, I am not exactly sure as to what I am missing in my code. Her is my code.
Private Sub cmdFindNext_Click()
Dim strQry As String
Dim rsAsk As Recordset
Dim dbMe As DAO.Database
Set dbMe = currentdb()
strQry = “SELECT * FROM TotalTimeOff WHERE [TotalTimeOff]![TMfirstname] = ” ‘” & QMFN & “‘” AND [TotalTimeOff]![TMlastname] = “‘” & QMLN & “‘””
Set rsAsk = dbMe.OpenRecordset(strQry)
rsAsk.MoveFirst
If Not rsAsk.EOF Then
rsAsk.MoveNext
End If
End Sub
Attatched is the picture of the error and then the lines that are highlighted in result of. Any help is appreciated.
One thing I would point out, though. If you have an ADO reference set in VB 6, you need to declare your recordset variable as DAO.Recordset, the same way you did the database variable. ADO also has a recordset object but its properties and methods are different, and that can cause unexpected error messages.
