把表达式True=False放到表的ValidationRule属性就能锁上。HardLockTable?实现了该功能。
声明
PublicMyDBAsDatabase
DimDummyAsInteger
函数
FunctionHardLockTable(ByValwhichActionAsString,?ByValaTableAsString)AsInteger
OnErrorGoToHardLockTableError
HardLockTable=True
SelectCasewhichAction
Case"Lock"
MyDB.TableDefs(aTable).ValidationRule="True=False"
MyDB.TableDefs(aTable).ValidationText=?"Thistablelockedvia"&?"ValidationRuleon"&Now
Case"UnLock"
MyDB.TableDefs(aTable).ValidationRule=""
MyDB.TableDefs(aTable).ValidationText=""
Case"TestThenUnLock"
IfMyDB.TableDefs(aTable).ValidationRule="True=False"Then
MyDB.TableDefs(aTable).ValidationRule=""
MyDB.TableDefs(aTable).ValidationText=""
EndIf
EndSelect
HardLockTableErrorExit:
subFlushDBEngine
optional,seenextsuggestion
ExitFunction
HardLockTableError:
HardLockTable=False
MsgBoxError$&"error"&"inHardLockTabletrying"&"to"&whichAction&""&aTable
ResumeHardLockTableErrorExit
EndFunction
使用例子
上锁
Dummy=HardLockTable("Lock","TestTable")
开锁
Dummy=HardLockTable("UnLock","TestTable")->

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!