[请教] 通过下拉框选择后显示对应表中的值，然后修改对应标签的背景色

huanghyd

我想通过窗体 F_BookMark 的控件“PN”下拉框选择后内容后，控件“BoxMark”显示对应表中的值，然后对应标签的背景色显示为黄色。有附件，请教大家。我写的代码如下，提示出错。

Private Sub PN_AfterUpdate()
BoxMark = DLookup("BoxMark", "tblBook", "PN='" & Me.PN & "'")
If Me.BoxMark = A1 Then
Me.LabelA1.BackColor = vbYellow '更改标签背景色黄色，以达到高亮显示
ElseIf Me.BoxMark = A2 Then
Me.LabelA2.BackColor = vbYellow
ElseIf Me.BoxMark = A3 Then
Me.LabelA3.BackColor = vbYellow
Else
Me.LabelA1.BackStyle = 0
End If
End Sub

access学习交流

可以遍历一下标签的caption 属性，把boxmark的值 与caption 对应就可以了

huanghyd

非常感谢 access学习交流 ，