Runtime error 3021 either eof or bof is true or the current record has been deleted"

Question

3.50/5 (2 votes)

See more:

Hi
I have written this code in Visual Basic 6 . It is giving me error "Runtime error 3021 either eof or bof is true or the current record has been deleted"

VB

Dim m_section As String
        If rs.RecordCount > 0 Then
             Do While Not rs.EOF
             If rs.EOF Then Exit Do
                rowcount = 1
                m_section = ""
                m_section = rs.Fields("section_id").Value
'                If m_section = "S03" Then Exit Do
                flxgd.Cols = flxgd.Cols + 1
                flxgd.ColWidth(flxgd.Cols - 1) = 2000
                flxgd.TextMatrix(0, flxgd.Cols - 1) = m_section

                    Do While (rs.Fields("section_id").Value) = m_section
                        If (flxgd.Cols - 1) = 1 Then
                            flxgd.TextMatrix(rowcount, 0) = DateValue(rs!s_date)
                        End If
                        flxgd.TextMatrix(rowcount, flxgd.Cols - 1) = rs.Fields("quantity").Value
                        rs.MoveNext
                        flxgd.Rows = flxgd.Rows + 1
                        flxgd.Row = flxgd.Row + 1
                        rowcount = rowcount + 1
                    Loop

                m_grdwidth = m_grdwidth + 2000
            Loop
        End If

Thanks

Posted 26-Aug-12 20:11pm

Jagjit Saini

Updated 28-Nov-12 15:44pm

Chris Maunder772.8K

v2

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

evry1falls · Answer 1 · 2012-11-28T15:40:00

VB

'Make sure your table is not empty
If RS.RecordCount = 0 Then Exit Sub
'Make sure the Absolute Position of the record's cursor is at the right position, If not then Exit Sub
'If the Absolute Position reached the last record then Exit Sub.
If RS.AbsolutePosition = Val(RS.RecordCount) Then 
Exit Sub
End If
'Navigate [MoveNext]
RS_.MoveNext
Text1.Text = RS!FieldName1
Text2.Text = RS!FieldName2

[Visit me]