Grå linie i rapport

Microsoft har lavet nogen eksempeldatabaser som du kan finde på denne side:

http://office.microsoft.com/da-dk/assistance/HA011201381033.aspx?Product=acc

Cirka midt på siden er der et link til en "Sample report database", der bl.a. meget andet indeholder et eksempel på hvordan man "Shade every other detail line in a report" - som skulle være det, du efterlyser.

Der findes også et par versioner her (som muligvis er de samme som ovenfor, men de er beskrevet med lidt andre ord, og det kan jo nogen gange være nyttigt).

http://www.access-programmers.co.uk/forums/showthread.php?t=62697

Jeg plejer at gøre det at jeg først erklærer en global variabel bolColor af typen Boolean og så laver jeg nedenstående kode på rapporten. Så får jeg en grøn baggrund på hveranden record (som de gode gamle AS/400 dage :-)  )

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
  If bolColor Then
    Me.Line (0, 0)-(Me.Width, Me.Section(0).Height), 14024661, BF
  End If

  bolColor = Not bolColor

End Sub

Att SJAP: Du hjalp mig også den anden dag med at få fjernet en 0-værdi fra en rapport og det er nu i denne rapport jeg skal bruge denne funktion. Har også fået lagt det med den hveranden linie der er grå ind og det er også okey, nu er problemet så bare at værdien 0 viser sig på den grå baggrund. Og naturligvis ikke på den hvide baggrund. Hvordan løser jeg det problem ?

Ha! Ja det er jo klart. Øjeblik.

Hvis du har gjort som i eksemplet, så har du nu en sætning hvor det står

If (Me![LineNum] Mod 2) = 0 Then

Hvis det er korrekt, så gør du følgende.

Umiddelbart efter If-sætningen skriver du
    BaggrundsFarve = 65535

(tallet skal ændres hvis du har vlagt en anden baggrundsfarve end gul).

Først nå denne if-sætning er afsluttet kører du så de andre if-sætninger:

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


Håber det er til at forstå, ellers må du råbe højt. Når du så har råbt, kan du jo eventuelt også skrive det her :0)

Hejsa! Jeg har nu råbt rigtigt højt, men fik desværre ikke meget ud af det, så du får lige koden her i håber om at du kan fixe sagen for mig :-)
----------

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

Const Grey = 16777215
Const White = 12632256

'BackStyle Property of Control(s) in detail section set to Transparent

Me.Detaljesektion.BackColor = IIf(Me.Detaljesektion.BackColor = White, Grey, White)

End Sub

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

ForgrundsFarve = 16777215
BaggrundsFarve = 0

If Me![Webhosting] = 0 Then
    Me![Webhosting].ForeColor = ForgrundsFarve
Else
    Me![Webhosting].ForeColor = BaggrundsFarve
End If

og så fremdeles med de andre felter

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

Const Grey = 16777215
Const White = 12632256

'BackStyle Property of Control(s) in detail section set to Transparent

Me.Detaljesektion.BackColor = IIf(Me.Detaljesektion.BackColor = White, Grey, White)

End Sub

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

ForgrundsFarve = 16777215
BaggrundsFarve = Me.Detaljesektion.BackColor

If Me![Webhosting] = 0 Then
    Me![Webhosting].ForeColor = ForgrundsFarve
Else
    Me![Webhosting].ForeColor = BaggrundsFarve
End If

og så fremdeles med de andre felter

I stedet for mit lille nummer, så fi jeg den ide at den jo blot skal bruge den aktuelle baggrundsfarve for sektionen. Håber det så virker efter hensigten.

:0)