'确认用户是否有编辑权限 If CurrentUser.CanEdit = False Then MsgBox "您无权编辑数据。请联系管理员以获取更多信息。" Exit Sub End If
'等待其他用户释放数据库锁定 Do While DBEngine.Status > 0 DoEvents Loop
'重新启动Access DoCmd.Quit acSaveYes
'使用事务来保证数据一致性 Dim db As DAO.Database Dim rs As DAO.Recordset
Set db = CurrentDb Set rs = db.OpenRecordset("SELECT * FROM TableName WHERE ID = " & ID, dbOpenDynaset)
db.BeginTrans rs.Edit rs!FieldName = NewValue
'提交修改 rs.Update
'结束事务 db.CommitTrans
rs.Close Set rs = Nothing db.Close Set db = Nothing
上一篇:Access中为记录应用连续编号
下一篇:Access中引用新导入的表