Access组合列表框必填字段的提示信息设置

时　间:2013-02-03 11:07:18
作　者:Aaron   ID：20267  城市：闵行
摘　要:对于添加或者修改窗体中的必填字段往往会填写一些信息，以提醒输入者。
正　文:

对于添加或者修改窗体中的必填字段往往会填写一些信息，以提醒输入者。

（1）格式

        对于文本类型的字段，要在格式属性中输入：@;[红色]"(必填)"

        对于数值类型的字段，要在格式属性中输入：;;;[红色]"(必填)"

        具体的格式代码说明，请参看系统帮助文件。

（2）组合框

        组合框特殊在有多列的时候。当且仅当被邦定列是第一列，列宽度不为0时，所输入的格式才会有效。

但是往往，第一列是数字类型的主键，组合框又需要显示第2列的文本信息。这个时候就要做一些处理。

（3）组合框更新事件通用代码。

Public Sub ComboxNecessary(cmbControl As ComboBox, StrNullWidths As String, StrNormalWidths As String)

'cmbControl 组合框控件

'StrNullWidths 组合框为Null数值时的列宽属性

'StrNormalWidths 组合框不为Null数值时的列宽属性

    With cmbControl

        If IsNull(.Value) Then

            .ColumnWidths = StrNullWidths

        Else

            .ColumnWidths = StrNormalWidths

        End If

        .Requery

    End With

End Sub

（4）在组合框更新后事件中添加代码

Private Sub cboLevelID_AfterUpdate()

    ComboxNecessary Me.cboLevelID, "1cm;2cm;2cm", "0cm;2cm;2cm"

End Sub