Метод Application.LoadCustomUI (Access)

Статья
04/07/2023

Загружает разметку XML, представляющую настраиваемую ленту.

Синтаксис

expression. LoadCustomUI (CustomUIName, CustomUIXML)

Выражение Выражение, возвращающее объект Application .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
CustomUIName	Обязательный	String	Имя, которое будет использоваться для идентификации настраиваемой ленты.
CustomUIXML	Обязательный	String	Код разметки XML, определяющий настраиваемую ленту.

Замечания

Чтобы создать и сделать ленту доступной для Access, сначала создайте модуль в базе данных с процедурой, которая вызывает метод LoadCustomUI , передав имя ленты и разметку настройки XML. Разметка XML может поступать из объекта Recordset, созданного из таблицы, из источника, внешнего к базе данных (например, XML-файла, который необходимо проанализировать в строке), или из разметки XML, встроенной непосредственно в процедуру.

Различные ленты можно сделать доступными с помощью нескольких вызовов метода LoadCustomUI , передавая разные разметки XML, при условии, что имя каждой ленты и атрибут id вкладок, составляющих ленту, являются уникальными.

По завершении процедуры можно создать макрос AutoExec, вызывающий процедуру с помощью действия RunCode. Таким образом, при запуске приложения автоматически выполняется метод LoadCustomUI, а приложению предоставляется доступ ко всем пользовательским лентам.

Пример

В следующем примере кода создается набор записей из любой таблицы, содержащей слово "Ленты" в имени. Затем он вызывает метод LoadCustomUI для загрузки лент, чтобы сделать их доступными для базы данных. Наконец, он закрывает набор записей и ссылку на объект Database .

Function LoadRibbons() 
Dim i As Integer 
Dim db As DAO.Database 
Set db = Application.CurrentDb 
 
For i = 0 To (db.TableDefs.Count - 1) 
 If (InStr(1, db.TableDefs(i).Name, "Ribbons")) Then 
 Dim rs As DAO.Recordset 
 Set rs = CurrentDb.OpenRecordset(db.TableDefs(i).Name) 
 rs.MoveFirst 
 
 While Not rs.EOF 
 Application.LoadCustomUI rs("RibbonName").Value, rs("RibbonXml").Value 
 
 rs.MoveNext 
 Wend 
 
 rs.Close 
 Set rs = Nothing 
 End If 
Next i 
 
db.Close 
Set db = Nothing 
End Function

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через