MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Configurando a Ribbon

    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  baldocchi em 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Configurando a Ribbon Empty CONFIGURANDO RIBBON

    Mensagem  marcelo3092 em 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 100%

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

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

    Mensagem  Mylton em 20/2/2019, 10:54

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

    Respeito às Regras 100%

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

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

    Mensagem  baldocchi em 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 100%

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

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

    Mensagem  Alexandre Neves em 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

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/12/2019, 23:34