FAQ access 2007

Sub onChange(ByVal control As IRibbonControl, text As String)

<comboBox id="cmbNum" label="Num :" onChange="cmbNumLieu_change" />
<comboBox id="cmbLieu" label="Lieu :" onChange="cmbNumLieu_change" />

Sub cmbNumLieu_change(control As IRibbonControl, text As String)
	'Quel contrôle ?
    Select Case control.Id
        Case "cmbNum": MsgBox ("Numéro : " & text)
        Case "cmbLieu": MsgBox ("Lieu : " & text)
    End Select
End Sub

<group id="grpRecherche" label="Recherche multi-critères">
	<comboBox id="cmbNum" label="Num :" getItemCount="getNBNum" getItemLabel="getNumLabel"/>
	<editBox id="txtDesc" label="Desc :"/>
	<editBox id="txtDate" label="Date :"/>
	<separator id="sepRecherche"/>
	<button id="btnRechercher" label="Rechercher" imageMso="Find" size="large"/>
</group>

Public Function LoadRibbon()
Dim strXML As String
Dim oFso As New FileSystemObject
Dim oFtxt As TextStream
'Charge le fichier xml en mémoire
Set oFtxt = oFso.OpenTextFile(CurrentProject.Path & _
      "\evenement_ribbon.xml", ForReading)
'Récupère le contenu
strXML = oFtxt.ReadAll
'Charge le rubban personnalisé correspondant
Application.LoadCustomUI "rubanperso", strXML
End Function

Application.LoadCustomUI(Nomduruban,codeXML)

Public Sub chkImp_action(ByVal control As IRibbonControl, pressed As Boolean)
    MsgBox "Le contrôle est " & IIf(pressed, "coché", "décoché")
End Sub

<comboBox id="cmbNum" label="Num :">
	<item id="itNum1" label="1"/>
	<item id="itNum2" label="2"/>
	<item id="itNum3" label="3"/>
</comboBox>

Sub getItemCount(control As IRibbonControl, ByRef count)
    Dim strNum() As String
    strNum = Split("1,2,3,4", ",")
    count = UBound(strNum) + 1
End Sub

Sub getItemLabel(control As IRibbonControl, index As Integer, ByRef label)
    Dim strNum() As String
    strNum = Split("1,2,3,4", ",")
    label = strNum(index)
End Sub

<comboBox id="cmbNum" label="Num :" getItemCount="getItemCount" getItemLabel="getItemLabel" />

Application.CommandBars.ExecuteMso "CreateTable"

Private strDesc As String

Sub getDescText(control As IRibbonControl, ByRef text)
text = UCase(strDesc)
End Sub

Sub txtDesc_change(ByVal control As IRibbonControl, text As String)
strDesc = text
oMonruban.InvalidateControl "txtDesc"
End Sub

<editBox id="txtDesc" label="Desc :" getText="getDescText" onChange="txtDesc_change"/>

Sub getImageFavoris(control As IRibbonControl, index As Integer, ByRef Image)

On Error GoTo err
    Dim oClient As classClient
    Dim oFrm As Form
     'Accède au formulaire
    Set oFrm = Forms(STRFORMULAIRE)
    'Vérifie si le client existe dans les favoris
    Set oClient = colFavoris(index + 1)
    'Si oui, affiche son image
    Set Image = oFrm.imgLst.ListImages(oClient.Image).ExtractIcon


err:

End Sub

<button id="btnSupprimer" label="Supprimer l'évènement"  imageMso="DeleteRecord2"/>

<ribbon startFromScratch="true">
      <tabs>
        <tab id="tabEvenement" label="Gestion des événements" visible="true">
			<group id="grpDonnees" label="Données">
			<button idMso="NewRecord" size="normal"/>
			<button idMso="DeleteRecord2" size="normal"/>
			</group>
        </tab>
      </tabs>
</ribbon>

<button idMso="NewRecord" label="Nouvel évènement" size="large"/>
<button id="btnDupliquer" label="Dupliquer l'évènement" imageMso="SynchronizeAllLists" 
	onAction="btnDupliquer_action"/>

MsgBox Application.CommandBars.GetLabelMso("RecordsDeleteRecord")

<!--Mise en place de la zone de texte-->
<editBox id="txtDesc" label="Desc :" getText="getDescText" onChange="txtDesc_change" tag=">"/>

MsgBox Application.CommandBars.GetPressedMso("Bold")

<button id="btnRechercher" label="Rechercher" imageMso="Find" size="large" screentip="Lancer la recherche"/>

<gallery id="galMois" label="Mois ..." columns="2" getImage="getImageGalleryMois" 
getItemCount="getNBMois" getItemLabel="getLabelMois" getItemImage="getImageMois" />

<editBox id="txtDesc" label="Desc :" getText="getDescText" onChange="txtDesc_change" tag=">"/>

Sub getDescText(control As IRibbonControl, ByRef text)
text = Format(strDesc,control.Tag)
End Sub

<tabs>
	<tab idMso="TabAccessEdit" visible="false" />
      	 […]Liste de vos onglets […]
       </tab>
</tabs>

<tabs>
		<tab idMso="TabAccessEdit" visible="true" >
			<group idMso="GroupClipboard" visible="false"/>
		</tab>
</tabs>

<button idMso="NewRecord" label="Nouvel évènement" size="large"/>

Sub onChange(ByVal control As IRibbonControl, text As String)

Private Sub Form_Current()
oMonruban.InvalidateControl "btnSupprimer"
End Sub

Private Sub Form_Current()
If Not (oMonruban Is Nothing) Then
oMonruban.InvalidateControl "btnSupprimer"
End If
End Sub