Bestemt værdi en bestemt farve

Hvis det IKKE er i dataarkvisning, kan du bruge denne kode placeret på formens VedAktuel-hændelse:

Select Case Me![DitFelt]
  Case 0
    Me![DitFelt].Backcolor = vbyellow
  case 1
    Me![DitFelt].Backcolor = vbred
  case 2
    Me![DitFelt].Backcolor = vbgreen
  case else
    Me![DitFelt].Backcolor = vbblack
End select

/Thomas

Dim lngRed As Long, lngYellow As Long, lngBlack As Long, lngWhite As Long
lngRed = RGB(255, 0, 0)
lngYellow = RGB(255, 255, 0)
Du kan indsætte flg. kode i feltets BeforeUpdate evant:

lngBlack = RGB(0, 0, 0)
lngWhite = RGB(255, 255, 255)
If Felt1 = 0 Then
Felt1.ForeColor = lngRed
Felt1.BackColor = lngWhite
Else
Felt1.ForeColor = lngYellow
Felt1.BackColor = lngBlack
End If
Me.Refresh

Hvis værdien i feltet svarer til værdien af de 16 basisfarver, så kan du bare skrive:
Me![DitFelt].BackColor = QbColor(Me![DitFelt])

Hvis det er et dataark du arbejder i, så er du nødt til at kigge på "Betinget Formattering", som du finder i menuen "Formater"

Her kan du lave en regel, som siger at hvis Feltet = 1, så skal det være Gult.
Du kan dog kun lave 3 regler på hvert felt :o(

Det var vist den nemmeste medtode...

hmmm.... det kan dog ikke lade sig gøre i 97. Eller hva'?

Hvis det er selve koden du ikke mener fungerer, så har jeg lige afprøvet den i Access97, og det fungerer perfekt.

Betinget formattering findes ikke i Access97.