Menu en Werkbalken creëren

[Sytse1]

Als ik mijn database gereed heb wil ik altijd mijn eigen menu's hierin hebben.
Met oude Access toepassingen was dit betrekkelijk eenvoudig te realiseren.
Met de 2016 versie is het mij nog niet gelukt.
Ook op internet heb ik hier niet veel over kunnen vinden.
In de macro voor de menuopdrachtinstellen wordt gevraagd om een index en een vervolgindex.
Volgens mij moet daarna in het form of rapport bij menubalk naar de macro verwezen worden.
Weet iemand waar ik de goede informatie kan vinden om mbv access 2016 een eigen menubalk kan maken?
bvd
Sytse

 

[Sytse1]

Menu en Lint in Access 2016

Aangezien er geen reactie op mijn bericht kwam ben ik op Internet gaan speuren.
Er wordt over dit onderwerp uitgebreid gediscussieerd.
Wellicht voor degenen die in dit forum ook met deze problematiek te maken hebben in het kort mijn bevindingen.
Bij MS is wat info te vinden niet erg duidelijk en specifiek voor Access 2016 niet. Nu blijkt Access 2007 voor het lint en de het menu dezelfde te werken.
https://support.office.com/nl-nl/ar...croactie-de9a0cc7-73a9-4476-9260-5ef249f51afb
geeft informatie en https://msdn.microsoft.com/en-us/library/office/ff193803.aspx
Ook op de site van http://stackoverflow.com/questions/38015690/how-to-hide-the-access-2016-home-ribbon-tab-through-vba
is veel informatie te vinden.
Maar je moet vaak met de systeem db van Access werken of met VBA.
De meest simpele oplossing is volgens mij het volgende.
Maak van elk formulier een popup formulier en maximaliseer alle formulieren.
Met opdrachtknoppen bestuur je dan je applicatie en de standaard menu's en lint zijn niet zichtbaar.
Vergeet niet om bij de opdrachtknop op te nemen dat het formulier dat je verlaat moet sluiten! (anders krijg je het volgende formulier niet te zien)

Wat ook nog mogelijk is om een programma voor € 32,- aan te schaffen. (Engels of Duits) Waarmee je o.a. zelf menu's en linten kan maken.
Kijk hiervoor op deze site: http://www.ribboncreator2016.de/
Hieronder kort wat vertaalde info.
Met dit programma kan je aangepaste linten creëren, waar je de volgende groepen tabs kan realiseren zoals;
Knoppen (groot of klein)
ToggleButtons (groot of klein)
invoervelden,
checkboxes,
DropDown Controls,
ComboBox Controls,
ButtonGroups
knop
ToggleButton,
SplitButtons (groot of klein)
Galerieën (groot en klein),
Menu's (groot en klein),
Dynamische menu's (groot en klein) en Afscheiders (in menu's ook met Tekst) kan plaatsen.

Voor de selectie van een afbeelding is een passende dialoog beschikbaar.
Ook voor eigen foto's kan worden gekozen voor een Lint Control (dit kan worden geschreven in Access in een database tabel).
ScreenTips, Supertip en KeyTip kan worden ingesteld voor de controles ter ondersteuning van deze functie.
Controle idMso opdrachten kunnen voor Access, Excel, Microsoft PowerPoint en Word voor de Ribbon Controls:
Groepen worden geselecteerd, Button, ToggleButton, Split-knop en Gallery.
De gecreëerde lint XML kan desgewenst met de door de gebruiker gedefinieerde beelden worden direct geschreven naar een Access 2016 database. Callbacks worden gekopieerd in de database, de vereiste Office referenties worden ingesteld.
De Ribbon XML (het lint) kan worden geladen vanuit Access, Excel, Word, of vanuit een XML-bestand terug in de RibbonCreator 2016
Een geïntegreerde callback editor voor het bewerken van de callback (alleen Access) is inbegrepen.
Bovendien kan de callback oproepen afzonderlijk worden gewijzigd voor elke controle.
Een online hulp wordt geïntegreerd.
RibbonCreator 2016 zal permanent uitgebreid en verlengd.
Controleer regelmatig op onze site voor nieuwe updates.
Sytse

 

[Sytse1]

Voor degene die zich toch middels VBA, toetsen in of uit wil schakelen hieronder een aanzet die je in het startformulier (b.v. Hoofdmenu) bij laden moet zetten.

Private Sub Form_Load()
   ' OpstarteigenschappenInstellen 
    EigenschapWijzigen "StartupForm", dbText, "Hoofdmenu" 
    EigenschapWijzigen "StartupShowDBWindow", dbBoolean, False
    EigenschapWijzigen "StartupShowStatusBar", dbBoolean, False
    EigenschapWijzigen "AllowBuiltinToolbars", dbBoolean, False
    EigenschapWijzigen "AllowFullMenus", dbBoolean, False
    EigenschapWijzigen "AllowBreakIntoCode", dbBoolean, False
    EigenschapWijzigen "AllowSpecialKeys", dbBoolean, False
    EigenschapWijzigen "AllowBypassKey", dbBoolean, False
End Sub

Function EigenschapWijzigen(strNaamEigenschap As String, varTypeEigenschap As Variant, varWaardeEigenschap As Variant) As Integer
    Dim dbs As Database, prp As Property
    Const conEigenschapNietGevondenFout = 3270

    Set dbs = CurrentDb
    On Error GoTo Wijzigen_Err
    dbs.Properties(strNaamEigenschap) = varWaardeEigenschap
    EigenschapWijzigen = True
Wijzigen_Bye:
    Exit Function
Wijzigen_Err:
If Err = conEigenschapNietGevondenFout Then ' Eigenschap niet gevonden.
        Set prp = dbs.CreateProperty(strNaamEigenschap, _
            varTypeEigenschap, varWaardeEigenschap)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Onbekende fout.
        EigenschapWijzigen = False
        Resume Wijzigen_Bye
    End If
End Function