Office中国论坛/Access中国论坛

标题: 关于表锁定 [打印本页]

作者: daxin1 时间: 2012-1-5 19:31
标题: 关于表锁定
请高手指导一下代码我怎么使用不了{:soso_e127:}

锁住数据库中的表
把表达式 True=False 放到表的 ValidationRule 属性就能锁上。 HardLockTable?实现了该功能。
声明
Public MyDB As Database
Dim Dummy As Integer
函数
Function HardLockTable (ByVal whichAction As String,?ByVal aTable As String) As Integer
On Error GoTo HardLockTableError
HardLockTable = True
Select Case whichAction
Case "Lock"
MyDB.TableDefs(aTable).ValidationRule = "True=False"
MyDB.TableDefs(aTable).ValidationText =?"This table locked via " & ?"ValidationRule on " & Now
Case "UnLock"
MyDB.TableDefs(aTable).ValidationRule = ""
MyDB.TableDefs(aTable).ValidationText = ""
Case "TestThenUnLock"
If MyDB.TableDefs(aTable).ValidationRule = "True=False" Then
MyDB.TableDefs(aTable).ValidationRule = ""
MyDB.TableDefs(aTable).ValidationText = ""
End If
End Select
HardLockTableErrorExit:
'subFlushDBEngine
'optional, see next suggestion
Exit Function
HardLockTableError:
HardLockTable = False
MsgBox Error$ & " error " & "in HardLockTable trying " & "to " & whichAction & " " & aTable
Resume HardLockTableErrorExit
End Function
使用例子
'上锁
Dummy = HardLockTable("Lock", "TestTable")
' 开锁
Dummy = HardLockTable("UnLock", "TestTable")

作者: daxin1 时间: 2012-1-5 19:31
还有一个ValidationRule 属性在什么地方可以改

作者: Grant 时间: 2012-1-5 22:54
这个属性无法锁定表,你想在更新的时候锁定表?不让用户修改吗

作者: Grant 时间: 2012-1-6 01:26
给你做了个例子,请移步
http://www.office-cn.net/forum.p ... d=109148&extra=

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)