Question

当我的字段包含某些单词时，我无法改变字段的颜色。由于格式化规则不起作用，我试图编写代码。

这就是我所拥有的：

Private Sub txtStatus_Exit(Cancel As Integer)
Select Case Me.Status
       Case "Verkauft"
       txtStatus.BackColor = vbRed
End Select
End Sub

该字段的名称是txtStatus，实际上它是带下拉列表的组合字段。我做错了什么？我试过切断Actiontypes但它不会工作:(

Answer 1

你应该一定避免使用组合字段。他们会给你带来麻烦，就像你已经看到的那样。

实际值可能是一个数字，因此：

Private Sub txtStatus_Exit(Cancel As Integer)

    Dim Status As Long

    Status = Me!txtStatus.Value
    ' Study value
    Debug.Print "Status:", Status

    Select Case Status
       Case 3    ' adjust to the value matching Verkauft. 
           Me!txtStatus.BackColor = vbRed
       Case Else
           Me!txtStatus.BackColor = vbWhite
    End Select

End Sub

MS Access 2013如果字段包含字符串，则更改字段的BackColor

1 个答案: