Lav 0 til blanke felter

Sæt følgende ind i hændelsen "VedUdskrivning" i detaljesektionen:

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

If Me!Flow < 20000 Then
    Me!Flow.Visible = False
Else
    Me!Flow.Visible = True
End If

End Sub

UPS! Flow skal erstattes med med navnet på dit felt.

Hvad nu hvis der er flere felter ?

Hvis du ikke vil miste rammen kan du bruge denne


Private Sub Detaljesektion_Print(Cancel As Integer, PrintCount As Integer)
Dim ForgrundsFarve, BaggrundsFarve As Long

ForgrundsFarve = 0
BaggrundsFarve = 16777215

If Me!FeltNavn = 0 Then
    Me!FeltNavn.ForeColor = ForgrundsFarve
Else
    Me!FeltNavn.ForeColor = BaggrundsFarve
End If

End Sub

Flere felter:

Private Sub Detaljesektion_Print(Cancel As Integer, PrintCount As Integer)
Dim ForgrundsFarve, BaggrundsFarve As Long

ForgrundsFarve = 0
BaggrundsFarve = 16777215

If Me!FeltNavn1 = 0 Then
    Me!FeltNavn1.ForeColor = ForgrundsFarve
Else
    Me!FeltNavn1.ForeColor = BaggrundsFarve
End If
If Me!FeltNavn2 = 0 Then
    Me!FeltNavn2.ForeColor = ForgrundsFarve
Else
    Me!FeltNavn2.ForeColor = BaggrundsFarve
End If

End Sub

Oki det ser ud til at virke... Men så er der til gengæld opstået et andet problem, nogle af felterne indeholder bindestreg i feltnavnet og det vil den ikke rigtig acceptere. Hvad gør jeg lige ?

Når du skriver feltnavnet skal det i firkantede parenteser - f.eks.:

Me![FeltNavn-1].ForeColor = ForgrundsFarve

Mange tak skal du have, det ser ud til at virke.

Jamen det var da så lidt. :0)