Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=
& Worksheet.mdb
sqlstring = "DELETE FROM Table1"
conn.Execute sqlstring
conn.Close

Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source="
Worksheet.mdb

Dim Recordset1 As ADODB.Recordset
Set Recordset1 = New ADODB.Recordset

Recordset1.Open "SELECT * FROM Table1"
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Worksheet.mdb, adOpenStatic, adLockOptimistic




Myrna Larson Wrote:
Can you post the rest of your code, specifically the line(s) that ope
the
recordset?

On Fri, 5 Nov 2004 13:41:14 -0600, silvest
wrote:


Hi, i'm not too familiar with VBA in Excel, but i'll try my best.

I'm trying to run a macro that'll generate numbers and fit it into
Access DB (which i've created using another macro)

the loop seems to be running fine, but an error occurs saying
"Either
BOF or EOF is TRUE, or the current record has been deleted. Requested
operation requires a current record."
and points towards this line: "

-- Recordset1.Update <--
Recordset1.Close
Set Recordset1 = Nothin

--
silves
-----------------------------------------------------------------------
silvest's Profile: http://www.excelforum.com/member.php...fo&userid=1466
View this thread: http://www.excelforum.com/showthread.php?threadid=27574

Hi silvest:

Re read your code.

sqlstring = "DELETE FROM Table1"
conn.Execute sqlstring

You have deleted all records in Table1

Recordset1.Open "SELECT * FROM Table1",

nothing left in Table1 to select

BOF or EOF is TRUE, or the current record has been deleted.

so the error statement is correct.

A couple of reminders:
use DELETE with a WHERE to remove selected records
use the INSERT statement to add records
use UPDATE to change existing records

Also in your statement Recordset1.Update if you were updating a record
it would have to be something like

Update Table1
Set Field_whatever =' new value'
where field_whatever = ' condition '

Good Luck
TK


"silvest" wrote:


Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source="
& Worksheet.mdb
sqlstring = "DELETE FROM Table1"
conn.Execute sqlstring
conn.Close

Set conn = New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" &
Worksheet.mdb

Dim Recordset1 As ADODB.Recordset
Set Recordset1 = New ADODB.Recordset

Recordset1.Open "SELECT * FROM Table1",
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Worksheet.mdb, adOpenStatic, adLockOptimistic




Myrna Larson Wrote:
Can you post the rest of your code, specifically the line(s) that open
the
recordset?

On Fri, 5 Nov 2004 13:41:14 -0600, silvest
wrote:


Hi, i'm not too familiar with VBA in Excel, but i'll try my best.

I'm trying to run a macro that'll generate numbers and fit it into
Access DB (which i've created using another macro)

the loop seems to be running fine, but an error occurs saying:
"Either
BOF or EOF is TRUE, or the current record has been deleted. Requested
operation requires a current record."
and points towards this line: "

-- Recordset1.Update <--
Recordset1.Close
Set Recordset1 = Nothing


--
silvest
------------------------------------------------------------------------
silvest's Profile: http://www.excelforum.com/member.php...o&userid=14662
View this thread: http://www.excelforum.com/showthread...hreadid=275742