Results 1 to 2 of 2

"No Current Record" error...not sure why it is there

  1. #1
    jgelpi16 is offline Expert
    Windows XP Access 2010 32bit
    Join Date
    Mar 2010
    Location
    Charlotte, NC
    Posts
    544

    Question "No Current Record" error...not sure why it is there

    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


  2. #2
    jgelpi16 is offline Expert
    Windows XP Access 2010 32bit
    Join Date
    Mar 2010
    Location
    Charlotte, NC
    Posts
    544
    So....As brilliant as I am I was doing rs.EOF and referencing rs1 in the body. Fixed. Thanks for the "help".

Please reply to this thread with any new information or opinions.

Similar Threads

  1. "On Current" event and ActiveX controls
    By beru777 in forum Programming
    Replies: 7
    Last Post: 12-20-2011, 10:32 AM
  2. Replies: 7
    Last Post: 01-19-2011, 10:39 AM
  3. Replies: 1
    Last Post: 09-11-2010, 08:21 AM
  4. Replies: 0
    Last Post: 05-04-2010, 06:39 AM
  5. Error "Record is Deleted"
    By koper in forum Access
    Replies: 8
    Last Post: 03-10-2009, 10:20 AM

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Tech Forums: Microsoft Office Forums