ACCESS改变字体颜色

Private Sub Command4_Click()
Dim str1 As String
Dim str2 As String

'text1获得焦点，以便取值
Text1SetFocus
str1 = Text1Text

'text2获得焦点，以便取值
Text2SetFocus
str2 = Text2Text

If str1 > str2 Then
'text1获得焦点，以便更改字体颜色
Text1SetFocus
Text1ForeColor = 8421631
Else
'text2获得焦点，以便更改字体颜色
Text2SetFocus
Text2ForeColor = 8421631
End If

End Sub

ACCESS列表框控件被选中时的高亮背景色是无法进行设置的。

如果你不想让列表框在联动后的列表框继续显示原先选中的状态，其实很简单，用代码将列表框的“VALUE”属性设置为“False”即可。

例如消除LIST0之前的选定状态，可在联动代码块中引入以下这条代码，问题就可以解决：

MeLIST0Value=False

其实列表框的选中高亮背景色是根据列表框的背景色自动调整的。而列表框的背景是可以进行设置的。
你也可以在联动代码中对列表框的背景色进行设置。
例如
MeLIST0BackColor=16777215 '设置LIST0的背景色为白色，此时高亮背景色是黑色
MeLIST1BackColor=12632256 '设置LIST1的背景色为深色，此时高亮背景色就不是黑色了
至于设置为何种背景色，悉随尊便，你可以尝试多种颜色看看那个效果最好。

---