访问VBA更新组合框值（来自sharepoint列表）

Question

我一直试图弄清楚如何做到这一点，但我从谷歌尝试的所有内容都失败了。 我在表单上有一个按钮，用于打开报表，然后更改组合框值的值。组合框源自Sharepoint共享列表/表。 这是我的代码：

Private Sub btnVbaOpenContractRpt_Click()

Dim rptName As String
Dim rptName2 As String
Dim rptFilter As String
Dim rptWhere As String
Dim rptArgs As String


rptName = "Report 1"
rptName2 = "Report 2"
Me("Combo Box") = "Report Generated"

DoCmd.Close acReport, rptName, acSaveNo
DoCmd.Close acReport, rptName2, acSaveNo


DoCmd.openreport rptName2, acViewPreview, rptFilter, rptWhere, acWindowNormal, rptArgs
DoCmd.openreport rptName, acViewPreview, rptFilter, rptWhere, acWindowialogue, rptArgs
End Sub

当单击按钮执行代码时，我收到以下错误： ＆＃34;运行时错误3326 此记录集不可更新＆＃34;

对此有何帮助？

Answer 1

您正在更新的组合框绑定到表单记录源的字段。而这个记录源显然不可更新。或者，您可以编辑表单上的绑定控件，并保存记录吗？

或者您已将表单设置为AllowEdits = False。

如果无法更改记录源，您可以通过执行UPDATE SQL更新DealStatusBox，然后刷新表单。