如何在VBA/Access中仅锁定当前ADODB.Recordset而不是整个页面(或表格)

如何在VBA/Access中仅锁定当前ADODB.Recordset而不是整个页面(或表格),vba,ms-access,adodb,recordset,Vba,Ms Access,Adodb,Recordset,我只想锁定在VBA/Access中开发的多用户系统的当前ADODB记录集(而不是页面或整个表),以便打开同一记录集的任何其他用户都无法编辑其他用户计算机中已处于编辑模式的一个记录集位置。我希望避免多2个用户编辑同一记录位置(例如:多个用户编辑同一员工的注册) 我测试了以下代码,但未成功: Private Sub Form_Load() Dim dbcon As ADODB.Connection Dim recrdst As ADODB.Recordset Set rec

我只想锁定在VBA/Access中开发的多用户系统的当前ADODB记录集(而不是页面或整个表),以便打开同一记录集的任何其他用户都无法编辑其他用户计算机中已处于编辑模式的一个记录集位置。我希望避免多2个用户编辑同一记录位置(例如:多个用户编辑同一员工的注册)

我测试了以下代码,但未成功:

Private Sub Form_Load()
    Dim dbcon As ADODB.Connection
    Dim recrdst As ADODB.Recordset

    Set recrdst = New ADODB.Recordset

    recrdst.CursorType = adOpenKeyset
    recrdst.LockType = adLockPessimistic

    Set dbcon = New ADODB.Connection

    dbcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=C:\Família\Alex Borges\Companies\Imobiliária Halex Tiago\Estudos\Sistema Multi-Usuário\Servidor.mdb;"

    recrdst.Open "SELECT * FROM tblDependentes", dbcon

    Set Me.Recordset = recrdst

    Set recrdst = Nothing
    Set dbcon = Nothing
End Sub
我还测试了以下代码:

Private Sub Form_Load()
    Dim dbcon As ADODB.Connection
    Dim recrdst As ADODB.Recordset

    Set dbcon = New ADODB.Connection
    dbcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=C:\Família\Alex Borges\Companies\Imobiliária Halex Tiago\Estudos\Sistema Multi-Usuário\Servidor.mdb;"

    Set recrdst = New ADODB.Recordset
    recrdst.ActiveConnection = dbcon
    recrdst.CursorType = adOpenKeyset
    recrdst.LockType = adLockPessimistic
    recrdst.CursorLocation = adUseServer

    recrdst.Open "SELECT * FROM tblDependentes", dbcon

    Set Me.Recordset = recrdst

    Set recrdst = Nothing
    Set dbcon = Nothing
End Sub
我的访问版本是2007。在Access/Options/Advanced上,我将默认记录锁定更改为“编辑的记录”

提前谢谢