Access交流网
电 话:0760-88315075
热 线:0760-88315075
邮 编:528463
咨询QQ:1918333016
营销QQ:4008553990
Email:1918333016@qq.com
![]() | 主题:Access窗体控件-默认值的妙用-高手之路 听课人数:120人 |
![]() | 主讲:王宇虹 演讲时间:2015-05-20 15:30 至 2015-05-20 16:30 2015-05-27 15:30 至 2015-05-27 16:30 2015-06-03 15:30 至 2015-06-03 16:30 |
![]() | 讲课内容简介: Access培训报名: http://www.office-cn.net/thread-119747-1-1.html |
是否经常遇到各种单据或单据明细的内容,有很多是类似或大部分内容相同,但每次都需要重复录入,如何巧用默认值来大大提高各种单据录入效率。默认值可以快读提高录入速度,而且保证数据的准确性,可灵活设置各种参数快速录入 设置需要的默认值的字段: 如果类型为“控件值”可设为录入窗体上控件名,如FAuthoer,不推荐如果类型为“函数”,可设为 Date() 或者 Date()-1 如果类型为“值”,则直接输入默认值 | |
培训优势:使用新版Access2013+思维导图模式+Access源码剖析+在线课堂+PPT课件培训 | |
培训目标:让你 听得懂 学得会 记得住 用得上 要求:有一定的Access 或 VBA的基础 |
Access窗体控件-默认值的妙用 |
设置需要的默认值的字段:
类型可以为“控件值”可设为录入窗体上控件名
类型可以为“函数”,可设为 Date() 或者 Date()-1
类型可以为“值”,则直接输入默认值
提高输入的效率
减少出错的机率
基础数据
单据
查询
经典源码剖析系列 Access窗体控件-默认值的妙用 Office中国-王宇虹
1 应用场景
1.1 基础数据
1.1.1 提高输入的效率
1.1.2 减少出错的机率
1.2 单据
1.3 查询
2 相关基础知识
2.1 VBA
2.2 窗体
2.3 控件
2.3.1 DefaultValue
2.3.1.1 一种是针对所有输入统一的默认值
2.3.1.1.1 表设计指定默认值
2.3.1.1.2 窗体设计就会自动带有默认值
2.3.1.2 默认值
2.3.2 Value
2.3.2.1 控件当前的值
2.4 把当前记录的字段值 设置为新记录的字段的默认值
2.4.1 Me.行业.DefaultValue = """" & Me.行业.Value & """"
2.4.1.1 凡是在双引号里的单引号或双引号
2.4.1.2 成对出现
2.4.2 在窗体的更新后事件来设置
2.4.2.1 Private Sub Form_AfterUpdate() '把当前记录的字段值 设置为新记录的字段的默认值 Me.行业.DefaultValue = """" & Me.行业.Value & """" Me.地区.DefaultValue = """" & Me.地区.Value & """" Me.公司名.DefaultValue = """" & Me.公司名.Value & """" Me.年产值.DefaultValue = Me.年产值.Value End Sub
2.5 新增数据时
2.5.1 me.客户编码.SetFocus '新增数据时,光标定位在客户编码
2.6 2种窗体的默认值
2.6.1 单个窗体
2.6.2 数据表窗体
2.6.2.1 光标在已有数据时,不显示默认值
2.6.2.1.1 标志
2.6.2.1.1.1 TAG
存储我们用户的相关数据
2.6.2.1.2 For Each ctr In Me.Controls '循环窗体上所有控件
2.6.2.1.3 If TypeOf ctr Is TextBox Then '只处理文本框
2.6.2.1.4 If (TypeOf ctr Is TextBox) Or (TypeOf ctr Is ComboBox) Then '只处理文本框
2.6.2.1.4.1 ctr.DefaultValue = "" '清空所有控件默认值
2.6.2.1.5 End If
2.6.2.2 光标在新记录时,显示默认值
3 知识点
3.1 列表框
3.1.1 列表框行来源类型
3.1.2 添加列表项
3.1.3 获取列表项
3.1.4 移除列表项
3.1.5 多选列表项
3.2 数组
3.2.1 定义动态数组
3.2.2 数组遍历
1 相关基础知识
1.1 需要实现的功能
1.1.1 通用的默认值设置窗体
1.1.1.1 自动提取 指定窗体上所有控件名
1.1.1.1.1 排序
1.1.1.1.2 赋给组合框
1.1.1.2 可设置3种默认值
1.1.1.2.1 值
1.1.1.2.2 函数
1.1.1.2.3 控件值
1.1.2 使用的窗体调用一个通用的函数
1.1.2.1 gf_SetFldDefaultValue(Me)
1.1.2.1.1 筛选 指定窗体相关的默认值记录
1.1.2.1.1.1 从表里读取默认值数据
1.1.2.1.1.2 与指定窗体相关的
1.1.2.1.2 判断默认值的类型
1.1.2.1.2.1 值
rfrm.Controls(rs("FControlName")).DefaultValue = """" & strDefaultValue & """"
1.1.2.1.2.2 函数
Eval
rfrm.Controls(rs("FControlName")).DefaultValue = """" & Eval(Nz(rs("FDefaultValue"))) & """"
1.1.2.1.2.3 控件值
rfrm.Controls(rs("FControlName")).DefaultValue = """" & rfrm.Controls(rs("FDefaultValue")).Value & """"
1.1.2.1.3 把从表中取到的默认值逐个赋给窗体控件
1.1.2.2 从表中提取上次已保存的默认值,并设置到控件上
1.2 默认值保存表
1.2.1 tblSysFormDftValue
1 相关基础知识
1.1 需要实现的功能
1.1.1 默认值设置窗体
1.1.1.1 添加相关的控件
1.1.1.1.1 设置默认值的字段
1.1.1.1.1.1 组合框
1.1.1.1.2 默认值类型
1.1.1.1.2.1 组合框
0;值;1;函数;2;控件值
0;2
1.1.1.1.3 默认值
1.1.1.1.3.1 文本框
1.1.1.2 窗体打开事件
1.1.1.2.1 获取打开本窗体之前的来源窗体
1.1.1.2.1.1 屏幕上当前获得焦点控件
Screen.ActiveControl
1.1.1.2.1.2 找这个控件父项
Parent
如果不出错
简单认为它的父项就是窗体
逐级往上搜索
爷爷
爷爷父亲
一定可以找到最上面那一层窗体对象
赋给窗体局部变量mfrm
1.1.1.3 窗体加载事件
1.1.1.3.1 设置 FormName 窗体名 默认值
1.1.1.3.1.1 mfrm.name
1.1.1.3.2 setcbo
1.1.1.3.2.1 把来源窗体上的所有控件名提取出来
1.1.1.3.2.2 并且按照 Tab键的顺序排序
1.1.1.3.2.3 定义3维数组
1.1.1.3.2.4 循环来源窗体所有控件
For Each ctr In mfrm.Controls
是否显示隐藏的字段
控制源为空
取所有控件的相关的标签的标题
Controls(0).Caption
如果标题为空,则直接用控件名
去掉标题中的:
英文冒号
中文冒号
控件是属于选卡里的控件
这样 ,同一个选项卡里的控件会排序在一起
然后根据tab键的顺序 进行排序
数组
弹出的放大窗体
用来编辑比较长 比较多内容的默认值
FDefaultValue.SetFocus
SendKeys "+{F2}"
1.2 默认值保存表
1.2.1 tblSysFormDftValue
1. 直接超值购买:
包含:Access示例完整源码+实现思路与代码讲解高清视频+Access培训课件 绝对低价超值
2. 购买前咨询:
在线咨询QQ:1918333016
企业热线QQ:4008553990 (使用QQ搜索: 搜索服务)
(界面_窗体_子窗体-相关文章技巧链接):
【Access源码示例】Access动感窗体