VBA 删除 表字段的验证规则 >=0

rendiule01

我想通过VBA 代码修改或删除 表字段的验证规则>=0 目前Dao 没问题 但是 我是链接表，不支持 DAO 想问大佬们有没有别的方法






Sub aaa()
Dim x As Boolean
x = True

    If x = True Then                         '设置库存表 字段qty_wh 验证规则
       'CurrentDb.Execute " CurrentDb.TableDefs( " & PinJie("prdt1", Chr(34)) & ").Fields(" & PinJie("qty_wh", Chr(34)) & ").ValidationRule =" & Chr(34) & Chr(34)
      ' "alter prdt1 add constraint ck_qty_wh check (qty_wh>0)
      CurrentDb.Execute "ALTER TABLE prdt1 DROP CONSTRAINT ck_qty_wh"
    Else
        'CurrentDb.TableDefs("prdt1").Fields("qty_wh").ValidationRule = ">0"
        CurrentDb.Execute "alter prdt1 add constraint ck_qty_wh check (qty_wh>=0)"
    End If
End Sub

rendiule01

求大佬相助，红花答谢

ly

既然是链接表，但代码中却没有路径指向？
用链接的数据库替换掉CurrendDb
提供个思路，请自己调试。

dim dbMyDB as Database
set dbMyDB=DBEngine.Workspaces(0).OpenDatabase("你的链接表路径文件")