************************************************************************
Andreas Stern: "Keine Angst vor Microsoft Access!"
XML-Code fr das eigene Menband
11.2.2019
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!!

Access 2016/19:
VBA / Extras / Verweise:
"Microsoft Office 16.0 Object Library" muss geladen sein!!


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

ACHTUNG: Die Zeilen

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

bewirken, dass die Standard-Registerkarten NICHT angezeigt werden.
Wenn Sie das nicht wollen - wenn also die Standard-Registerkarten
ZUSTZLICH zu Ihrer eigenen angezeigt werden sollen - dann mssen
Sie diese Zeilen lschen!

************************************************************************

<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="Kundenauftrge" 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 + "AusfhrenCode" 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
************************************************************************

ACHTUNG: Die Zeilen

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

bewirken, dass die Standard-Registerkarten NICHT angezeigt werden.
Wenn Sie das nicht wollen - wenn also die Standard-Registerkarten
ZUSTZLICH zu Ihrer eigenen angezeigt werden sollen - dann mssen
Sie diese Zeilen lschen!

************************************************************************

<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="Einzelwettkmpfe" onAction="OnButtonClick"/>
           <button id="mannschaftswettkaempfe" label="Mannschaftswettkmpfe" onAction="OnButtonClick"/>
         </group>
        <group id="group3" label="Stammdaten">
           <button id="plaetze" label="Pltze" onAction="OnButtonClick"/>
           <button id="beitragssaetze" label="Beitragsstze" onAction="OnButtonClick"/>
           <button id="datentypen" label="Datentypen" onAction="OnButtonClick"/>
         </group>
      </tab>   
    </tabs>

  </ribbon>
</customUI>


'------------------------------
Module + "AusfhrenCode" 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
************************************************************************

ACHTUNG: Die Zeilen

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

bewirken, dass die Standard-Registerkarten NICHT angezeigt werden.
Wenn Sie das nicht wollen - wenn also die Standard-Registerkarten
ZUSTZLICH zu Ihrer eigenen angezeigt werden sollen - dann mssen
Sie diese Zeilen lschen!

************************************************************************

<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="Bcher">
           <button id="erfassen" label="Bcher erfassen" onAction="OnButtonClick"/>
           <button id="suchen" label="Bcher 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 + "AusfhrenCode" 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