Lijnen verbergen in een rapport

[bergjes]

Hallo,

ik zoek me suf naar een manier om lijnen te verbergen in een rapport als ze aan een bepaalde voorwaarde voldoen.
(de waarde van een bepaald veld)

- voorwaardelijke opmaak werkt niet op "lijnen"
- ik heb geprobeerd er een tekstvak overheen te plaatsen, en die te sturen met voorwaardelijke opmaak,
maar hier kan ik we l de achtergrond kleur zetten maar niet de achtergrondstijl op transparant.

Heeft iemand een suggestie hoe ik dit kan oplossen?

Gr,
Erik

 

[rebmog]

Je zult gebruik moeten maken van de gebeurtenis "bij opmaken" van de detail-sectie van je rapport. Je kunt eens proberen om daar vba-code met de volgende strekking op te nemen:

If voorwaarde Then
Me.lijn.Visible=True
Else
Me.lijn.Visible=False
End If

Rebmog

 

[bergjes]

Het is gelukt!

Met behulp van onderstaande code. (geplaats in detail sectie, gebeurtenis bij afdrukken)

Private Sub Details_Print(Cancel As Integer, PrintCount As Integer)
If Me.naam_1 = "" Then
Me.vlak_1.Visible = True
Else
Me.vlak_1.Visible = False
End If

If Me.naam_2 = "" Then
Me.vlak_2.Visible = True
Else
Me.vlak_2.Visible = False
End If

If Me.naam_3 = "" Then
Me.vlak_3.Visible = True
Else
Me.vlak_3.Visible = False
End If

End Sub

Bedankt!

Erik

 

[OctaFish]

De code kan nog iets netter:

For i=1 To 3
If Me("naam_" & i) = "" Then
     Me("vlak_"i).Visible = True
Else
     Me("vlak_"i).Visible = True
End If

End Sub

Deze code heeft als voordeel dat je nog veel meer vlakken en lijnen kunt maken/gebuiken.

 

[bergjes]

Hoi Octafish.

Bedankt voor je code, klinkt logisch.
Echter ik krijg het toch niet goed werkend.

Ik voeg onderstaande code in, maar er gebeurdt niets?
Het rapport kan ik gewoon openen, maar afdrukken lukt niet?
Het is net of er wordt afgedrukt, maar er komt niets uit de printer.

Doe ik iets fout?

Private Sub Details_Print(Cancel As Integer, PrintCount As Integer)
For i = 1 To 3
If Me("naam_" & i) = "" Then
Me("vlak_" & i).Visible = True
Else
Me("vlak_" & i).Visible = False
End If
End Sub

Oh ja,
als ik de regel End Sub direct onder End If plaats dan krijg ik wel een foutmelding:
compileerfout: For zonder Next.
Als ik tussen die twee regels een lege regel plaats krijg ik de foutmelding niet?

Gr,
Erik