Office中国论坛/Access中国论坛

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

作者: huanghyd 时间: 2014-1-13 14:44
标题: [请教] 通过下拉框选择后显示对应表中的值，然后修改对应标签的背景色
我想通过窗体 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学习交流 时间: 2014-1-13 15:56
本帖最后由 access学习交流于 2014-1-13 16:33 编辑

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

作者: huanghyd 时间: 2014-1-14 11:33
非常感谢 access学习交流，

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)