Afkrydsningsfelt

Det ser ud til, at det ikke er muligt at skifte farve på selve afkrydsningsfeltet, men du kan styre den tilhørende label

Thor jeg kan ikke få det til at virke.

Når jeg genererer en hændelsesprocedure får jeg følgende tekst...

Private Sub Ansættelsesvilkår__miljø_Click()

End Sub

Når jeg indsætter din tekst ser den sådan ud..

Private Sub Ansættelsesvilkår__miljø_Click()
Private Sub chkFarveskift_Click()
    lblFarveskift.BackStyle = 1 ' normal
    If chkFarveskift.Value = -1 Then
        lblFarveskift.BackColor = vbGreen
    Else
        lblFarveskift.BackColor = vbWhite
    End If
End Sub

Jeg prøver så at slette en at de to første linier, men uanset hvilken en af disse jeg sletter, kommer der fejlmelding.

Felter
Label: Klik_Etiket
Afkrydsningsfelt: Klik

Hændelsesprocedure (ovenstående "oversat/rettet"):

Private Sub Klik_Click()
    Klik_Etiket.BackStyle = 1 ' normal
    If Klik.Value = -1 Then
        Klik_Etiket.BackColor = vbGreen
    Else
        Klik_Etiket.BackColor = vbWhite
    End If
End Sub

1) Slet linje 2
2) Erstat chkFarveskift med navnet på din checkboks
3) Erstat lblFarveskift med navnet på den label der er knyttet til din checkboks

On a continuous form or datasheet you don’t have a label for each record, so another idea is maybe required.
Place a text box behind the checkbox. Then using conditional formatting you change the colour of the text box depending on the value of the check box. This method doesn’t require any vba :-)
There are a number of videos on youtube explaining how to use conditional formatting, heres one for a start
https://www.youtube.com/watch?v=vNdanVYq7MU

Quick explanation
1: Check box name is chkBox
2: Right click text box and choose Conditional formatting
3: Press New Rule
4: In Left Drop down choose Expression is
5: In texct box to right of drop down write [chkbousx] = -1
6: Then choose how you want to highlight the text when checkbox is checked (-1). For example Colour Red
7: Press OK.

Now check to see what happens when you change value of checkbox

Idea can also be used on Single Form

5: In text box to right of drop down write [chkbox] = -1

Det giver mig stadig problemer.

Private Sub Opsigelse_Click()
lblFarveskift.BackStyle = 1 ' normal
    If Opsigelse.Value = -1 Then
        Opsigelse_Navn.BackColor = vbGreen
    Else
        Opsigelse_Navn.BackColor = vbWhite
    End If
End Sub

Hvor "Opsigelse" = navn på afkrydsningsfelt
og " Opsigelse_navn" = navn på tekst felt.

Jeg modtager følgende fejlmeldning:
Invalid outside procedure;
Denne fejl forekommer, når en hændelse ikke er blevet kørt, fordi placeringen af hændelsens logik ikke kan evalueres. Hvis egenskaben OnOpen for en formular f.eks. er angivet til =[Felt], forekommer denne fejl, fordi det forventes, at det skal være navnet på en makro eller en hændelse, der skal køres, når hændelsen opstår.

Det er ikke muligt at anvende betinget formatering til hverken afkrydsningsfelt eller tekstboks.

Du mangler at omdøbe

lblFarveskift.BackStyle = 1 ' normal

Skal være

Opsigelse_Navn.BackStyle = 1 ' normal

Men der er nok ikke fejlen alene - det lyder lidt som om du har fået placeret koden et forkert sted, men det er lidt svært at gennemskue uden at se databasen.

Your welcome to send the dB to me and I'll take a look

ekspertenATsanthell.dk

AT = @

Tak for hjælpen, nu fungerer det.
For mange år siden var der noget med at man gav point til den der løste opgaven. Gør man ikke det mere?

Super. Nej, der gives ikke synlige point længere, men når du markerer et svar som korrekt får den der har skrevet svaret usynlige point, der afspejler sig i brugerens status.

Jeg har faktisk et supplerende spørgsmål.

Nå nu tekstfeltet hedder "Sygdom, barsel, orlov", kan jeg så programmer så jeg beholder "," i tekstfeltet , eller skal de erstattes af et andet tegn?

Øh - det ville jeg ikke bruge energi på. Navnet på et felt er jo "bare" en intern ting og ikke noget brugerne ser.

Jeg bliver desværre nød til at vende tilbage.

Jeg har fået det til at fungerer som beskrevet ovenfor af Thor med følgende
Private Sub CIvil1_Click()
CIvil2.BackStyle = 1 ' normal
    If CIvil1.Value = -1 Then
        CIvil2.BackColor = RGB(204, 255, 221)
    Else
        CIvil2.BackColor = vbWhite
    End If
End Sub

Problemet er, at hvis jeg i post 1 laver en markereng i afkrydsningsfeltet, så skifter farven i tekstfelten ikke kun i post 1, men i alle poster. Jeg ønsker kun et farveskift i post 1 i dette eksempel og i det poster jeg fremadrettet aktivere afkrydsningsfeltet. I de øvrige poster hvor der ikke sker en aktivering skal tekstfeltet stadig være hvidt.

Det er nok fordi du bruger en løbende form. Du skal så nok kigge på #5

Tak for hurtig svar.

Problemet at, der gives ikke mulighed for betinget formatering ved anvendelse af afkrydsningsfelt, hverken afkrydsningsfeltet selv eller i tekstfeltet.

Har du mulighed for at sende databasen ud af huset?

Ja, det kan jeg godt

Så kan du pøve at sende den enten til mig eller Terry.
Husk at vedlægge en beskrivelse af, hvor det er du har udfordringen.

Hvordan vedhæfter jeg DB ? ( jeg prøver at sende til dig privat)

Hvis du zip pakker den bør den slippe igennem.