我有一个多用户数据库的设计: 1. 表单 A 用于更新表 A 和表 B(同时单击) 2. 表单 B 用于审查表 B,批准记录,然后从表 B 中删除它们
问题是如果在记录上打开表格 B(使用主键 CASENUMBER),并且在表格 A 中编辑该 CASENUMBER 的记录。
如何锁定特定记录,以便在以某种形式查看它时无法在另一个形式中查看/编辑?
我有一个多用户数据库的设计: 1. 表单 A 用于更新表 A 和表 B(同时单击) 2. 表单 B 用于审查表 B,批准记录,然后从表 B 中删除它们
问题是如果在记录上打开表格 B(使用主键 CASENUMBER),并且在表格 A 中编辑该 CASENUMBER 的记录。
如何锁定特定记录,以便在以某种形式查看它时无法在另一个形式中查看/编辑?
要扩展您的语法问题:
首先,您需要修改 SQL 语句以包含IN_USE_A
and 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