表单打开时对表中记录的更改 - 记录锁定

Question

我有一个多用户数据库的设计： 1.表格A用于更新表A和表B（同时点击） 2.表格B用于审查表B，批准记录，然后从表B中删除它们

问题是如果在记录上打开表格B（使用主键CASENUMBER）并且在表格A中编辑该CASENUMBER的记录。

如何锁定特定记录，以便在表单中查看时无法在另一个记录中查看/编辑？

Answer 1

扩展您的语法问题：

首先，您需要修改SQL语句以包含IN_USE_A和IN_USE_B。一旦记录被拉出但在将其放入表单之前，您将根据该记录设置记录集，然后使每个表的字段为真。

Dim strSQL As String
Dim myR As Recordset

strSQL = "SELECT * FROM TABLE_A WHERE criteria_here"

Set myR = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
'myR is now that record and can be manipulated/data pulled from

myR.Edit
myR![IN_USE_A] = TRUE
myR.Update

'perform tasks and such

'then just before closing

myR.Edit
myR![IN_USE_A] = FALSE
myR.Update

Set myR = Nothing