|
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!
|