利用选项组调整控件可用属性
时 间: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
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
附 件:
Access软件网QQ交流群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
- 通过Access宏录入数据到选...(11.10)
学习心得
最新文章
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)
- 【Access模块示例】通过模块代...(04.15)
- Access查询里面分组合计功能添...(04.13)
- 【Access删除查询】删除数字最...(04.12)