Sharepoint VBA ADODB 更新语句不起作用

Question

使用VBA更新SharePoint列表中的某个记录时，程序卡在更新命令或某个字段

代码：

JRVCS = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;DATABASE=https://sites.123.com/sites/abc/def/;LIST=" 
JRVList = JRVCS & "{XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXXX};"
        
Set JRVConn = New ADODB.Connection Set JRVRSet = New ADODB.Recordset
With JRVConn
   .ConnectionString = JRVList
   .Open 
End With
        
mySQL = "SELECT * FROM [List1] WHERE [ID] = 200;"
        
JRVRSet.Open mySQL, JRVConn, adOpenDynamic, adLockOptimistic
        
If Not (JRVRSet.BOF And JRVRSet.EOF) Then
   JRVRSet.Fields("Feild 1") = "Value 1"
   JRVRSet.Fields("Date") = CDate(Now() + 1)
   JRVRSet.Update 
End If
        
If CBool(JRVRSet.State And adStateOpen) = True Then JRVRSet.Close: Set JRVRSet = Nothing 
If CBool(JRVConn.State And adStateOpen) = True Then JRVConn.Close: Set JRVConn = Nothing

在上面的程序中，程序卡在 JRVRSet.Fields("Date") = CDate(Format(Now() + 1)) 和 JRVRSet.Update。

此问题仅发生在某些 SharePoint 网站中。在我创建的 SharePoint 网站中，此代码运行良好。这和权限有关吗？

Answer 1

一直在寻找这个问题的答案，记得以前见过这个，因为我在列表中计算了字段。如果删除它们然后可以找到。