I have the below code running and I just received a "No Current Record" run-time error on the varResult = rs("EXCEPTION_TYPE"). If I'm running this until .EOF I don't understand why I'm getting a "No current record" error. Thanks for the help.
Code:
Do While Not rs.EOF
varResult = rs1("EXCEPTION_TYPE")
If varResult = "HSLC" Then
varEmplID = Nz(rs1("CASHIER"))
varDate = rs1("TRANS_DATE")
Call funUpdateWeeks(varEmplID, varDate)
End If
' varEmplID = DLookup("[CASHIER]", "SLAUDIT_FDT_SA_EXCP_SUMM_DIST", "[EXCEPTION_TYPE] = 'HSLC'")
' Call SumOfFields(rs![emplID])
rs1.MoveNext
Loop