MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    Estrutura ribbon para todas as versões Access

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    Estrutura ribbon para todas as versões Access Empty Estrutura ribbon para todas as versões Access

    Mensagem  DamascenoJr. 17/10/2021, 20:49

    Sou um amante das ribbons, e estava avesso a um arquivo para cada versão do MS Access para poder usá-las corretamente. Resolvi criar uma estrutura única que mistura todas as marcas que podem variar do Access 2007 ao 365 e então fiz um mapeamento, conforme abaixo. Isso em um único local e uma função que carrega a ribbon adequadamente me poupam o risco de atualizar um arquivo sim e outro não, ou mesmo a surpresa de erros de interface ao acessar a backstage. Espero que sirva para mais alguém.  study

    IDVersõesRuntimeLinha
    12007INDEPENDE<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
    22010-2013-2016-2019-2021-365INDEPENDE<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
    3TODASINDEPENDE<commands>
    42007DESCONSIDERA<command idMso="ApplicationOptionsDialog" enabled="false"/>
    52007INDEPENDE<command idMso="FileExit" enabled="false"/>
    6TODASINDEPENDE<command idMso="Help" enabled="false"/>
    7TODASINDEPENDE</commands>
    8TODASINDEPENDE<ribbon startFromScratch="true">
    92007INDEPENDE<officeMenu>
    102007INDEPENDE<button idMso="FileNewDatabase" visible="false"/>
    112007INDEPENDE<button idMso="FileOpenDatabase" visible="false"/>
    122007INDEPENDE<splitButton idMso="FileSaveAsMenuAccess" visible="false"/>
    132007INDEPENDE<button idMso="FileCloseDatabase" visible="false"/>
    142007INDEPENDE</officeMenu>
    15TODASINDEPENDE</ribbon>
    162010-2013-2016-2019-2021-365INDEPENDE<backstage>
    172010-2013-2016-2019-2021-365DESCONSIDERA<tab idMso="TabInfo" visible="false"/>
    182010-2013-2016-2019-2021-365DESCONSIDERA<tab idMso="TabRecent" visible="false"/>
    192010-2013-2016-2019-2021-365DESCONSIDERA<button idMso="FileSave" visible="false"/>
    202010-2013-2016-2019-2021-365DESCONSIDERA<tab idMso="TabHelp" visible="false"/>
    212010-2013-2016-2019-2021-365DESCONSIDERA<button idMso="FileCloseDatabase" visible="false"/>
    222010-2013-2016-2019-2021-365INDEPENDE<tab idMso="TabPrint" visible="false"/>
    232010-2013-2016-2019-2021-365INDEPENDE<button idMso="ApplicationOptionsDialog" visible="false"/>
    242013-2016-2019-2021-365DESCONSIDERA<tab idMso="TabOfficeStart" visible="false"/>
    252013-2016-2019-2021-365DESCONSIDERA<tab idMso="TabSave" visible="false"/>
    262013-2016-2019-2021-365SOMENTE<button idMso="FileExit" visible="false"/>
    272019-2021-365INDEPENDE<tab idMso="TabOfficeFeedback" visible="false"/>
    282010DESCONSIDERA<button idMso="SaveObjectAs" visible="false"/>
    292010DESCONSIDERA<button idMso="FileSaveAsCurrentFileFormat" visible="false"/>
    302010DESCONSIDERA<button idMso="FileOpen" visible="false"/>
    312010DESCONSIDERA<tab idMso="TabNew" visible="false"/>
    322010DESCONSIDERA<tab idMso="TabShare" visible="false"/>
    332010INDEPENDE<button idMso="FileExit" visible="false"/>
    342021-365DESCONSIDERA<tab idMso="PlaceTabHome" visible="false"/>
    352010-2013-2016-2019-2021-365INDEPENDE</backstage>
    36TODASINDEPENDE</customUI>
    Código:
    Public Function fncCarregaRibbon()
    ' ----------------------------------------------------------------
    ' Propósito : Carregar a Ribbon em tempo de execução
    ' ----------------------------------------------------------------

    On Error GoTo trataErro

        Dim objRs As DAO.Recordset
        Dim strXML As String
        
        Set objRs = CurrentDb.OpenRecordset("select cpLinha " & _
                                            "from tblRibbon " & _
                                            "where (cpVersoes = ""TODAS"" or instr( cpVersoes," & fncVersaoAccess & ") > 0) and cpRuntime <> " & IIf(fncIsRuntime, """DESCONSIDERA"" ", """SOMENTE"" ") & _
                                            "order by cpId;", dbOpenForwardOnly, dbReadOnly)
        
        While Not objRs.EOF
            strXML = strXML & objRs!cpLinha.Value
            Call objRs.MoveNext
        Wend
        
        Call Application.LoadCustomUI("rbTotal", strXML)
        
    sair:
        On Error Resume Next
        Call objRs.Close
        Set objRs = Nothing
        Exit Function
        
    trataErro:
        Resume sair

    End Function


    Última edição por DamascenoJr. em 22/4/2022, 00:17, editado 2 vez(es) (Motivo da edição : Previsão da versão 2021)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Avelino Sampaio e Marcelo David gostam desta mensagem

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3898
    Registrado : 21/04/2011

    Estrutura ribbon para todas as versões Access Empty Re: Estrutura ribbon para todas as versões Access

    Mensagem  Marcelo David 18/10/2021, 13:13

    Será de muita utilidade. Obrigado por compartilhar! cheers


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    Estrutura ribbon para todas as versões Access Marcel11

    DamascenoJr. gosta desta mensagem

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7936
    Registrado : 15/03/2013

    Estrutura ribbon para todas as versões Access Empty Re: Estrutura ribbon para todas as versões Access

    Mensagem  Alvaro Teixeira 18/10/2021, 23:47

    Olá Ivan,

    Ribbon não estou muito por dentro, nem tenho utilizado muito Very Happy , no entanto os meus parabéns pela sua dedicação ao MsAccess e partilha do conhecimento.

    Obrigado e forte Abraço de terras Lusas

    DamascenoJr. gosta desta mensagem

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    Estrutura ribbon para todas as versões Access Empty Re: Estrutura ribbon para todas as versões Access

    Mensagem  DamascenoJr. 13/4/2022, 01:29

    Tabela da mensagem nº 1 atualizada.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado


    Estrutura ribbon para todas as versões Access Empty Re: Estrutura ribbon para todas as versões Access

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/7/2024, 16:29