Usando Access

Não pode executar macro ou função de retorno

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 10x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

Usuário Damasceno:

Bom dia.

Estou com um problema que anda me deixando intrigado: minha ribbon retorna essa mensagem da imagem abaixo, sempre que altero as opções do tipo de feedback.  Somente acontece nesse controle para a fncOnAction, todos os outros funcionam perfeitamente.  Já tentei onAction = "=fncOnAction" e não resolveu. 

Onde estou errando?

Minha referência para o funcionamento das ribbons está ativa, veja:

Suporte:

Olá, Damasceno! Acrescente a parte em vermelho, na função fncOnAction:

Public Sub fncOnAction(control As IRibbonControl, Optional selected As String, Optional selectedIndex As Integer)
...
...

Com o selected ou com o selectedIndex você pode controlar os itens. Um exemplo:

Option Compare Database
Public objRibbon As IRibbonUI
Public TipoFeed As String

Public Sub fncOnAction(control As IRibbonControl, Optional selected As String, Optional selectedIndex As Integer)
On Error GoTo trataerro
Select Case control.Id
    Case "bt1"
        MsgBox TipoFeed
    Case "rgr1"       
   TipoFeed = Switch(selected = "rbt1", "Comentários", selected = "rbt2", "Sugestões", selected = "rbt3", "Problemas")
    Case Else
        MsgBox "clicou no botão " & control.Id, vbInformation, "Aviso"
End Select
sair:
    Exit Sub
trataerro:
    MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Aviso/Alert", Err.HelpFile, Err.HelpContext
    Resume sair:
End Sub

Usuário Damasceno:

Avelino,

também preciso saber como faço para capturar o valor do item selecionado.

Suporte:

Damasceno, através da função fncOnChange,

Option Compare Database
Public objRibbon As IRibbonUI
Public TipoFeed As String
Public strFeedBack as String

Sub fncOnChange(control As IRibbonControl, strText As String)
On Error GoTo trataerro
    Select Case control.Id
        Case "txtFeedback"
             strFeedBack = strText
        Case Else
            MsgBox "Valor do campo:  " & strText, vbInformation, "Aviso"
            objRibbon.Invalidate
    End Select
sair:
    Exit Sub
trataerro:
    MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Aviso", Err.HelpFile, Err.HelpContext
    Resume sair:
End Sub

No botão de enviar é só usar o conteúdo das duas variáveis (TipoFeed  e strFeedBack).

Usuário Damasceno:

Resolvido, Mestre...

Obrigado mais uma vez.

An Invitation

Meet the first tool in the world, developed in Microsoft Access, for the configuration and creation of custom ribbons.   Ribbons have come to stay, therefore it is crucial that you get to know and learn this application!

Click here and get to know everything about this amazing tool!

| Home | Vídeos | Tutoriais | Dicas | Ribbons | Suporte | Downloads | Contato | Artigo |