对于添加或者修改窗体中的必填字段往往会填写一些信息,以提醒输入者。
(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
Access软件网交流QQ群(群号:198465573) |
|