Boa noite, caros amigo.
Antes de mais nada agradeço pelas agradeço pelas ajudas prestadas.
Vamos ao caso. Estou criando um relatório onde ao carrega-lo é feito um testes em dois campos se eles forem verdadeiros alguns campos de texto são exibidos e outros são ocultos!! o Problema é que ele não faz o teste e td os campos ficam visíveis.
Peço novamente a grandiosa ajuda dos amigos.
Segue o código que fiz ao carregar o relatório.
Private Sub Report_Load()
Me.id_super.Visible = False
If Me!id_super.Value = 607 And Me!VALOR.Value <> 4000 Then
Me.super.Visible = False
Me.Texto35.Visible = True
Me.Texto34.Visible = True
Me.Texto52.Visible = True
Me.Texto65.Visible = False
ElseIf Me!id_super.Value = 607 And Me!VALOR.Value = 4000 Then
Me.super.Visible = False
Me.Texto35.Visible = True
Me.Texto34.Visible = True
Me.Texto52.Visible = True
Me.Texto65.Visible = False
ElseIf Me.id_super.Value <> 607 And Me.VALOR.Value <= 4000 Then
Me.super.Visible = True
Me.Texto35.Visible = False
Me.Texto34.Visible = False
Me.Texto52.Visible = False
Me.Texto65.Visible = True
End If
End Sub
Antes de mais nada agradeço pelas agradeço pelas ajudas prestadas.
Vamos ao caso. Estou criando um relatório onde ao carrega-lo é feito um testes em dois campos se eles forem verdadeiros alguns campos de texto são exibidos e outros são ocultos!! o Problema é que ele não faz o teste e td os campos ficam visíveis.
Peço novamente a grandiosa ajuda dos amigos.
Segue o código que fiz ao carregar o relatório.
Private Sub Report_Load()
Me.id_super.Visible = False
If Me!id_super.Value = 607 And Me!VALOR.Value <> 4000 Then
Me.super.Visible = False
Me.Texto35.Visible = True
Me.Texto34.Visible = True
Me.Texto52.Visible = True
Me.Texto65.Visible = False
ElseIf Me!id_super.Value = 607 And Me!VALOR.Value = 4000 Then
Me.super.Visible = False
Me.Texto35.Visible = True
Me.Texto34.Visible = True
Me.Texto52.Visible = True
Me.Texto65.Visible = False
ElseIf Me.id_super.Value <> 607 And Me.VALOR.Value <= 4000 Then
Me.super.Visible = True
Me.Texto35.Visible = False
Me.Texto34.Visible = False
Me.Texto52.Visible = False
Me.Texto65.Visible = True
End If
End Sub