Ativar ou Desativar botões em uma Ribbon
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 Marcos:
Avelino, parabéns pela grande ajuda que tem dado a todos. Adquiri o seu Kit e me tem sido muito útil.
Tenho uma dúvida com relação a Ribbons.
Gostaria de saber se tem como ativar determinado botão da Ribbon, apenas quando certo campo do formulário for preenchido. Enquanto este botão não for preenchido, o botão da Ribbon deve ficar inativo. Tem como ?
Agradeço a atenção!
Suporte:
Marcos, segue um exemplo que tinha feito para um Americano:
- Abra o formulário frmMain (figura 1).
- Digite alguma coisa no campo Texto1 e dê um Enter para atualizar (figura 2).
- Limpe o campo Texto1 e dê um Enter para atualizar (figura 1).
Figura 1
Figura 2
Usuário Marcos:
Obrigado Avelino,
peguei esse seu exemplo e coloquei um IF nos CASE's de cada botão, verificando se o campo do formulário era null.
Deu certo, ficou perfeito!
...
Select Case control.id
Case "btTabB"
intTab = 2: objRibbon.Invalidate: fncFechaForms
DoCmd.OpenForm "Produtividade-por-Fiscal"
Case "btTabC"
intTab = 3: objRibbon.Invalidate: fncFechaForms: DoCmd.OpenForm "frmDiversos"
Case "btTabD":
If IsNull([Forms]![CLIENTES]![RG]) Then
MsgBox "Selecione o contribuinte antes de tentar ver os Processos"
Else: intTab = 4: objRibbon.Invalidate: DoCmd.OpenForm "FrmProcesso"
End If
...
Muito obrigado pela ajuda.
Download
| Não há comentário |
