当标签获得焦点后，相应标签显示对应“使用”内容

xie62

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

Grant

你指的是表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

Grant 您好：
能否用数组方式将“表1”中的字段 情况 中的“使用”将窗体1中的标签改为红色？

Henry D. Sy

1. Dim ctl As Control
   
2.     Dim str As String
   
3.     For Each ctl In Me.Controls
   
4.         If TypeOf ctl Is Label Then
   
5.             str = DLookup("情况", "表1", "序号=" & ctl.Caption)
   
6.             If str = "使用" Then
   
7.                 With ctl
   
8.                     .BackStyle = 1
   
9.                     .BackColor = 255
   
10.                 End With
    
11.             End If
    
12.         End If
    
13.     Next

复制代码

Grant

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

6D版主给搞定了

xie62

OK！
谢谢Henry D. Sy