昨天有朋友找我帮忙,说是用Access给公司写了个小程序,叫我帮忙加代码,然后把东西发我,打开一看,感觉有点头疼。不是不会那种头疼,是感觉不合理的那种疼,强迫症又犯了。
沟通后了解到选项1,2,3 是两个分类中重复的
也就是选项4是只有分类2中才能用到,只要我把选项4的可用属性控制了,这样就不用重复这么多控件,简单才是最好的,心动不如行动,立马开工。
把窗体控件修改成以下的样子:
代码部分:
Private Sub btnOK_Click()
'检查必填项
If IsNull(Me.选项1) Then MsgBox "选项1不能为空!!!": Exit Sub
If IsNull(Me.选项2) Then MsgBox "选项2不能为空!!!": Exit Sub
If IsNull(Me.选项3) Then MsgBox "选项3不能为空!!!": Exit Sub
If Me.Frame分类 = 2 Then '如果是分类2检查选项4是否为空
If IsNull(Me.选项4) Then MsgBox "选项4不能为空!!!": Exit Sub
End If
End Sub
Private Sub Form_Load()
Me.Frame分类 = 1 '默认是分类1
Call Frame分类_AfterUpdate '根据上一行代码匹配选项4控件是否可用
End Sub
Private Sub Frame分类_AfterUpdate()
Select Case Me.Frame分类
Case 1
Me.选项4.Enabled = False '选择分类1时,选项4不能用
Case 2
Me.选项4.Enabled = True '选择分类2时,选项4可用
End Select
End Sub
附 件:
点击下载此附件