Voorwaardelijk printen ?

[RDIE]

Hoi,
Op een formulier heb ik een knop met daaraan een stukje code gekoppeld dat er voor zorgt dat het desbetreffende record in de vorm van een rapportje wordt afgedrukt. Werkt prima.
Code ziet er als volgt uit:

Private Sub Knop345_Click() 'Print dit record via het aangegeven formulier
Dim strWhere As String
    If Me.Dirty Then    'Save any edits.
        Me.Dirty = False
    End If
    If Me.NewRecord Then 'Check there is a record to print
        MsgBox "Select a record to print"
    Else
            strWhere = "[E_Ean1] = """ & Me.[E_Ean1] & """"
            DoCmd.OpenReport "Rapport_OVZ_Detail Klant", acViewPreview, , strWhere
    End If
End Sub

Om het rapport te perfectioneren zou ik er aan willen toevoegen dat bepaalde velden niet worden afgedrukt als één veld de waarde nul heeft.
Dus bijvoorbeeld indien veldA = 0 dan mogen veldB, veldC en veldD niet worden afgedrukt.
Is dat binnen deze code te realiseren en wie helpt me daarbij op weg ?
Alvast hartelijk dank weer.

 

[OctaFish]

Is dat binnen deze code te realiseren en wie helpt me daarbij op weg.

Nee, dat is niet binnen deze code te realiseren. Hoeft ook niet, want daar zijn weer andere triggers voor . In dit geval: de gebeurtenis <Bij opmaken> van de Details sectie. Daar kun je bijvoorbeeld instellen dat een object onzichtbaar moet zijn bij de waarde van dat veld.

Een andere optie, die geen programmeren vereist, is het gebruik van Voorwaardelijke Opmaak. Daar moet het ook mee kunnen.