通过函数，将必填字段的文本框背景色和标签的字体颜色进行指定

时　间:2016-11-17 09:23:38
作　者:易勋   ID：35404  城市：上海
摘　要:通过在控件的属性-其他-标签中添加“<Required>”标签，然后在加载事件中调用：SetRequiredColor me 或者 SetRequiredColor me.子窗体控件名
即可指定必填字段的颜色了
正　文:

Public Function SetRequiredColor(DataObject As Object, _
                              Optional RequiredMark As String = "<Required>") As String
    On Error Resume Next
    Dim ctl As Control
    
    For Each ctl In DataObject.Controls
        If InStr(1, ctl.Tag, RequiredMark) > 0 Then
            ctl.BackColor = RGB(135, 206, 250)
            If ctl.Controls.Count > 0 Then ctl.Controls(0).ForeColor = RGB(255, 0, 0)
        End If
    Next
    SetRequiredColor = "RGB(135,206,250)"
End Function


Access软件网官方交流QQ群 (群号:54525238) 　　　　　　Access源码网店