Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 具有访问权限的多用户连接_Excel_Vba - Fatal编程技术网

Excel 具有访问权限的多用户连接

Excel 具有访问权限的多用户连接,excel,vba,Excel,Vba,我是Microsoft access的新手,对于提出的任何错误问题,我深表歉意 我有一个Excel VBA工具,它与Access连接。我只是想知道如果多用户更新同一个记录集,如何处理这种情况。我们是否可以暂停/等待,直到记录集被其他用户关闭,而不让用户知道后台活动 我正在使用下面的编码 Dim Acon As New ADODB.Connection Dim Rs As New ADODB.Recordset With Acon .Provider = "Microso

我是Microsoft access的新手,对于提出的任何错误问题,我深表歉意

我有一个Excel VBA工具,它与Access连接。我只是想知道如果多用户更新同一个记录集,如何处理这种情况。我们是否可以暂停/等待,直到记录集被其他用户关闭,而不让用户知道后台活动

我正在使用下面的编码

Dim Acon As New ADODB.Connection
Dim Rs As New ADODB.Recordset

    With Acon
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source=" + myFileNameDir
        .Open
    End With

With Rs
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .LockType = adLockOptimistic
    .ActiveConnection = Acon
    .Source = "Select * from Sheet1"
     .Open
End With

With Rs
  Rs.MoveFirst
  While Not Rs.EOF
    .Fields![status] = "Refresher"
    .Fields![Reason for Refresh Training] = "Refresher-" & myValuec
    Rs.MoveNext
  Wend
End With

对这个问题没有评论:添加代码时,只需粘贴所有代码,选择粘贴的代码并单击输入文本上方的代码示例图标-它是两个大括号
{}
。然后,您将无法获得“在此处输入代码”文本。最好的方法是首先检查文件是否可更新,如果不可,请使用“转到行”功能。不要对问题发表评论:添加代码时,只需将所有代码粘贴到中,选择粘贴的代码,然后单击输入文本上方的代码示例图标-它是两个大括号
{}
。然后,您将无法获得“在此处输入代码”文本。最好的方法是首先检查文件是否可更新,如果不可更新,请使用goto line#函数。