Access通用TAB键和默认值设置-Access经典源码剖析

• 让用户来自定义TAB键

• 适合不同的单据不同的设置

• 不同的用户不同的录入习惯

• 不需要重新修改程序。只需要设置

           可保存设置效果

• 同一个窗体实现不同的效果

  经典源码剖析系列 通用文本文件读写 Office中国-王宇虹

经典源码剖析系列 通用TAB王宇虹

1 应用场景

1.1 让用户来自定义TAB键

1.2 适合不同的单据不同的设置

1.3 不同的用户不同的录入习惯

1.4 不需要重新修改程序。只需要设置

1.4.1 可保存设置效果

1.5 同一个窗体实现不同的效果

2 模块 源码剖析

2.1 默认值的设置

2.1.1 FORM更新后事件AfterUpdate

2.1.1.1 """"转义为"

2.1.1.2 """" & Nz(Me.FSeason.Value) & """"

2.1.2 DefaultValue属性

2.2 通用TAB键设置

2.2.1 使用主窗体的按钮

2.2.1.1 设置子窗体各录入控件的TabStop

2.2.1.1.1 FSeason.TabStop = true

2.2.2 通用设置函数 SetTabCfg

2.2.2.1 首先循环子窗体所有控件

2.2.2.1.1 循环子窗体所有控件 For Each ctr In Me.sfmSubform.Form.Section(acDetail).Controls

2.2.2.1.2 设置所有的TabStop=False

2.2.2.1.2.1 判断是否文本框 组合框 复选框等

2.2.2.1.2.1.1 ControlType=109

2.2.2.1.3 再把需要停留的控件的TabStop=True

2.2.2.1.3.1 配置表

2.2.2.1.3.1.1 保留需要停留的控件

2.2.2.1.3.1.2 加载配置表

2.2.2.1.3.1.3 保存配置表

2.2.2.1.3.2 Me.sfmSubform.Form.Controls(rs("FFieldName")).TabStop = True

2.2.2.1.3.2.1 从大到小

2.2.2.1.3.2.1.1 ME 主窗体

2.2.2.1.3.2.1.2 sfmSubform 子窗体控件

2.2.2.1.3.2.1.3 Me.sfmSubform.Form 引用到子窗体

FORM 窗体

2.2.2.1.3.2.1.4 .controls 窗体里所有控件的集合

2.2.2.1.3.2.1.5 .Controls(“FSeason")

rs("FFieldName")

2.2.2.1.3.2.1.6 TABStop

2.2.2.1.3.2.2 从小到大

2.2.2.1.3.2.2.1  设置控件的制表位为真 控件名.TabStop=True

2.2.2.1.3.2.2.2  单价.TabStop=True

2.2.2.1.3.2.2.3  子窗体.Controls("单价").TabStop=True

2.2.2.1.3.2.2.4 Me.子窗体控件.Form.Controls("单价").TabStop=True

Me.子窗体控件.Form=子窗体

2.2.2.2 取到部门，不同部门 TAB键的设置会有所不同

2.2.2.2.1 FDeptID

2.2.2.2.2 FType

2.2.2.2.3 FFieldName

2.2.2.2.4 FTabStop

  相关链接：

1. 直接超值购买：

       点击购买：   

       包含：Access示例完整源码+实现思路与代码讲解高清视频+Access培训课件    绝对低价超值

2. 购买前咨询：

    在线咨询QQ：1918333016

    企业热线QQ：4008553990 （使用QQ搜索： 搜索服务）