Søg
Avatar billede jansvendsen Nybegynder
22. oktober 2006 - 21:36 Der er 7 kommentarer og
2 løsninger

Farve på felt

Hej

Jeg har en form hvor jeg har en checkbox der hedder Udtaget til kontrol & et felt der hedder "Bemærkninger"

Når checkbox er markeret skal feltet bemærkninger være rød.

Jeg har lavet nedenstående, men kan ikke få det til at virke.
Vil du hjælpe mig.

Private Sub Bemærkninger_AfterUpdate()
    Dim lngColor As Long
    If [Udtaget til kontrol] = -1 Then
        lngColor = RGB(255, 0, 0)
    Else
        lngColor = RGB(255, 255, 255)
    End If
    Me!Bemærkninger.BackColor = lngColor
   
End Sub
Avatar billede mugs Novice
22. oktober 2006 - 21:47 #1
Prøv denne som jeg dog ikke har afprøvet:

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 [Udtaget til kontrol] = -1 Then
[Udtaget til kontrol].ForeColor = lngRed
[Udtaget til kontrol].BackColor = lngWhite
End If
Avatar billede fdata Forsker
22. oktober 2006 - 22:09 #2
Er det ikke fordi du skal flytte koden til Udtaget_til_kontrol_AfterUpdate ?
Farven skal jo skifte, når Udtaget_til_kontrol ændres.
Husk også at lægge koden i Form_Current.
Avatar billede mugs Novice
22. oktober 2006 - 22:14 #3
Eller til BeforeUpdate. Mig bekendt indtræder hændelsen AfterUpdate først efter tabellen er opdateret.
Avatar billede fdata Forsker
22. oktober 2006 - 22:27 #4
mugs >> Det virker. Trust me  ;o)
Avatar billede mugs Novice
22. oktober 2006 - 22:30 #5
Jeg "truster" dig uden forbehold ;o)
Avatar billede jansvendsen Nybegynder
23. oktober 2006 - 20:36 #6
Hej - Begge forslag er gode, så jeg vælger at dele point.

Ved i her på falderebet hvordan jeg får kørt 500 poster igennem og får sat feltet til rødt der hvor der er flueben i feltet "udtaget til kontrol"
Avatar billede mugs Novice
23. oktober 2006 - 20:41 #7
Se hvad fdata skriver 22 OKT 22:09:52. Denne hændelse indtræder hver gang du skifter post, så farven vil altid være den ønskede når du kalder en ny post.

Med mindre du bruger en fortløbende formular, så stiller sagen sig noget anderledes.
Avatar billede jansvendsen Nybegynder
23. oktober 2006 - 20:54 #8
hej Mugs. tak for hurtig tilbagemelding. Men den beholder farven fra sidste post, dvs. at når jeg laver en ny post er feltet rødt selvom at jeg endnu ikke har udfyldt feltet "Udtaget til kontrol"
Avatar billede mugs Novice
23. oktober 2006 - 20:58 #9
Du mangler sikkert en else:

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 [Udtaget til kontrol] = -1 Then
[Udtaget til kontrol].ForeColor = lngRed
[Udtaget til kontrol].BackColor = lngWhite
else if:
[Udtaget til kontrol].ForeColor = lngblack
[Udtaget til kontrol].BackColor = lngWhite
End If
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
Access kurser
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser
Se alle Access kurser

Flere spørgsmål fra Access kategorien

Titel Indlæg Oprettet Seneste aktivitet
en word dotx fil stilles om til at blive gemt i skyen Af per2edb i Access 9 16/04/202620:11 21/04/202615:43
AI integreret i Access Af per2edb i Access 3 06/04/202610:42 06/04/202612:58
Autonummerering Af hlnviv i Access 2 06/03/202606:24 06/03/202607:48
stigende sortering på et Link felt Af hlnviv i Access 6 03/03/202613:18 04/03/202608:09
Access database udskriver ikke rammer korrekt Af Uvanga i Access 8 18/11/202500:24 18/11/202510:25
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
42 min siden Download Win 11 - 25H2 Af ErikHg i Windows
30/0410:42 Access Import af csv fil - forkerte datatyper Af Henrik Berg Hansen i Andet software
29/0419:37 Hente CSV fil, indsætte CSV data i TABEL for JAVASCRIPT Af snestrup2000 i Programmeringsværktøjer
29/0412:23 Facebook Af hkv i Sociale medier
29/0411:38 JAVASCRIPT omdan ekstern variabel til søjleværdi .. Af snestrup2000 i Programmeringsværktøjer
White papers
Flere white papers »