Visual Basic in Access

[Nelson The Missing Lead]

Hi,

I am writing a visual basic procedure as follows:

Public Sub DaysAvg()
'Calculate the average value of a given value.

Dim dbs As Database

Dim rst As DAO.Recordset
Dim varBookmark As Variant
Dim numAve, numDaysAvg As Number
Dim intA, intB, lngCount As Integer

Set dbs = CurrentDb

'Open Table
Set rst = dbs.OpenRecordset("SGX Individual Historical", dbOpenTable)

rst.MoveFirst

Do While Not rst.EOF
intA = 1
intB = 0
varBookmark = rst.Bookmark
" I will not enclose the full code as it too long"


When i debug the code, the 2nd statement encounter problem. I follow exactly
what written in the book but visual basic seem like dun recongise (Dim dbs As
Database)

Please help!!!

Thank you.

Nelson Chou

 

[Keith Wilby]

Dim dbs As Database

Dim dbs As DAO.Database

Keith.
www.keithwilby.com

 

[Allen Browne]

In the code window, choose References on the Tools menu.
Check the box beside:
Microsoft DAO 3.6

More information about the references you need for each version of Access:
http://allenbrowne.com/ser-38.html

--
Allen Browne - Microsoft MVP. Perth, Western Australia

Reply to group, rather than allenbrowne at mvps dot org.

"Nelson The Missing Lead" <[email protected]>
wrote in message
news[email protected]...