... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,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.


Ativar ou Desativar botões em uma Ribbon

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

Ribbon uso do getVisible


 

Figura 2

Ribbon uso do getVisible

 

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

Envie seu comentário: