Hide fields that don't have value in a Report

[Vandacardoso]

Hi,

I need some help width a problem. I need to hide some fields and labels that don't have value on it in the report. I have tried this code:

Option Compare Database



Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)


End Sub
Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
If IsNull(Me.apoiofinanceiroaprovado) Or Me.apoiofinanceiroaprovado = "" Then
Me.Rótulo45_Rótulo.Visible = False
Else
Exit Sub
End If


End Sub
But it don't work. The field and the label without values are still appearing on the report.
Could someone help me?
Regards

[ItsMe]

You need to place your code in the Detail's Format event. You have it in the Print and this is too late. The report has already rendered by then.

[Vandacardoso]

Hi,

I tried this:

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)


End Sub


Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
If IsNull(Me.apoiofinanceiroaprovado) Or Me.apoiofinanceiroaprovado = "" Then
Me.Rótulo45_Rótulo.Visible = False
Else
Exit Sub
End If


End Sub
And its not working to. Can You explain me why?

[ItsMe]

I am going to guess Detalhe translates to Detail.

I would try something like this. I just looked at some of my code and I have examples of using the Visible property in the Detail Format of Reports.
.
Else
Me.Rótulo45_Rótulo.Visible = True
End If


Here is one of my examples.

If Me.DispFeet.Value = -1 Then
Dim sglFeet As Single
    sglFeet = Me.PieceSize.Value
    Me.txtFeet.Value = sglFeet / 12 'adjust the unit of measurement to feet from inches
    Me.txtFeet.Visible = True
    Me.PieceSize.Visible = False
Else
    Me.txtFeet.Visible = False
    Me.PieceSize.Visible = True
End If

[Vandacardoso]

Thanks for Your Help!
I wrote based on Your code this code:

Private Sub Detalhe_Format()


End Sub


If Me.apoiofinanceiroaprovado.Value = 0 Then
Dim apoiofinanceiroaprovado As Single
Me.apoiofinanceiroaprovado.Visible = True
Me.apoiofinanaceiro_Rótulo.Visible = False
Else
Me.apoiofinanceiroaprovado.Visible = False
End If

Yes Detalhe is Detail and is were the field is. The name of the field is apoiofinanceiroaprovado. And apoiofinanceiro_Rótulo is the title of the Field.
Anyway, Your code don't work to.
I have seen the first code I wrote here work if the area is the Header_Print. But with Detail_Print don't work and Detail_Format don't work to.
I don't know if is the version of the access I have. It is possible?

[orange]

I suggest you use code tags when showing code.

Type your vba (or copy/paste) then select/highlight, then click the # sign in the row above this posting area.

Private Sub Detalhe_Format()


End Sub '???????????????????????????????????????????


If Me.apoiofinanceiroaprovado.Value = 0 Then
Dim apoiofinanceiroaprovado As Single
    Me.apoiofinanceiroaprovado.Visible = True
    Me.apoiofinanaceiro_Rótulo.Visible = False
Else
    Me.apoiofinanceiroaprovado.Visible = False
End If

'End Sub should be here !!!!!!!!!!!!!!!

But in your code, you have the End Sub in the wrong place.

[Vandacardoso]

Don't work Your code!!! I copy and paste your code but nothing works.
It send a message: "Procedure declaration does not match description of event or procedure having the same name"
And says to that is expected a name of the macro?????
If I take off the name "Sub" he don't send message of error, but don't hide the field to.

I don't understand nothing of VBA code.
Can I send You the Zip file of the Data Base? Maybe You can do it to work.
Thanks for all your help!

[ItsMe]

I think the issue here is the detail section works a lot like a continuous form(NOT True). Whatever the properties are of the first control, the properties of the subsequent controls will be the same.

Edit: The above statement is not correct. I was mistaken and tested the following code. It works just fine, hiding abbreviations for states like California while showing abbreviations for states like Alabama.

If InStr(Me.States.Value, "C") Then
    Me.Abbreviations.Visible = False
Else
    Me.Abbreviations.Visible = True
End If

[Vandacardoso]

I wrote the following code:

If InStr(Me.apoiofinanceiroaprovado.Value, "") Then    Me.apoiofinanceiroaprovado.Visible = False
Else
    Me.apoiofinanceiroaprovado.Visible = True
End If

And it is not working!!! I don't know what to do more!!!! This code give me a message: Procedure declaration does not match description of event or procedure having the same name.
What did I do wrong?

[orange]

This does not help

And it is not working!

What are you trying to do in plain English? Show us a sample of input and expected output.
Do you get an error message? If so, what is the message?

If English is not your mother tongue, then write a description in your native language and use Google translate to get English output.

You do not need .value. It seems you may have 2 things with the same name??? Have you tried google to see if others have had the error?
see https://msdn.microsoft.com/en-us/lib.../gg264805.aspx

For examples and syntax of Access functions

[Vandacardoso]

Orange
I have wrote the code that the user ItsMe wrote on this topic forum. In her code there was ".value". I try all the codes people send me here. But none of them work.
And I don't understand nothing of VBA code.
I send here an image of what I want.

[orange]

Perhaps it's time to learn some vba. FunctionX vba Tutorials

[Vandacardoso]

Thanks for Your help. I am going to look for those tutorials.

[ItsMe]

You have

If InStr(Me.apoiofinanceiroaprovado.Value, "") Then    Me.apoiofinanceiroaprovado.Visible = False
Else
    Me.apoiofinanceiroaprovado.Visible = True
End If

I would use this to check for null. Make sure you start a new line after "Then" and after "False" and after "Else" and after "True"

If isnull(Me.apoiofinanceiroaprovado.Value) Then
    Me.apoiofinanceiroaprovado.Visible = False
Else
    Me.apoiofinanceiroaprovado.Visible = True
End If

[Vandacardoso]

Hi,
This code don't work ;-( .
I don't know what to do anymore!!!!
But thanks for your help ItsMe!