Avatar billede fruwille Nybegynder
24. februar 2003 - 12:48 Der er 27 kommentarer og
2 løsninger

Farvet baggrund i Rapport

Jeg har brug for at kunne lave forskellig farvet baggrund i detaljesektionen af en rapport.

Er kommet så langt (?):

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

Hvilken kommando bruges til at farvelægge baggrunden?
Avatar billede henrik13 Nybegynder
24. februar 2003 - 12:54 #1
Hej.
Prøv at se:
http://www.eksperten.dk/spm/117145

Vh Henrik
Avatar billede henrik13 Nybegynder
24. februar 2003 - 12:54 #2
Deet var et svar
Avatar billede terry Ekspert
24. februar 2003 - 12:56 #3
fruwille, this is possible in Access XP and maybe 2000 too, you use Conditionla formatting for doing this.
Avatar billede terry Ekspert
24. februar 2003 - 12:56 #4
Conditionla = Conditional
Avatar billede sjap Praktikant
24. februar 2003 - 12:58 #5
Hvis det f.eks. drejer sig om at give linierne forskellige farver er nedenstående link rigtigt godt.

http://www.mvps.org/access/forms/frm0047.htm
Avatar billede fruwille Nybegynder
24. februar 2003 - 12:59 #6
Det er Access 2000, men det virker ikke. Får beskeden Method or datamember not Found
Avatar billede terry Ekspert
24. februar 2003 - 13:01 #7
when you say "forskellig farvet baggrund i detaljesektionen" the I am assuming that you want to change the color depending on some condition. Here you use Conditional formatting. I suggest you take a look at Access help for mor information on this
Avatar billede fruwille Nybegynder
24. februar 2003 - 13:01 #8
PS. har skrevet således:

Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
    Me.Feltnavn.BackColor = 255
End Sub
Avatar billede fruwille Nybegynder
24. februar 2003 - 13:02 #9
Ja det er for at indsætte forskellige konditioner, men en forudsætning for dette er jo, at jeg kan "farvelægge" baggrunden i det hele taget. Derfor ovennævnte eksempel.
Avatar billede terry Ekspert
24. februar 2003 - 13:03 #10
to get you going (2000+XP) Click on one of the fields in the detail section, then in th emenu select format+Conditional formatting and then follow instructions.
Avatar billede fruwille Nybegynder
24. februar 2003 - 13:06 #11
Terry>
Havde ikke set betinget formatering før, den er udmærket, men til mit brug, er det baggrunden i hele linien der skal kunne have indtil 4 forskellige farver afhængig af forskellige betingelser
Avatar billede terry Ekspert
24. februar 2003 - 13:06 #12
If you want to change thecolor for ALL records in the detail the press the detail bar just over the detail section. Then right click and choose properties. Here you can change the background color but it applies to ALL records.!
Avatar billede terry Ekspert
24. februar 2003 - 13:08 #13
then you will have to put it on all fields.Use the mouse to mark all fields and do the same as if it were a single field.
Avatar billede terry Ekspert
24. februar 2003 - 13:10 #14
I havent tried the last idea, but it may be possible.
Avatar billede fruwille Nybegynder
24. februar 2003 - 13:15 #15
Jeg har tidligere, men kan ikke huske hvordan, formateret et bestemt område af detaljesektionen (koordinater skulle indtastes) og det var muligt at farvelægge dette område forskelligt afhængig af en stump kode. Det er det jeg efterlyser.
Avatar billede mugs Novice
24. februar 2003 - 13:20 #16
Hvis det er forskellig baggrundsfarve i felterne afhængig af en betingelse, kan jeg sende dig et eksempel, når jeg kommer hjem fra arbejde.
Blot læg din e-mail
Avatar billede fruwille Nybegynder
24. februar 2003 - 13:27 #17
mugs> gfw@email.dk - tak
Avatar billede henrik13 Nybegynder
24. februar 2003 - 13:35 #18
Avatar billede terry Ekspert
24. februar 2003 - 13:37 #19
fruwille, if you only want to change an area of the detail then you will need to place another object on the detail section and then change the color of this.
mugs suggestion ALSO says "baggrundsfarve i felterne afhængig af en betingelse", so as far as I can see this is the same as Conditional formatting
Avatar billede mugs Novice
24. februar 2003 - 13:38 #20
fruwille > Prøv denne, jeg er sikker på den fungerer selvom det er efter hukommelsen:

Dim lngRed As Long, lngYellow As Long, lngBlack As Long, lngWhite As Long
lngRed = RGB(255,0,0)
lngYellow = RGB(255,255,0)
lngBlack = RGB(0,0,0)
lngWhite = RGB(255,255,255)

If Felt1 > 400 Then
felt1.Forecolor = lngRed
Felt1.Baxkcolor = lngWhite
End If

Indsættes i Detaljesektionens VedUdskrivning.
Avatar billede mugs Novice
24. februar 2003 - 13:39 #21
Farvernes intensitet kan justeres ved at rette på tallene i parantes.
Avatar billede terry Ekspert
24. februar 2003 - 13:44 #22
hi mugs, but if I understand fruwille' problem it is NOT the field but teh complete detail record. And I am also sure that your solution will apply for ALL records,
Avatar billede fruwille Nybegynder
24. februar 2003 - 14:00 #23
Tak for de mange svar, men det jeg efterlyste, var ikke baggrunden på felterne, men baggrunden på detaljesekstionen eller et defineret område (ved hjælp af koordinater).

Hvis nogen kan huske det (har selv lavet det tidligere, men kan ikke finde det), så forhøjes points til 100.
Avatar billede terry Ekspert
24. februar 2003 - 14:33 #24
fruwille, no matter what, you MUST have some object on the detail section. Here is something which you can maybe get some ideas from.
http://www.mvps.org/access/reports/rpt0018.htm
Take a look at the detail format section, this is where it all happens
Avatar billede terry Ekspert
24. februar 2003 - 14:35 #25
this is what is of interest
With Me.boxGrowForDate
      .Left = Me.boxMaxDays.Left + (intStartDayDiff * sngFactor)
      .Width = intDayDiff * sngFactor
    End With
Avatar billede mugs Novice
24. februar 2003 - 17:21 #26
Hi Terry and fruwille > If it is the detail section, the I have misunderstood.
My solution will not apply all records.
Avatar billede fynbohans Nybegynder
24. februar 2003 - 20:43 #27
I en formular kan detaljesektions baggrundsfarve ændres med:

Section(acDetail).BackColor = RGB(255, 255, 0).

Ikke afprøvet i en rapport, men er sikkert det samme.
Avatar billede fruwille Nybegynder
24. februar 2003 - 22:58 #28
Endnu en gang tak for de mange gode svar, jeg fordeler de få points derefter, men det jeg søgte efter har jeg tidligere lavet og fandt det så faktisk her til aften. Det ser således ud og tillader hvilket som felst areal forskellige farver indenfor området:  rpt.Line (9675, 1)-(9060, 325), 0, B

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

Dim rpt As Report
  Set rpt = Me
  Dim farve As Double
         
    farve = profitfranchiserprc
    If farve > plisthigh Then
      rpt.FillColor = 9868950
      rpt.FillStyle = 0
      rpt.Line (9675, 1)-(9060, 325), 0, B
    End If
    If farve < plistlow Then
      rpt.FillColor = 13948116
      rpt.FillStyle = 0
      rpt.Line (9675, 1)-(9060, 325), 0, B
    End If

End Sub
Avatar billede proaccess Nybegynder
26. februar 2003 - 12:25 #29
>fruwille: Kunne du ikke "bare" bruge

Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
  Me.Detaljesektion.BackColor = vbRed
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester