Egenskaben Baggrundsfarve

Gælder for

Du kan bruge egenskaben Baggrundsfarve til at angive farven på det indre af en kontrolelement eller sektion. Læs/skriv Lang.

udtryk..Baggrundsfarve

udtryk Påkrævet. Et udtryk, der returnerer et af objekterne på listen Gælder for.

Indstilling

Egenskaben Baggrundsfarve indeholder et numerisk udtryk, der svarer til den indvendige farve, der er brugt til at udfylde et kontrolelements eller en sektions indre.

Du kan bruge den Color Builder til angive denne egenskab ved at klikke på Build til højre for egenskabsfeltet for i egenskabsark. Med Color Builder kan du selv definere baggrundsfarver for kontrolelementer eller sektioner.

Du kan også angive denne egenskab ved hjælp af et kontrolelements eller en sektions egenskabsark, makro eller VBA-kode (Visual Basic for Applications) eller ved at bruge kommandoen Fyldfarve under Skrifttype (på fanen Design eller fanen Format afhængigt af om du er i designvisningen eller layoutvisningen).

I VBA-kode (Visual Basic for Application) skal du bruge et numerisk udtryk til at angive denne egenskab. Denne egenskabsindstilling har datatype Lang.

Du kan angive standarden for denne egenskab ved at bruge et kontrolelements standardtypografi for kontrolelement eller egenskaben DefaultControl i VBA-kode.

For Tabel-objekter kan du angive denne egenskab ved hjælp af kommandoen Fyldfarve under Skrifttype på fanen Data eller i VBA-kode ved hjælp af egenskaben DatasheetBackColor.

Bemærkninger

For at du kan bruge egenskaben Baggrundsfarve, skal egenskaben Baggrundstypografi være indstillet til Normal, hvis den er tilgængelig.

Eksempel

I følgende eksempel anvendes RGB-funktionen til at angive egenskaberne Rammefarve, Baggrundsfarve og Forgrundsfarve afhængigt af værdien i tekstfeltet txtPastDue. Du kan også bruge funktionen QBColor til at angive disse egenskaber. Hvis du indsætter følgende kode i hændelsen Form_Current(), indstilles visningskarakteristikken for kontrolelementer, så snart brugeren åbner en formular eller flytter til en ny post.

Sub Form_Current()
    Dim curAmntDue As Currency, lngBlack As Long
    Dim lngRed As Long, lngYellow As Long, lngWhite As Long
    If Not IsNull(Me!txtPastDue.Value) Then
        curAmntDue = Me!txtPastDue.Value
    Else
        Exit Sub
    End If
    lngRed = RGB(255, 0, 0)
    lngBlack = RGB(0, 0, 0)
    lngYellow = RGB(255, 255, 0)
    lngWhite = RGB(255, 255, 255)
    If curAmntDue > 100 Then
        Me!txtPastDue.BorderColor = lngRed
        Me!txtPastDue.ForeColor = lngRed
        Me!txtPastDue.BackColor = lngYellow
    Else
        Me!txtPastDue.BorderColor = lngBlack
        Me!txtPastDue.ForeColor = lngBlack
        Me!txtPastDue.BackColor = lngWhite
    End If
End Sub