Доступное значение Combo Box для версии VBA (из списка sharepoint)

Question

Я пытался выяснить, как это сделать, но все, что я пробовал из Google, не удалось. У меня есть кнопка в форме, предназначенной для открытия отчета, а затем измените значение поля со списком. Поле со списком происходит из общего списка/таблицы 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 

Когда нажмите на кнопку, чтобы выполнить код, я получаю следующее сообщение об ошибке: «Run Time Error 3326 Этот набор записей не обновляемый»

Любая помощь по этому вопросу?

Answer 1

Выбранное вами поле со списком привязано к полю формы. И этот источник записей, по-видимому, не обновляется. Или вы можете редактировать связанные элементы управления в форме и сохранить запись?

Или вы установили форму на AllowEdits = False.

Если источник записи не может быть изменен, вы можете обновить DealStatusBox, выполнив команду UPDATE SQL, а затем обновив форму.