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

2 participantes

    Combobox na Ribbon IDBE RibbonCreator 2016

    avatar
    renatojmaia
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 54
    Registrado : 16/11/2012

    Combobox na Ribbon IDBE RibbonCreator 2016  Empty Combobox na Ribbon IDBE RibbonCreator 2016

    Mensagem  renatojmaia 13/1/2022, 00:54

    Boa noite, Sou novo em vba, estou com dificuldade na construção do código para realizar a chamada de relatório via combobox, criada no IDBE RibbonCreator 2016, tentei algumas possibilidade com estrutura de "Case" mais não funcionaou.

    Tenho a seguinte estrutu na modulo basRibbonCallbacks

    Código:
    Sub OnChangeComboBox(control As IRibbonControl, _
                                    strText As String)
        
        ' Callbackname im XML File "OnChangeCombobox"
        ' Callback onChange (Combobox)
         Select Case control.id
         Case Is = "cmb1"
            Case cmb1Item0
                DoCmd.OpenReport "Relatorio1", acViewReport, "", "", acNormal
        
            Case cmb1Item1
                DoCmd.OpenReport "Relatorio2", acViewReport, "", "", acNormal
        
            Case cmb1Item2
                DoCmd.OpenReport "Relatorio3", acViewReport, "", "", acNormal
            
        Case Else
            MsgBox "The selected Item of Combobox-Control """ & control.id & """ is : """ & strText & """" & vbCrLf & _
                       "Das selektierte Item des Combobox-Control """ & control.id & """ ist : """ & strText & """", _
                       vbInformation
        End Select

    End Sub


    Gostaria de ajuda no sentido colocar pra funcaionar
    Anexos
    Combobox na Ribbon IDBE RibbonCreator 2016  AttachmentTesteRibbon.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (72 Kb) Baixado 11 vez(es)


    Última edição por renatojmaia em 13/1/2022, 12:02, editado 3 vez(es) (Motivo da edição : ajuste do código)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2166
    Registrado : 23/01/2018

    Combobox na Ribbon IDBE RibbonCreator 2016  Empty Re: Combobox na Ribbon IDBE RibbonCreator 2016

    Mensagem  crysostomo 15/1/2022, 20:00

    Boa tarde.
    Tem que está Case Is= em todos

    Caso é/exista no Bd

    Case Is= "item1"
       Abre-se o relatório
       DoCmd.OpenReport  

    Caso é/exista no Bd

    Case Is=" item2
        Abre-se o relatório
       DoCmd.OpenReport


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 24/9/2022, 20:30