forgrundsfarver

In the combo boxes after update event place code looking like this

If me.comobo = 1 'privat then
  Me.Thefield.Backcolor = 255 'RED
else
  Me.Thefield.Backcolor = 4259584 'green
end if

NOTE I use me.comobo = 1 but you have to change this to the correct value. Also the names of the field and combo need altering to the correct names.

Et lidt udvidet svcar i forhold til Terry's:
Koden får Felt1 til at skifte såvel forgrunds- som baggrundsfarve hvis værdien i Felt1 er mindre end 4. Du kan evt. ændre koden ved at sætte en apostrof (') foran linierne Felt1.Backcolor, så bliver linierne til en kommentar, og Access vil ignorere disse linier.
Hvis du vil have farveskiftet med i din rapport, kan du indsætte nøjagtig den samme kode i Detaljesektionens hændelsesegenskab VedUdskrivning (OnPrint). Du kan justere farvernes intensitet ved at ændre tallene i paranteserne.

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 < "4" Then
Felt1.ForeColor = lngRed
Felt1.BackColor = lngWhite
Else
Felt1.ForeColor = lngYellow
Felt1.BackColor = lngBlack
End If
Me.Refresh

how it going here?

Sorry, but I can't get it to work.
Should it not be like this

Private Sub Kundetype_AfterUpdate()
If Me.Kundetype = privat Then
  Me.privat.BackColor = 255 'RED
Else
  Me.Erhverv.Back Color = 12615680 'blå
End If

send the dB to terry@santhell.dk and I will look at it

Please reaname the dB to .txt or something otherwise Outlook (XP) will stop it from getting through

You should have received it by now.

Thanks

yes I have, but it is named kunde.txt.mdb so it deosntget through!
You have to make sure that you can see the file extension (.mdb) before you re-name it
Can you send it again? If you can ZIP it then that will do also!

I have it now Bo, dont bother re-sending it :o)

Terry get's the points og en tak til mugs for det udvidet svar, der desværre gik lidt ud over mine evner.

tak :o)