[Resolvido]Ocultar Rótulo

Boa tarde,

Tenho um relatório que pretendo ocultar a caixa de texto e o rótulo referente a informação. A caixa de texto ok, não aparece quando não há dados, mas o rótulo permanece... Poderiam me ajudar, e dizer onde está o erro?

Private Sub Report_Current()
Dim r As String

For r = 0 To 4

If IsNull(Me("tex" & r)) Or Me("tex" & r).Value = "" Then
Me("tex" & r).Visible = False
Me("rot" & r).Caption = ""
Me("tex" & r).Height = 0
Me("rot" & r).Height = 0

Else
Me("tex" & r).Visible = True

End If

Next

End Sub

Olá Cláudia.

Veja se funciona.

If IsNull(Me("tex" & r)) Or Me("tex" & r).Value = "" Then
Me("tex" & r).Visible = False
Me("rot" & r).Caption = ""
Me.rot.Visible = False
Me("tex" & r).Height = 0
Me("rot" & r).Height = 0

Else
Me("tex" & r).Visible = True
Me.rot.Visible = True

End If

Oi, já tentei, mas não dá certo....

Mas exibe algum erro?
Qual a mensagem?
Em que parte do se relatório estrá colocando este código? Em Detalhes?

Não dá erro nenhum, simplesmente não oculta o rótulo. Estou colocando a rotina No Atual do Relatório...

Tente o evento Ao formatar da seção onde estão os controles.

Era extamante isso que eu pensava como o Cláudio Más postou.

Não deu certo. Erro de compilação, tipos incompatíveis.

Tente assim:

For r = "0" To "4"

Aí pessoal, não funcionou.... continua dando o mesmo erro...não aceita que eu coloque o evento no ao formatar...aparece a msg tipos incompatíveis e aponta para o "r".... Deixa eu falar uma coisa esse evento está vinculado diretamente em um relatório que foi acoplado como subrelatório em outro... obrigada pela ajuda até o momento...

Private Sub CabeçalhoDoGrupo1_Format(Cancel As Integer, FormatCount As Integer)

Dim r As String

For r = "1" To "4"

If IsNull(Me("tex" & r)) Or Me("tex" & r).Value = "" Then
Me("tex" & r).Visible = False
Me("rot" & r).Visible = False
Else
Me("tex" & r).Visible = True
Me("rot" & r).Visible = True

End If

Next

End Sub

Poderia enviar uma cópia do banco de dados?

Tentei mas é muito grande, vou ver se consigo salvar em um bd só as tabelas e o relatório, ok... Obrigada

Ok, disponha.

Cláudio, bom dia. Salvei uma versão mais leve, veja se consegue abrir... Desde já muito obrigada.

veja se foi agora...

Cláudia, não estou achando o código em nenhum dos relatórios...

Bom dia.. Desculpe, segue novamente

Olá Cláudia, o único relatório que encontrei controles nomeados "tex..." (1 a 4) foi o OS_Ficha2.

Tente o código abaixo no evento Ao formatar do Cabeçalho Controle do relatório OS_Ficha2:

Código:

On Error Resume Next

Dim r

For r = "1" To "4"

    If IsNull(Me("tex" & r)) Or Me("tex" & r).Value = "" Then
        Me("tex" & r).Visible = False
        Me("rot" & r).Visible = False
        Me("tex" & r).Height = 0
        Me("rot" & r).Height = 0
    Else
        Me("tex" & r).Visible = True
        Me("rot" & r).Visible = True
    End If

Next

Oi Cláudio, bom dia. Realmente é o Relatório OS-Ficha2, que é um sub-relatório do Ordem_Serviço. Os registros não aparecem, assim como o rótulo, mas para todos os registros. O critério não funciona.

Cláudia, desculpe mas não consegui uma solução para o problema.

Cláudia, apenas como observação...
...porque não cria um código para cada campo?
Assim pode verificar se apresentará o mesmo problema.

Obrigado funcionou alterando o critério.

Bom dia !

Resolvido...

Poste por favor a forma usada para solução, isso pode esclarecer possíveis dúvidas e problemas futuramente.
Grato.

Claro...

Private Sub CabeçalhoDoGrupo1_Format(Cancel As Integer, FormatCount As Integer)
On Error Resume Next

Dim R

For R = "1" To "4"

If Me.Tipo_OS = "INSTRUÇÃO" Then

Me("tex" & R).Visible = False
Me("rot" & R).Visible = False
Me("tex" & R).Height = 0
Me("rot" & R).Height = 0
Me("tex" & R).Top = 336.231
Me("rot" & R).Top = 336.231
Me.CabeçalhoDoGrupo1.Height = 737.1

Me.Procedimentos_OS_sub_relatório1.Report.Controls("Riscos").Visible = False
Me.Procedimentos_OS_sub_relatório1.Report.Controls("Riscos_Rótulo").Visible = False
Me.Procedimentos_OS_sub_relatório1.Report.Controls("Descrição_Procedimento_Rótulo").Width = 10191.825
Me.Procedimentos_OS_sub_relatório1.Report.Controls("Descrição_Procedimento").Width = 10191.825
Me.Procedimentos_OS_sub_relatório1.Report.Controls("Descrição_Procedimento_Rótulo").Caption = "DESCRIÇÃO DA INSTRUÇÃO DE SEGURANÇA"


Else
Me("tex" & R).Visible = True
Me("rot" & R).Visible = True
Me("tex" & R).Height = 336.231
Me("rot" & R).Height = 336.231
Me("tex" & R).Top = 737.1
Me("rot" & R).Top = 737.1
Me.CabeçalhoDoGrupo1.Height = 2268
Me.Procedimentos_OS_sub_relatório1.Report.Controls("Riscos").Visible = True
Me.Procedimentos_OS_sub_relatório1.Report.Controls("Riscos_Rótulo").Visible = True
Me.Procedimentos_OS_sub_relatório1.Report.Controls("Descrição_Procedimento_Rótulo").Width = 7516.152
Me.Procedimentos_OS_sub_relatório1.Report.Controls("Descrição_Procedimento").Width = 7516.152
Me.Procedimentos_OS_sub_relatório1.Report.Controls("Descrição_Procedimento_Rótulo").Caption = "DESCRIÇÃO DO PROCEDIMENTO OU ATIVIDADE DESENVOLVIDA"
End If

Next
End Sub

o Fórum agradece pelo retorno.

Sucesso!