Opening a table in MS Access 2000

[MrMajik]

I am having trouble opening a table to write data to it under a pushButton method. I keep getting a Microsoft Visual Basic error that says, "Compiler error: User-defined type not defined.".

The problem is coming from the first line in the code below (Dim dbs as database). I am using MS Access 2000. What am I doing wrong?

Dim dbs as database
Dim msrt as recordset
Dim myNumber as string
Set dbs as CurrentDB
Set msrt as dbs.openrecordset ("TestDB", dbOpenDynaset)
myNumber = "123456"
mrst.movefirst
mrst.edit
mrst.AddNew
mrst!TheNum.value = myNumber
mrst.Update
set mrst = nothing

 

[PhybrOptk]

Try replacing the "as" with "="
Set dbs as CurrentDB
Set msrt as dbs.openrecordset ("TestDB", dbOpenDynaset)

change to:
Set dbs = CurrentDB
Set msrt = dbs.openrecordset ("TestDB", dbOpenDynaset)

 

[MrMajik]

PhybrOptk; Thank you for the quick reply.
I tried putting in your code but the error message still appears. When the error message appears Micorsoft Visual Basic colors the "dbs as database" as the focus of the problem. Again, this is the first line of the code.

It is acting like it does not understand the word "database" because it is expecting it to be user-defined.

Any other thoughts...

 

[cmmrfrds]

Since you are in Access 2000 the default is ADO ojects. DAO objects should be prefixed with DAO.
DAO.Database

Also, check your reference library to see that the DAO reference library is checked.

 

[MrMajik]

cmmrfrds and PhybrOptk; That did it. This case is closed.

Thank you!

MrMajik