Run-time error '3021:

[cstimart]

I am getting using ADO to push excel data into Access and get the following error upon hitting the first record/cell.

"Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record."

This is the section of code that is hanging...

    For i = 2 To Rw
        For j = 1 To 31
            If Len(Cells(i, j).Value) > 0 Then
                [COLOR=Red]rst(Cells(1, j).Value) = Cells(i, j).Value[/COLOR]
            End If
        Next j
        rst.Update
    Next i

The value in Cell A2 is 108011385 and the table/column is "adDouble"

Any ideas?

 

[ChrisOswald]

I think you need to add a new record first and specify the field you're updating. I'm assuming that the header row has the field names.

    For i = 2 To Rw
        [COLOR=red]rst.addnew[/COLOR]
        For j = 1 To 31
            If Len(Cells(i, j).Value) > 0 Then
                rst.[COLOR=red]fields[/COLOR](Cells(1, j).Value) = Cells(i, j).Value
            End If
        Next j
        rst.Update
    Next i

 

[cstimart]

D'OH!!!!

Thanks!