Office中国论坛/Access中国论坛

标题: 当标签获得焦点后，相应标签显示对应“使用”内容 [打印本页]

作者: xie62 时间: 2012-1-3 15:58
标题: 当标签获得焦点后，相应标签显示对应“使用”内容
本帖最后由 xie62 于 2012-1-3 16:00 编辑

[attach]47907[/attach][attach]47907[/attach]当标签获得焦点后，相应标签显示对应"表1"中的"情况"列相应的“使用”内容或使标签框变为红色?

作者: Grant 时间: 2012-1-3 17:02
你指的是表1窗体中的字段情况文本框内容为使用的时候表1窗体标签显示红色?还是把窗体1的标签改为红色?

如果是表1窗体中情况字段标签变色
表1窗体中加入代码

Private Sub Form_Current()
If 情况 = "使用" Then
      Me.情况_Label.BackStyle = 1
      情况_Label.BackColor = 255
Else
      Me.情况_Label.BackStyle = 0
End If
End Sub

如果是窗体1中的标签改为红色需要用一个循环来解决

作者: xie62 时间: 2012-1-4 07:57
Grant 您好：
能否用数组方式将“表1”中的字段情况中的“使用”将窗体1中的标签改为红色？

作者: Henry D. Sy 时间: 2012-1-4 09:09

Dim ctl As Control
Dim str As String
For Each ctl In Me.Controls
If TypeOf ctl Is Label Then
str = DLookup("情况", "表1", "序号=" & ctl.Caption)
If str = "使用" Then
With ctl
.BackStyle = 1
.BackColor = 255
End With
End If
End If
Next

复制代码

作者: Grant 时间: 2012-1-4 09:19

Henry D. Sy 发表于 2012-1-4 09:09

6D版主给搞定了

作者: xie62 时间: 2012-1-4 09:30
OK！
谢谢Henry D. Sy

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