利用选项组调整控件可用属性

来源:原创 点击数:3571 　 | 收藏 | 复制

时　间:2020-06-30 15:40:31
作　者:欧志华 ID：51519 城市：广州
摘　要:利用选项组调整控件可用属性。
正　文:

昨天有朋友找我帮忙，说是用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

附件:

点击下载此附件