Num relatório ou formulário, colocar um botão visível ou não consoante o valor de um campo

Boas,

Estou a tentar fazer com que um botão seja mostrado ou não, consoante um valor da linha da consulta...

Como na imagem1 - não consegui fazer o upload - , o ideal era que o botão apenas fosse mostrado se o valor de OutputBDLar fosse verdadeiro... se noutra linha fosse falso, o botão não seria mostrado nessa linha... (imagem2 - editada com paint).

Ou seja, o resultado que eu queria era como na imagem2 - em anexo. Há maneira dos relatórios de access ou formulários aceitarem isso com código vba? Há outra maneira de o fazer? Por favor, ideias!

A minha ideia seria (em report_current):

Select Case Me.OutputBDLar
   Case True
       Me.btObterSemDados.Visible = True
   Case Else
       Me.btObterSemDados.Visible = False
End Select

Mas não funciona... ou coloca todos os botões visíveis ou invisíveis...

Obrigado,

Tiago

Bom dia TiagoDM !

Como se trata de objetos individualizados no seu formulário, não seria ideal tratado independentemente, dependendo do seu valor ?

Exemplo:

If me.cxselecaox = 2 Then

Me.btObterSemDadosx.Visible = True

Elseif Me.cxselecaoy = 2 Then

Me.btObterSemDadosy.Visible = True

[...]

End If

Boa tarde kleber.arruda, obrigado pela resposta, mas a ideia era que ficasse com o aspeto como mostro abaixo... dessa maneira, continua tudo a aparecer ou a desaparecer...

Talvez me tenha explicado mal... o que pretendia era algo como na imagem abaixo:




Por favor... ideias!

Obrigado,

Tiago.

Boa tarde Tiago !

Acredito, que as imagens reforçam ainda mais o que eu te disse anteriormente.

Cada objeto no seu formulário possui uma descrição que o torna único.

Para tanto você deve tratar cada controle individualmente.

É possível postar parte do seu projeto ?

Boa tarde Kleber, peço desculpa pelo tempo que demoro a responder, mas não consegui mais cedo... posso postar parte do projeto, mas tenho muitas mas mesmo muitas linhas de código só nesse formulário.... posso fazer um ficheiro com o mesmo "problema" e enviar?

Fique a vontade !

OK, a minha BD de teste vai em anexo...

Obrigado

Boa tarde !

Já tentou tratar diretamente no botã [ABRIR]:

Private Sub botao_Click()
'ação quando se clica no botão

If Me.Mostrar_botao.Value = -1 Then

DoCmd.OpenReport "rpDocumento", acViewReport, , "ID=" & Me.ID, acDialog

Else
MsgBox "Não existe relatório a ser emitido"

End If


End Sub

Sim, essa é a solução mais fácil, mas o que queria mesmo era que apenas os botões que têm marcado verdadeiro na outra coluna, apareçam... só no último caso irei fazer assim. Mas obrigado, acaba por ser uma resolução.