Новое сообщение об ошибке в MS Access после обновления офиса «Объект или класс не поддерживает набор событий» - PullRequest
Новая
       22

Новое сообщение об ошибке в MS Access после обновления офиса «Объект или класс не поддерживает набор событий»

0 голосов
/ 03 июля 2019

Я полагаю, что на этой неделе на моем рабочем компьютере было установлено обновление Office. С тех пор я вижу новое сообщение об ошибке в созданной мной базе данных MS Access.

ПК = ОС Windows 10 Enterprise, сборка 17763,557
Office = 365 ProPlus версии 1808, сборка 10730.20348

Проблема, с которой я столкнулся: у меня есть кнопка, настроенная в форме, которая выполняет поиск записи в SQL и заполняет форму. Этот код работал более года, но теперь при нажатии кнопки происходит сбой кода с сообщением об ошибке «Выражение« При щелчке », введенное вами в качестве параметра свойства события, выдает следующую ошибку: объект или класс не поддерживает набор событий. "

Однако, если я открою Visual Basic рядом с формой, запрос будет работать нормально без сообщения об ошибке.

Я не уверен, связаны ли обновление Office и сообщение об ошибке. Я не верю, что какие-либо изменения были внесены в код или структуру базы данных (хотя это может быть неправильно). Других сообщений об ошибках от других пользователей не поступало. Я в недоумении, в чем проблема, помогите с благодарностью. 

Private Sub Command360_Click()
    If IsNull(Me.SEARCH_TEXT.Value) Or Me.SEARCH_TEXT.Value = "" Then
       MsgBox "Please type in your search keyword.", vbOKOnly, "Keyword Needed"
       Me.SEARCH_TEXT.BackColor = vbYellow
       Me.SEARCH_TEXT.SetFocus
    Else
        strsearch = Me.SEARCH_TEXT.Value
        Me.SEARCH_TEXT.BackColor = vbWhite
        SearchTask = "SELECT * FROM [tMASTER_BOREHOLE_LIST] WHERE ( ([HOLEID] Like ""*" & strsearch & "*"") OR ([TYPE] Like ""*" & strsearch & "*"") OR ([ALTERNATE_NAME1] Like ""*" & strsearch & "*"") OR ([ALTERNATE_NAME2] Like ""*" & strsearch & "*"") OR ([ALTERNATE_NAME3] Like ""*" & strsearch & "*"") OR ([Hole_Location] Like ""*" & strsearch & "*"") OR ([ALTERNATE_NAME4] Like ""*" & strsearch & "*"") OR ([Collar_Site_No] Like ""*" & strsearch & "*"") OR ([Site_ID] Like ""*" & strsearch & "*"") OR ([HOLE_NAME] Like ""*" & strsearch & "*"") OR ([Hole_Number] Like ""*" & strsearch & "*"") OR ([Design_Point_Number] Like ""*" & strsearch & "*"") OR ([STAKED_Point_Number] Like ""*" & strsearch & "*"") OR ([As_Drilled_Point_Number] Like ""*" & strsearch & "*"") OR ([COLLAR_LOCATION1] Like ""*" & strsearch & "*"") OR ([COLLAR_LOCATION] Like ""*" & strsearch & "*"") OR ([LW_FOR_SEALUP] Like ""*" & strsearch & "*""))"
        Me.RecordSource = SearchTask
    End If
End Sub

Спасибо за вашу помощь

Lee

...