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

4 participantes

    [Resolvido]Configurando a Ribbon

    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 03/11/2014

    [Resolvido]Configurando a Ribbon Empty [Resolvido]Configurando a Ribbon

    Mensagem  baldocchi 19/2/2019, 19:31

    Boa tarde,

    Eu consegui configurar uma Ribbon, porém as macros que coloquei nela não funcionam.
    Coloquei as macros depois dos comandos onAction=
    por favor, alguém pode me ajudar falando o que está errado?
    Obrigado

    ** troquei o < por '
    'mso:customUI xmlns:x1="http://schemas.microsoft.com/office/2009/07/customui/macro" xmlns:mso="http://schemas.microsoft.com/office/2009/07/customui">
    'mso:ribbon>
    'mso:qat/>
    'mso:tabs>
    'mso:tab id="mso_c1.F86E4C1" label="Sistema DIACON">
    'mso:group id="mso_c2.F86E4C1" label="Exportar" imageMso="RmsNavigationBar" autoScale="true">
    'mso:control idQ="mso:ExportExcel" visible="true"/>
    'mso:control idQ="mso:ExportWord" visible="true"/>
    '/mso:group>
    'mso:group id="mso_c1.F8AF3B1" label="Módulos" imageMso="ListMacros" autoScale="true">
    'mso:button idQ="x1:mFNDE_LANCA_0_F8BBB09" label="Lançamentos FNDE" imageMso="Bullets" onAction="mFNDE_LANCA" visible="true"/>
    'mso:button idQ="x1:mContPastas_0_FC64608" label="Prestações" imageMso="ControlTabControl" onAction="mContPastas" visible="true"/>
    'mso:button idQ="x1:mLeis_0_1040162D" label="Legislação" imageMso="SetPertWeights" onAction="mLeis" visible="true"/>
    'mso:button idQ="x1:mProcessos_0_1512DB02" label="Processos" imageMso="DiagramRadialInsertClassic" onAction="mProcessos" visible="true"/>
    'mso:button idQ="x1:mLogin_0_160B58E6" label="Login" imageMso="AdpPrimaryKey" onAction="mLogin" visible="true"/>
    'mso:button idQ="x1:mCadFunc_0_16479697" label="Funcionários" imageMso="CondolatoryEvent" onAction="mCadFunc" visible="true"/>
    '/mso:group>
    'mso:group id="mso_c1.FA892E2" label="Manutenção" imageMso="ChartRadarChart" autoScale="true">
    'mso:button idQ="x1:mConfig_0_15B7F1B4" label="Configuração" imageMso="TableDesign" onAction="mConfig" visible="true"/>
    '/mso:group>
    'mso:control idQ="mso:MailMergeGoToFirstRecord" visible="true"/>
    'mso:control idQ="mso:MailMergeGoToPreviousRecord" visible="true"/>
    'mso:control idQ="mso:MailMergeGoToNextRecord" visible="true"/>
    'mso:control idQ="mso:MailMergeGotToLastRecord" visible="true"/>
    'mso:control idQ="mso:GoToNewRecord" visible="true"/>
    'mso:control idQ="mso:RecordsDeleteRecord" visible="true"/>
    'mso:control idQ="mso:RecordsSaveRecord" visible="true"/>
    'mso:control idQ="mso:DataRefreshAll" visible="true"/>
    '/mso:group>
    '/mso:tab>
    '/mso:tabs>
    '/mso:ribbon>
    '/mso:customUI>


    Última edição por baldocchi em 1/3/2019, 12:27, editado 2 vez(es)
    marcelo3092
    marcelo3092
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 250
    Registrado : 19/08/2010

    [Resolvido]Configurando a Ribbon Empty CONFIGURANDO RIBBON

    Mensagem  marcelo3092 19/2/2019, 20:49

    Ola amigo eu não uso macro eu uso modulo.

    no botão eu uso essa função

    id = "btCLIENTE"
    image="businessman-closeup.PNG"       ' essa imagem e salva na pasta do sistema
    label = "CLIENTES"
    onAction ="=fncAbrirObjeto('Frm_Clientes' ,1)"         ' o numero 1 significa formulario.
    size = "large"
    />


    Public Function fncAbrirObjeto(nomeObjeto As String, Optional tipoObjeto As Byte = 4)
    On Error GoTo trataerro
    Select Case tipoObjeto
       Case 1 'formulário
           DoCmd.OpenForm nomeObjeto
       Case 2 'relatório
           DoCmd.OpenReport nomeObjeto, acViewPreview
       Case 3 ' consulta
           DoCmd.OpenQuery nomeObjeto
       Case Else
           MsgBox "selecione o tipo de objeto correto." & vbCrLf & vbCrLf & "1 - Formulário" & vbCrLf & "2 - Relatório" & vbCrLf & "3 - Consulta", vbInformation, "Aviso"
    End Select
    Sair:
       Exit Function
    trataerro:
       MsgBox "Erro: " & Err.Number & vbCrLf & Err.description, vbCritical, "Aviso", Err.HelpFile, Err.HelpContext
       Resume Sair:
    End Function



    Fazer macro para abrir formulario da muita macro.

    porem vc coloco os dois modulos das ribbons mod_ribbon e mod_getRibbon
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 23/08/2010

    [Resolvido]Configurando a Ribbon Empty Re: [Resolvido]Configurando a Ribbon

    Mensagem  Mylton 20/2/2019, 10:54

    Uma forma interessante é utilizar menu do tipo sidemenu.
    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 03/11/2014

    [Resolvido]Configurando a Ribbon Empty Re: [Resolvido]Configurando a Ribbon

    Mensagem  baldocchi 20/2/2019, 13:06

    Olá marcelo3092,

    MUITO OBRIGADO.

    Funcionou perfeitamente.

    Deus o abençoe.


    Abraços
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8002
    Registrado : 05/11/2009

    [Resolvido]Configurando a Ribbon Empty Re: [Resolvido]Configurando a Ribbon

    Mensagem  Alexandre Neves 21/2/2019, 10:35

    Bom dia
    Adeqúe o título e respeite as regras do fórum, nomeadamente a de não escrever em maiúsculas


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: 1/8/2021, 11:26