Método Application.LoadCustomUI (Access)

Carrega a marcação XML que representa uma Faixa de Opções personalizada.

Sintaxe

expressão. LoadCustomUI (CustomUIName, CustomUIXML)

Expressão Uma expressão que retorna um objeto Application .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
CustomUIName	Obrigatório	String	O nome que será usado para identificar a Faixa de Opções personalizada.
CustomUIXML	Obrigatório	String	O código de marcação XML que define a Faixa de Opções personalizada.

Comentários

Para criar e disponibilizar a faixa de opções do Access, você deve primeiro criar um módulo no banco de dados com um procedimento que chama o método LoadCustomUI, passando o nome da faixa de opções e a marcação de personalização XML. A marcação XML pode vir de um objeto Recordset criado com base em uma tabela, em uma fonte externa ao banco de dados (como um arquivo XML a ser analisado em uma String) ou em uma marcação XML incorporada diretamente no procedimento.

Você pode disponibilizar diferentes faixas de opções usando várias chamadas ao método LoadCustomUI, passando a marcação XML diferente, desde que o nome de cada faixa de opções e o atributo id das guias que compõem a faixa de opções são exclusivos.

Após concluir o procedimento, crie um macro AutoExec que chama o procedimento usando a ação RunCode. Dessa forma, quando o aplicativo for iniciado, o método LoadCustomUI será automaticamente executado e todas as faixas de opções personalizadas serão disponibilizadas para o aplicativo.

Exemplo

O exemplo de código a seguir cria um Recordset de qualquer tabela que contém a palavra "Faixas de opções" em seu nome. Em seguida, ele chama o método LoadCustomUI para carregar as faixas de opções para disponibilizá-las ao banco de dados. Finalmente, fecha o conjunto de registros e a referência ao objeto 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.