删除后台库某表中的一个字段

koutx

数据库拆分后，后台库名为“cj.mdb”，密码是“123”，该库中有一个名为“cjd”的Access表，表中一字段名为“历史”。现用如下代码欲将此字段删除：
Dim db As DAO.Database
Set db = DBEngine.Workspaces(0).OpenDatabase(CurrentProject.path & "\cj.mdb", False, False, "wd=123")
    db.TableDefs("cjd").Fields.Delete "历史"
提示错误“连接无法用于此操作，在此上下文中它可能已被关闭或无效”。
求助：如何修改连接才能实现删除该字段。多谢

盗梦

我尝试了一下，可以正常删除啊
或者你可以试试用SQL语句删除字段
    Dim strSql As String
    strSql = "ALTER TABLE 表名 DROP COLUMN 要删除的字段名"
    CurrentProject.Connection.Execute strSql　　＇执行SQL语句

koutx

原来问题不是同名链接表的影响；而是在执行前先调用了判断要删除的字段是否存在的自定义函数所导致。但仍谢谢楼上。