Hallo zusammen,

ich würde gerne bei einer if verknüpfung den wert aus einem tabellenblatt abfragen und daraufhin die Hintergrundfarbe ändern.

Im Moment sieht der Code wie folgt aus:

Public Sub Form_Current()

    Dim coldarkpink As Long, collightpink As Long, coldarkblue As Long, collightblue As Long, colgreen As Long, colwhite As Long, colblack As Long

    coldarkpink = RGB(204, 0, 204)
    collightpink = RGB(255, 153, 255)
    coldarkblue = RGB(255, 153, 51)
    collightblue = RGB(255, 204, 102)
    colgreen = RGB(76, 177, 34)
    colwhite = RGB(255, 255, 255)
    colblack = RGB(0, 0, 0)

'DoCmd.OpenForm "F_SB_Projekt  übersicht_PAI"
'Dim i As Integer

If [I_Master_QN_SVM_List_Engines].[ID_B2R].Value = 3 Then

Me.Ctl3.BackColor = collightpink

Else: Me.Ctl3.BackColor = colwhite

End If

End Sub

Dabei wird im Formular aber einfach jede Hintergrundfarbe Rosa gefärbt, also die if funtkion scheint nicht zu funktionieren.

Bin für jede Hilde dankbar!