bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Não pode executar macro ou função de retorno

... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


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

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?

Ribbons - backsatge

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

Formulário Referências

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.


 

 


Não há comentário

Envie seu comentário: