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é 5x 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.
| Não há comentário |
