Debugging code I didn't write and a novice to VB. The following code
is set up as a module within an Access Database:

Public Function FixProjNum()

Dim db As Database, tbl As TableDef, fld As Field


'Set up pointers (databse/table/field)
Set db = DBEngine.Workspaces(0).OpenDatabase(0)
Set tbl = db.TableDefs("testing")
Set fld = tbl("ChangeMe")

'Change ChangeMe to Integer data type
fld.Type = dbInteger

End Function

The above error is the error message I get when doing a "step into"
through the code in attempt to find the error. The "Runtime error
3024 could not find file '0'" appears after clicking step into after
the following line is highlighted yellow:

Set db = DBEngine.Workspaces(0).OpenDatabase(0)

Don't have any idea where to go with this, not sure where the
workspaces and opendatabase functions are, if this is what they are
etc....

Any help?

in this case, Workspaces and OpenDatabase are not functions. they are
collections. handing a 0 to the Workspaces collection is supposed to
give you a default database, but that's probably not what you want.

if your data and this code are in the same .mdb, then you probably
want to reference the data in it. you can do this through the
CurrentDb object in DAO. changing the one line to:

Set db = Currentdb

will probably correct this error.

if your data is not in the same .mdb as this code, you will need to
reference the specific database that has the data. you can do that
with the Workspaces collection, if the database is not hidden.

hope this helps. tom

leahcronk (AT) juno (DOT) com (Leah) wrote in message news:<b78cf982.0308041552.75cf1134 (AT) posting (DOT) google.com>...