E
Eric
I'm still stuck! I'm trying to append fields to an mdb
table from an mde file running in 2000 Runtime. I've
done this many many times and it's always worked fine,
but now it will not work for some mysterious reason. I
get a general event error with no details. The code
works when I run it from within an mdb file not running
in runtime. It just doesn't work from the mde file.
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld1 As DAO.Field
Set db = OpenDatabase("M:\data.mdb")
Set tdf = db.TableDefs("AdminInfo")
Set fld1 = tdf.CreateField("MonPer1", dbLong)
tdf.Fields.Append fld1
RefreshDatabaseWindow
I'm running the code in an afterupdate event within a
form.
..
table from an mde file running in 2000 Runtime. I've
done this many many times and it's always worked fine,
but now it will not work for some mysterious reason. I
get a general event error with no details. The code
works when I run it from within an mdb file not running
in runtime. It just doesn't work from the mde file.
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld1 As DAO.Field
Set db = OpenDatabase("M:\data.mdb")
Set tdf = db.TableDefs("AdminInfo")
Set fld1 = tdf.CreateField("MonPer1", dbLong)
tdf.Fields.Append fld1
RefreshDatabaseWindow
I'm running the code in an afterupdate event within a
form.
..