Error Message

[Jengo]

Everytime I try to run the code below I get the following error.

Run-time error '3211':

The database engine could not lock table 'Employee Table' because it is already in use by another person or process.

-------------------------------------

Dim dbs As Database
Dim tdf As TableDef
Dim fld As Field
Dim MySet As Recordset

DoEvents
Set dbs = CurrentDb()
Set MySet = dbs.OpenRecordset("Problem Calls&quot

MySet.MoveLast
MySet.MoveNext
MySet.AddNew

MySet.Fields("Problem Call&quot = txtProblemCall.Value
MySet.Update

Set MySet = Nothing
lstProblemCall.Requery
lstProblemType1.Requery

DoEvents
Set tdf = dbs.TableDefs("Employee Table&quot
Set fld = tdf.CreateField(txtProblemCall.Value, dbText)

tdf.Fields.Append fld <----- Error
tdf.Fields.Refresh

DoEvents
Set tdf = dbs.TableDefs(&quot;Problem Types&quot
Set fld = tdf.CreateField(txtProblemCall.Value, dbText)
tdf.Fields.Append fld
tdf.Fields.Refresh

Set tdf = Nothing

 

[tlbroadbent]

Is [Employee Table] bound to the open form? If so, then table is open and the schema cannot be modified. Terry

http://members.home.net/tlbroadbent/sqlarticles.htm

&quot;I'm not dumb. I just have a command of thoroughly useless information.&quot; - Calvin, of Calvin and Hobbes

 

[JohnYingling]

If there is a xxxx.ldb file for the same xxxx.mdb then delete it if there are no users sharing. LDB stands for Lock Data Base. There is an outstnding lock in there.

http://WWW.VBCompare.Com