Error 91, need help debugging this

[clickaccess]

I am attempting to populate the table [numbers] with this output. I keep getting Error 91, "Object variable, or with block variable not set" Unable to figure this out.

Pls help
Click


CODE>


Private Sub Command0_Click()

Dim ThisDB As DAO.Database
Dim v As Integer
Dim w As Integer
Dim x As Integer

Dim numbers As DAO.Recordset
Dim rstnumbers As DAO.Recordset

Dim rstnum As DAO.Recordset


For v = 1 To 20
For w = 30 To 60
For x = 70 To 100


Set rstnumbers = ThisDB.OpenRecordset("numbers")

With rstnum
.AddNew
.Fields("1") = v
.Fields("2") = w
.Fields("3") = x
.Update
.Close
End With


Next
Next
Next



End Sub

Email Service Free from Banner ads.

http://www.SacMail.com

 

[KenReay]

See modified code below

Private Sub Command0_Click()

Dim ThisDB As DAO.Database
Dim v As Integer
Dim w As Integer
Dim x As Integer

Dim numbers As DAO.Recordset
Dim rstnumbers As DAO.Recordset

Dim rstnum As DAO.Recordset

SET ThisDb as CurrentDB() ' <****
For v = 1 To 20
For w = 30 To 60
For x = 70 To 100


Set rstnumbers = ThisDB.OpenRecordset("numbers")

With rstnum
.AddNew
.Fields("1") = v
.Fields("2") = w
.Fields("3") = x
.Update
.Close
End With


Next
Next
Next

SET ThisDB = Nothing ' <*****

End Sub

Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[clickaccess]

Thanks Ken Reay, that did it.

Click

Email Service Free from Banner ads.

http://www.SacMail.com