Access窗体控件-默认值的妙用-Access经典源码剖析

  经典源码剖析系列 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搜索： 搜索服务）