Alvaro Teixeira 6/11/2017, 11:07
Olá Assis, consegui ver o seu exemplo.
Assim ficou mais fácil para compreender.
Relativamente ao código que pretende, assim funciona a verificação:
- Código:
Private Sub Form_Current()
If Right(Me.Texto33, 1) = "0" Then
Me.Texto33.Visible = False
Else
Me.Texto33.Visible = True
End If
End Sub
No entanto, podemos verificar que não atualiza correctamente, pois o Access faz a verificação mais rápido que atualização das tabelas.
Ou seja, quando faz a verificação o campo ainda não está atualizado. Pode testar e ver o resultado.
Poderia ser resolvido com Refresh ou Delay.
A minha opinião (solução):
1º - Excluir o código no evento "Current"
2º - Na origem da linha do campo
Texto33 colocar:
- Código:
=Ise(Soma(Abs([prod_punit]=0));"Produtos sem Preço " & Soma(Abs([prod_punit]=0));"")
3º - Para a questão do "amarelo" usar a
Formatação CondicionalAbraço