***********************************************************
***********************************************************
Andreas Stern: "Keine Angst vor Microsoft Access!"
XML-Code für das eigene Menüband
1.3.2013
www.andreasstern.de
***********************************************************
************************************************************************


************************************************************************
ACHTUNG

Access 2003:
Hier gab es diese Technik noch nicht!

Access 2007:
VBA / Extras / Verweise:
"Microsoft Office 12.0 Object Library" muss geladen sein!!

Access 2010:
VBA / Extras / Verweise:
"Microsoft Office 14.0 Object Library" muss geladen sein!!

Access 2013:
VBA / Extras / Verweise:
"Microsoft Office 15.0 Object Library" muss geladen sein!!

************************************************************************
Firma
************************************************************************

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon startFromScratch="false">

    <tabs>
      <tab idMso="TabDatabaseTools" visible="false" />
      <tab idMso="TabCreate" visible="false" />
      <tab idMso="TabExternalData" visible="false" />
      <tab idMso="TabHomeAccess" visible="false" />

      <tab id="Tab1" label="ArbeiteFix">
        <group id="group0" label="Startformular">
           <button id="startformular" label="Startformular" onAction="OnButtonClick"/>
        </group>        
        <group id="group1" label="Kunden">
           <button id="kunden" label="Kunden" onAction="OnButtonClick"/>
           <button id="kundenauftraege" label="Kundenaufträge" onAction="OnButtonClick"/>
         </group>
        <group id="group2" label="Planung">
           <button id="auftragsbearbeitung" label="Auftragsbearbeitung" onAction="OnButtonClick"/>
           <button id="personalplanung" label="Personalplanung" onAction="OnButtonClick"/>
         </group>
        <group id="group3" label="Stammdaten">
           <button id="materialart" label="Materialart" onAction="OnButtonClick"/>
           <button id="mitarbeiter" label="Mitarbeiter" onAction="OnButtonClick"/>
         </group>
      </tab>   
    </tabs>

  </ribbon>
</customUI>


'------------------------------
Module + "AusführenCode" im Autoexec-Makro
'------------------------------

Public Function eigene_MFL_laden()
Application.LoadCustomUI "Eigene_MFL", DLookup("mfl_code", "tblMFL", "mfl_name='eigene_MFL'")
End Function


'------------------------------
in "Module":
'------------------------------

Sub OnButtonClick(control As IRibbonControl)
Select Case control.id

   Case "startformular"
      DoCmd.OpenForm "frmStart"

   Case "kunden"
      DoCmd.OpenForm "frmKunden"
   Case "kundenauftraege"
      DoCmd.OpenForm "frmKundenauftraege"

   Case "auftragsbearbeitung"
      DoCmd.OpenForm "frmAuftragsbearbeitung"
   Case "personalplanung"
      DoCmd.OpenForm "frmPersonalplanung"

   Case "materialart"
      DoCmd.OpenForm "frmMaterialart"
   Case "mitarbeiter"
      DoCmd.OpenForm "frmMitarbeiter"

   Case Else
      MsgBox "OnButtonClick: Unbekannter Formularname!"

End Select
End Sub


************************************************************************
Verein
************************************************************************

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon startFromScratch="false">

    <tabs>
      <tab idMso="TabDatabaseTools" visible="false" />
      <tab idMso="TabCreate" visible="false" />
      <tab idMso="TabExternalData" visible="false" />
      <tab idMso="TabHomeAccess" visible="false" />

      <tab id="Tab1" label="TreibSportWieNix">
        <group id="group0" label="Startformular">
           <button id="startformular" label="Startformular" onAction="OnButtonClick"/>
        </group>        
        <group id="group1" label="Mitglieder">
           <button id="mitglieder" label="Mitglieder" onAction="OnButtonClick"/>
           <button id="mannschaften" label="Mannschaften" onAction="OnButtonClick"/>
           <button id="trainer" label="Trainer" onAction="OnButtonClick"/>
         </group>
        <group id="group2" label="Planung">
           <button id="training" label="Training" onAction="OnButtonClick"/>
           <button id="einzelwettkaempfe" label="Einzelwettkämpfe" onAction="OnButtonClick"/>
           <button id="mannschaftswettkaempfe" label="Mannschaftswettkämpfe" onAction="OnButtonClick"/>
         </group>
        <group id="group3" label="Stammdaten">
           <button id="plaetze" label="Plätze" onAction="OnButtonClick"/>
           <button id="beitragssaetze" label="Beitragssätze" onAction="OnButtonClick"/>
           <button id="datentypen" label="Datentypen" onAction="OnButtonClick"/>
         </group>
      </tab>   
    </tabs>

  </ribbon>
</customUI>


'------------------------------
Module + "AusführenCode" im Autoexec-Makro
'------------------------------

Public Function eigene_MFL_laden()
Application.LoadCustomUI "Eigene_MFL", DLookup("mfl_code", "tblMFL", "mfl_name='eigene_MFL'")
End Function


'------------------------------
in "Module":
'------------------------------

Sub OnButtonClick(control As IRibbonControl)
Select Case control.id

   Case "startformular"
      DoCmd.OpenForm "frmStart"

   Case "mitglieder"
      DoCmd.OpenForm "frmMitglieder"
   Case "mannschaften"
      DoCmd.OpenForm "frmMannschaften"
   Case "trainer"
      DoCmd.OpenForm "frmTrainer"

   Case "training"
      DoCmd.OpenForm "frmTraining"
   Case "einzelwettkaempfe"
      DoCmd.OpenForm "frmEWettkaempfe"
   Case "mannschaftswettkaempfe"
      DoCmd.OpenForm "frmMWettkaempfe"

   Case "plaetze"
      DoCmd.OpenForm "frmPlaetze"
   Case "beitragssaetze"
      DoCmd.OpenForm "frmBeitragssaetze"
   Case "datentypen"
      DoCmd.OpenForm "frmTypen"

   Case Else
      MsgBox "OnButtonClick: Unbekannter Formularname!"

End Select
End Sub

************************************************************************
Verleih
************************************************************************

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
  <ribbon startFromScratch="false">

    <tabs>
      <tab idMso="TabDatabaseTools" visible="false" />
      <tab idMso="TabCreate" visible="false" />
      <tab idMso="TabExternalData" visible="false" />
      <tab idMso="TabHomeAccess" visible="false" />

      <tab id="Tab1" label="VerleihNix">
        <group id="group0" label="Startformular">
           <button id="startformular" label="Startformular" onAction="OnButtonClick"/>
        </group>        
        <group id="group1" label="Ausleihe">
           <button id="ausleihe" label="Ausleihe" onAction="OnButtonClick"/>
           <button id="personen" label="Personen" onAction="OnButtonClick"/>
         </group>
        <group id="group2" label="Bücher">
           <button id="erfassen" label="Bücher erfassen" onAction="OnButtonClick"/>
           <button id="suchen" label="Bücher suchen" onAction="OnButtonClick"/>
         </group>
        <group id="group3" label="Stammdaten">
           <button id="autoren" label="Autoren" onAction="OnButtonClick"/>
           <button id="sachgebiete" label="Sachgebiete" onAction="OnButtonClick"/>
           <button id="verlage" label="Verlage" onAction="OnButtonClick"/>
           <button id="orte" label="Orte" onAction="OnButtonClick"/>
           <button id="lager" label="Lager" onAction="OnButtonClick"/>
         </group>
      </tab>   
    </tabs>

  </ribbon>
</customUI>


'------------------------------
Module + "AusführenCode" im Autoexec-Makro
'------------------------------

Public Function eigene_MFL_laden()
Application.LoadCustomUI "Eigene_MFL", DLookup("mfl_code", "tblMFL", "mfl_name='eigene_MFL'")
End Function


'------------------------------
in "Module":
'------------------------------

Sub OnButtonClick(control As IRibbonControl)
Select Case control.id

   Case "startformular"
      DoCmd.OpenForm "frmStart"

   Case "ausleihe"
      DoCmd.OpenForm "frmAusleihe"
   Case "personen"
      DoCmd.OpenForm "frmPersonen"

   Case "erfassen"
      DoCmd.OpenForm "frmBuecher"
   Case "suchen"
      DoCmd.OpenForm "frmBuechersuche"

   Case "autoren"
      DoCmd.OpenForm "frmAutoren"
   Case "sachgebiete"
      DoCmd.OpenForm "frmSachgebiete"
   Case "verlage"
      DoCmd.OpenForm "frmVerlage"
   Case "orte"
      DoCmd.OpenForm "frmOrte"
   Case "lager"
      DoCmd.OpenForm "frmLager"
   Case Else
      MsgBox "OnButtonClick: Unbekannter Formularname!"

End Select
End Sub