This piece of code produces a Runtime 424 error... Object required.
sql2 = "SELECT * FROM tblocalApprovalLog " & _
"INNER JOIN dbo_empbasic ON tblocalApprovalLog.empid = dbo_empbasic.empid " & _
"WHERE (((tblocalApprovalLog.empid) <> '" & dbo_empbasic.empid & "') " & _
"AND ((tbLocalApprovalLog.dayDate) <> '" & Forms!frmApproval.txtDayDate.Value & "') " & _
"AND ((tblocalApprovalLog.weekDate) <> '" & Forms!frmApproval.txtWeekDate.Value & "')) "
Please let me know what I need to do differently, and thanks in advance.
In context:
Private Sub UpdateApprovals()
Dim sql As String
Dim sql2 As String
Dim sql3 As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim rs2 As ADODB.Recordset
Set rs2 = New ADODB.Recordset
Dim empid As String
empid = Forms!frmTimeCard.txtEmpID.Value
sql = "SELECT dbo_empbasic.empid FROM dbo_empbasic WHERE dbo_empbasic.character06 Like '" & empid & "' And dbo_empbasic.empstatus= " & "'A'" & " ORDER BY dbo_empbasic.name"
sql2 = "SELECT * FROM tblocalApprovalLog " & _
"INNER JOIN dbo_empbasic ON tblocalApprovalLog.empid = dbo_empbasic.empid " & _
"WHERE (((tblocalApprovalLog.empid) <> '" & dbo_empbasic.empid & "') " & _
"AND ((tbLocalApprovalLog.dayDate) <> '" & Forms!frmApproval.txtDayDate.Value & "') " & _
"AND ((tblocalApprovalLog.weekDate) <> '" & Forms!frmApproval.txtWeekDate.Value & "')) "
Debug.Print ("sql: " & sql)
Debug.Print ("sql2: " & sql2)
rs.Open sql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rs.MoveFirst
rs2.Open sql2, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rs2.MoveFirst
Do While Not rs.EOF
rs2.AddNew
rs2.Fields("empid") = rs.Fields("empid")
rs2.Fields("dayDate") = Forms!frmApproval.txtDayDate.Value
rs2.Fields("weekDate") = Forms!frmApproval.txtWeekDate.Value
rs2.Update
rs.MoveNext
Loop
rs2.Close
Set rs2 = Nothing
rs.Close
Set rs = Nothing
End Sub