Codigo para ativar botão está errado.

Tenho este código para ativar (ou tornar visível) um botão só se o campo "Saldo" for menor que "0".

Mas se o "Saldo" for "0" ou maior que "0" o botão mantêm-se visível!

O que está errado?

A propriedade do botão é "Visível: não"

Código:

Private Sub Form_Current()
If Me.Saldo < 0 Then Me.btAS.Visible = True
End Sub

Se colocar assim:

Código:

Private Sub Form_Current()
If Me.Saldo < 0 Then Me.btAS.Visible = True
Else: Me.btAS.Visible = False
End Sub

Dá o erro:
Compile error:
Else without If

ola Boa noite

tenta colocar assim
CÓDIGO:
Private Sub Form_Current()
If Me.Saldo = 0 Then
Me.btAS.Visible = True
else
me.btas.visible=false
end if

End Sub

Não funciona Marcelo.

Tenho um exemplo neste BD, "Access 2016, Database1.accdb".

No formulário aberto quero que o botão "Abrir relatório" esteja visível apenas se o valor do "Saldo" for menor que zero.


Entretanto com as pesquisas que tenho feito parece que não é possível fazer isso com um botão num formulário contínuo.

Como posso fazer isso com uma caixa de texto? Talvez o problema seja por ser um formulário contínuo...

Encontrei a solução.

Não é possível fazer o que pretendia num formulário contínuo.

Usei um campo calculado na consulta.

Para explicar de maneira simples:
1- na consulta (agrupada) criei um campo calculado "txtRelatório";
   - se "Saldo" menor que zero "Abrir relatório";""; (ou seja: txtRelatório: Ise([SomaDeValue]<0;"Abrir Relatório";"")
   - Total: expressão.
2 - No formulário, na caixa do novo campo; no evento 'ao fazer clique', na macro para abrir o relatório no início acrescentei:
   - Se "txtRelatório" é nulo, Cancela; Else, continua a macro "abrir relatório".

o fórum agradece o retorno