一个让你心动的窗体模板(+附件)
点击下载此附件示例中:
功能一:我(标签0)的宽度会随窗体的宽度变化而变化,窗体的页眉、页脚及子窗体(Child0)的宽度也与我一样,并且子窗体(Child0)的高度也随窗体的高度变化而变化
功能二:利用组合框来控制子窗体的所要显示的源对象(表、查询、子窗体(窗体)),示例中只对表和查询作为源对象的展示,子窗体(窗体),也是一样,依样画符可也,
VBA代码:
Private Sub Cbo1_AfterUpdate() '---------[Cbo1]组合框更新事件
Me.Child0.SourceObject = Me.Cbo1
Me.Child0.Requery
'Me.Refresh
End Sub
Private Sub Form_Load() '----------如果注释掉加载事件,打开窗体时,[Child0]子窗体为空白
Me.Child0.SourceObject = "表.表1"
End Sub
Private Sub Form_Resize()
'Me.Painting = False
Me.Child0.Width = Me.InsideWidth
Me.标签0.Width = Me.InsideWidth - 1134
Me.Child0.Height = Me.InsideHeight - Me.Section(acHeader).Height - Me.Section(acFooter).Height
topline.Width = Me.InsideWidth
bottomline1.Width = Me.InsideWidth
'Me.Painting = True
End Sub
(责任编辑:admin)
- ·Access窗体居中显示技巧
- ·Access中Tab键的使用说明【技巧】
- ·Access粘贴对象到Tab选卡上的技巧
- ·Access在窗体上显示当前记录和总记录数
- ·Access隐藏组合框的小箭头
- ·Access窗体属性表
- ·【技巧】Access选项组边框变为圆角边框
- ·Access函数me.sfmsub.form 提示子窗体
- ·Access中使用缩放对话框显示文本框文字
- ·access技巧-中文显示星期几的简单方法
- ·Access控件是否可见,可编辑,锁定的技巧
- ·根据查找窗体设定的条件筛选主窗体的数
- ·父子窗体的语法介绍
- ·access实现组合框联动详细教程
- ·Web Service在Access中的应用技巧
- ·Access窗体最大化,最小化等操作