Méthode Application.LoadCustomUI (Access)

Article
04/07/2023

Charge le code XML qui représente un Ruban personnalisé.

Syntaxe

expression. LoadCustomUI (CustomUIName, CustomUIXML)

Expression Expression qui renvoie un objet Application .

Parameters

Nom	Requis/Facultatif	Type de données	Description
CustomUIName	Obligatoire	Chaîne	Nom qui sera utilisé pour identifier le Ruban personnalisé.
CustomUIXML	Obligatoire	Chaîne	Code XML qui définit le Ruban personnalisé.

Remarques

Pour créer et utiliser le ruban Access, vous créez tout d'abord un module dans la base de données avec une procédure qui appelle la méthode LoadCustomUI, en passant le nom du ruban et le balisage de personnalisation XML. Le code XML peut provenir d’un objet Recordset créé à partir d’une table, d’une source extérieure à la base de données (tel qu’un fichier XML que vous devez analyser dans une String (chaîne)) ou d’un code XML incorporé directement à la procédure.

Vous pouvez rendre plusieurs rubans disponibles à l'aide de plusieurs appels à la méthode LoadCustomUI, autre balisage XML, dans la mesure où le nom de chaque ruban et l'attribut id des onglets constituant le ruban sont uniques.

Une fois la procédure terminée, vous créez une macro AutoExec qui appelle la procédure à l’aide de l’action ExécuterCode. Ainsi, lorsque l'application est lancée, la méthode LoadCustomUI s'exécute automatiquement et tous les rubans personnalisés sont accessibles à l'application.

Exemple

L'exemple de code suivant crée un objet Recordset à partir de n'importe quelle table qui contient le mot « Rubans » dans son nom. Il appelle ensuite la méthode LoadCustomUI pour charger les rubans et les rendre disponibles pour la base de données. Enfin, il ferme l'objet recordset et la référence à l'objet de base de données.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via