窗体处于打开状态时对表中记录的更改-记录锁定

Question

我有一个多用户数据库的设计: 1.表格A用于更新表A和表B(同时单击) 2。表B用于检查表B，批准记录，然后从表B中删除它们。

问题是如果表B是在记录上打开的(主键为CASENUMBER)，而该CASENUMBER的记录是在表格A中编辑的。

如何在特定的记录上设置一个锁，以便如果以一种形式查看它，它就不能在另一个记录中被查看/编辑？

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