ACCESS 2003 VBA in the code below set.rs3, gets the error when I try using a parm for input to the where clause. If I use a number like the one comented out it works.
Thanks for your help.
Private Sub subBuildcredits()
Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim rs3 As DAO.Recordset
Dim rs4 As DAO.Recordset
Dim intClock As Integer
Dim Sql4 As String
Sql4 = "DELETE tblPerfectAttend4.* FROM tblPerfectAttend4;" ' Clear credit data filedata file
DoCmd.RunSQL Sql4 ' clear tblPerfectAttend4 before
Set db = CurrentDb
Set rs1 = db.OpenRecordset("SELECT * FROM tblPerfectAttend1")
Set rs2 = db.OpenRecordset("SELECT * FROM tblPerfectAttend2 where tblPerfectAttend2!perfect = true")
Set rs4 = db.OpenRecordset("SELECT * from tblPerfectAttend4")
rs2.MoveFirst
intClock = rs2!clock ' control for employee ID
strEmpName = rs2!Name
While Not rs2.EOF
strClock = rs2!clock ' control for employee ID
Set rs3 = db.OpenRecordset("SELECT * FROM tblPerfectAttend3 WHERE tblPerfectAttend3.MstClock=intClock")
' Set rs3 = db.OpenRecordset("SELECT * FROM tblPerfectAttend3 WHERE tblPerfectAttend3.MstClock=63")
rs3.MoveFirst
While Not rs3.EOF
rs3.MoveNext
Wend
rs3.Close
rs2.MoveNext
Wend
rs1.Close
rs2.Close
rs4.Close
End Sub