Farvning af bokse

Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
  If Me.Prod = True Then
    Navn.Properties(\"BackColor\") = 16777215
  Else
    Navn.Properties(\"BackColor\") = 0
  End If
End Sub

\"Prod\" er ja/nej og boksen hedder Navn...

Dim lngBlack As Long
Dim lngWhite As Long

    lngBlack = RGB(0, 0, 0)
    lngWhite = RGB(255, 255, 255)
   
    If Me.janej = True Then
        Me.Field1.BackColor = lngBlack
    Else
        Me.Field1.BackColor = lngWhite

    End If

place the code in the details format event.

Me.janej is th ename of the yesNo field in the report.
field1 is the name of the field you want to alter the color for.

Proaccess:> Hvor skal koden sættes ind henne??

DetaljeSektion: ved formatering..

Jeg er newbie mht. Access, så jeg skal lige have det skåret ud i pap....

Jeg laver en ny rapport i designvisning, laver et rektangel og hvad gør jeg så`??

Din rapport er delt op i forskellige sektioner. F.eks. rapporthoved, sidehoved, detaljesektion, sidefod og rapportfod.
Hvis feltet, du ønsker at farve, ligger under bjælken, der hedder Detaljesektion, kan du højre-klikke og vælge \"Generer Hændelsesprocedure\" efterfulgt af kodegenerator. Herefter skulle du være i VBA-kodeeditoren. Her kan du indsætte koden, så den matcher et af ovenstående eksempler. Eller vælge dennne:

Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
  If Me![JaNejFelt] = True Then
    Me![Felt].Backcolor = vbwhite
  Else
    Me![Felt].Backcolor = vbblack
  End If
End Sub

[JaNejFelt] og [Felt] skal udskiftes med dine egen navne.

/Thomas

Min tabel hedder: akk-tabel
Feltet hedder: Mix

Jeg laver en rapport via guide, indsætter derefter et rektangel, som jeg navngiver \"Navn\"

Højreklikker, vælger \"generer\" - indsætter følgende kode:

Option Compare Database  <----- stod der allerede

Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
If Me.Mix = True Then
    Navn.Properties(\"BackColor\") = 16777215
  Else
    Navn.Properties(\"BackColor\") = 0
  End If

End Sub

MEN, hvis jeg tager en \"vis udskrift\" er feltet stadigvæk hvidt, uanset Mix\'s værdi.....

Er det mig som er totalt stupid?!

Du skal angive at der skal være en hændelsesprocedure på detaljesektionens vedFormatering-event (nederst på egenskabsarket for sektionen)

Ellers burde det virke...

Proaccess.> Kunne jeg kanske sende DB\'en til dig? (Access 2000 format)

Hvis det er et rektangel i stedet for en tekstboks, skal du sikre dig, at rektanglets egenskab \"Baggrundstype\" er sat til Normal. Ellers vil den altid være gennemsigtig uanset hvilken farve du vælger.

Herefter kan koden se således ud:

Private Sub Detaljesektion_Format(Cancel As Integer, FormatCount As Integer)
  If Me!Mix = True Then
    Me!Navn.Backcolor = vbwhite
  Else
    Me!Navn.Backcolor = vbblack
  End If
End Sub

/Thomas

juggalo> Jeg bruger A97, men ellers kan du da godt sende til proaccess@hotmail.com

Læg dog lige mærke til thomas\'s svar ovenfor !!!

Den funktionelle løsning viste sig at være blanding af svarene fra Jer alle tre, så jeg deler pointene imellem Jer - tak for hjælpen :)