Перевод кода с VBA в LibreOffice Basic

@Demonterka · Регистрация: 02.06.2015

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Появилась необходимость перейти с MS Access на LibreOffice Base. Формы, таблицы и т.п. перенёс вручную, остались макросы. И тут начались проблемы. Пытаюсь переделать самостоятельно код старых макросов - не получается. Вот код:

Visual Basic

Private Sub ОтборЗаписей_Click()
On Error GoTo Err_ОтборЗаписей_Click
Me.RecordSource = "SELECT TP.* FROM TP WHERE ((TP.[" & Me.КатегорияПоиска & "]) Like('*" & Me.СтрокаПоиска & "*')) WITH OWNERACCESS OPTION;"
     
Exit_ОтборЗаписей_Click:
    Exit Sub
 
Err_ОтборЗаписей_Click:
    MsgBox Err.Description
    Resume Exit_ОтборЗаписей_Click
End Sub
 
Private Sub ОчиститьПоиск_Click()
Me.RecordSource = "SELECT TP.* FROM TP WITH OWNERACCESS OPTION;"
    
Exit_ОтборЗаписей_Click:
    Exit Sub
 
Err_ОтборЗаписей_Click:
    MsgBox Err.Description
    Resume Exit_ОтборЗаписей_Click
End Sub

Суть кода такова - на форме есть таблица с данными. Нужно реализовать поиск (фильтр) по таблице. на форме присутствует поле со списком "КатегорияПоиска" и пустое поле для ввода необходимого значения для поиска "СтрокаПоиска". Данный макрос работает по кнопке. Вторая кнопка очищает поиск(фильтр). При выполнении данного кода появляется ошибка "Ошибка времени выполнения Basic.Объектная переменная не установлена." Помогите разобраться и сконвертировать код!Пожалуйста.

@Demonterka · 14.09.2023, 11:08 **[ТС]**

Нет специалистов в данной области?

@Demonterka 0 / 0 / 0 Регистрация: 02.06.2015 Сообщений: 26
	14.09.2023, 11:08 [ТС]	2
	Нет специалистов в данной области? 0

Опции темы