Access交流网
  • 设为首页|收藏本站|繁体中文|手机版
  •     
  • Access培训-Access开发平台-Access行业开发

  • 首页
  • 资讯
  • 技巧
  • 源码
  • 行业
  • 资源
  • 产品
  • 活动
  • 培训
  • 招聘
  • 论坛
  • 商城
  • 关于

培训

Access企业培训(现场)
Access在线培训

Access中级培训

Access高级培训

Access定制培训

Access树控件与BOM高级技巧

Access公开课
Access免费公开课视频
Access培训(VIP)
Access培训优惠信息

热门文章

  • Access控制outlo..
  • Access调用网页功能-..
  • Access系统设置及系统..
  • 数据自动导出多个Excel..
  • Access专业工资条打印..
  • Access通用TAB键和..

最新文章

  • Access自动播音员-A..
  • Access智能搜索组合框..
  • Access自动执行宏的妙..
  • access图片分页展示及..
  • 通用读取文本文件模块-Ac..
  • Access通用TAB键和..

联系方式

Access交流网

电  话:0760-88315075
热  线:0760-88315075

邮  编:528463
咨询QQ:1918333016
营销QQ:4008553990

Email:1918333016@qq.com

网  址:www.access-cn.com

当前位置:首页 > 培训 > Access培训(VIP)
Access培训(VIP)

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

 
Access主题 主题:Access窗体控件-默认值的妙用-高手之路                  听课人数:120人      
Access主讲

 主讲:王宇虹           演讲时间: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培训内容 讲课内容简介:         Access培训报名: http://www.office-cn.net/thread-119747-1-1.html
 

是否经常遇到各种单据或单据明细的内容,有很多是类似或大部分内容相同,但每次都需要重复录入,如何巧用默认值来大大提高各种单据录入效率。默认值可以快读提高录入速度,而且保证数据的准确性,可灵活设置各种参数快速录入

 设置需要的默认值的字段:

如果类型为“控件值”可设为录入窗体上控件名,如FAuthoer,不推荐
如果类型为“函数”,可设为 Date() 或者 Date()-1
如果类型为“值”,则直接输入默认值
 培训优势:使用新版Access2013+思维导图模式+Access源码剖析+在线课堂+PPT课件培训
 培训目标:让你 听得懂 学得会 记得住 用得上             要求:有一定的Access 或 VBA的基础 
 

 

clip0058

Access窗体控件-默认值的妙用


 

 

application_key 功能描述:

 

  •  设置需要的默认值的字段:

  • 类型可以为“控件值”可设为录入窗体上控件名

  • 类型可以为“函数”,可设为 Date() 或者 Date()-1

  • 类型可以为“值”,则直接输入默认值

  •   提高输入的效率

  •   减少出错的机率

 

 

application_key  行业应用场景:

 
  • 基础数据

  • 单据

  • 查询

 

 

application_key  界面预览:

     access数据库

     access数据库

      access数据库

 

application_key  源码思维导图(脑图):

 

     access数据库

 

     access数据库

 

 

     access数据库

 

Access教程视频Access窗体控件-默认值的妙用 -- Access经典源码剖析思维导图在线播放

可直接展开和收缩思维导图中的每个节点来浏览,也可使用下面的放大 缩小 折叠 定位焦点 全页显示 查找关键字等功能
 

 

 

application_key  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

 

 

application_key  相关链接:

 

1. 直接超值购买:

       点击购买:  Button 

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

 

2. 购买前咨询:

    

    在线咨询QQ:1918333016

    企业热线QQ:4008553990 (使用QQ搜索: 搜索服务)

    更多联系方式:http://www.office-cn.net/t/training/officecontact.htm

 

application_key  部分源码预览:

 

    access数据库

 

    access数据库

    access数据库

   

    
''=============================================================================================
''函数名称: gf_MsgBox  (提示信息框设置)  版本:1.01
''调用示例: gf_MsgBox(strMessage)
''           gf_MsgBox(strMessage,intType)
''           gf_MsgBox(strMessage,intType,intCustomerType)
''           gf_MsgBox(strMessage,intType,intCustomerType,errError)
''
''输入参数: (必需)strMessage    String      no button 通知
''           (可选)intType   Integer     提示是否按钮  询问
''           (可选)intCustomerType   Integer     自定义格式,需要设置intCustomerType参数值
''           (可选)errError  ErrObject       提示警句信息
''返    回: Integer
''适应版本: 97,2000,XP,2003,2007,2010,compatible
''作    者: 王宇虹   整理:TM_彬,阿航
''关 键 字: 提示信
''推荐指数: 3
''难度等级: 4
''适应场合: 提示信息框设置
''说    明: 提示信息框设置
''=============================================================================================
''GUID: 72179DB9-68A6-4BBD-9609-1782023ABAC9 编码:1223233325 创建:2013/02/26 更新:2013/02/26
''=============================================================================================
Public Function gf_MsgBox(strMessage As String, Optional intMsgType As VbMsgBoxStyle = vbOKOnly, Optional strTitle As String, Optional errError As Object, Optional blnUseMessage As Boolean, Optional lngErrLine As Long) As VbMsgBoxResult
    '无标题时,自动写入工程名 gstrProjectName
    If strTitle = "" Then
 
            strTitle = "Office中国"
 
    End If
    
    '该函数不能作错误处理。会导致清除错误
    '判断是否传入的是错误类型
    If Not errError Is Nothing Then
        Dim strNumber As String
        Dim strDescription As String
        Dim strSource As String
        
        strNumber = errError.Number
        strDescription = errError.Description
        strSource = errError.Source
     ......
    End If
 
    Err.Clear
    gf_MsgBox = MsgBox(strMessage, intMsgType, strTitle)
End Function
 
 
 
'===============================================================================
'-函数名称:         gf_FormSetRecordSource
'-功能描述:         设置窗体数据来源(可使用Dao或Ado两种方式)
'-输入参数说明:     参数1:rfrm Form  主窗体
'                   参数2:rblnRestoreStatus 是否恢复原来的筛选 排序 等
'                   参数3:rstrType 使用Dao还是Ado方式,默认为Dao方式
'-返回参数说明:     无
'-使用语法示例:     gf_FormSetRecordSource me
'-参考:
'-使用注意:
'-兼容性:           97,2000,XP,2003 compatible
'-作者:             王宇虹,改进:王宇虹
'-更新日期:        2006-12-01
'===============================================================================
Public Function gf_FormSetRecordSource(rfrm As Form, rstrRecordSource As String, Optional rstrType As String = "", Optional rblnRestoreStatus As Boolean = False)
    'On Error Resume Next
    Dim strRecordSource As String
    Dim strFilter As String
    Dim strFilterOn As String
    strRecordSource = rstrRecordSource
    strFilter = rfrm.Filter
    strFilterOn = rfrm.FilterOn
   ......
    If rblnRestoreStatus Then
        rfrm.Filter = strFilter
        rfrm.FilterOn = strFilterOn
    End If
End Function
 
 
Public Function gf_SetFldDefaultValue(rfrm As Form) As Boolean
 
    On Error GoTo Err_Handle  '错误处理
    gf_SetFldDefaultValue = True
    Dim rs As Object
    Dim strDefaultValue As String
 
    '从复制新增的配置表中来提取需要复制哪些字段的内容
    '筛选 指定窗体相关的默认值记录
    Set rs = gf_OpenRecordset("select * from tblSysFormDftValue where FIsCopyCfg=0 and FFormName='" & rfrm.Name & "'", CurrentProject.Connection, intOpenStatic, intLockReadOnly)
    Do While Not rs.EOF
        '将需要复制的字段的当前内容保存在Tag标记属性中(使用参数方式)
       ......
        rs.MoveNext
    Loop
    rs.Close                                               '关闭记录集
Exit_Handle:
    Set rs = Nothing
    Exit Function
Err_Handle:
    gf_MsgBox "设置默认值出错,请检查默认值设置选项"
    'gf_MsgBox Err.Number & "-" & Err.Description
    GoTo Exit_Handle
End Function
 
Private Sub Form_AfterUpdate()
  '把当前记录的字段值 设置为新记录的字段的默认值
  Me.行业.DefaultValue = """" & Me.行业.Value & """"
  Me.地区.DefaultValue = """" & Me.地区.Value & """"
  Me.公司名.DefaultValue = """" & Me.公司名.Value & """"
  Me.年产值.DefaultValue = Me.年产值.Value
  
End Sub

 


(界面_窗体_子窗体-相关文章技巧链接):
【Access源码示例】Access动感窗体


标签:  access,默认值,快速录入,效率
发布人:zstmtony  
分享到:
点击次数:  更新时间:2018-02-28 11:04:06  【打印此页】  【关闭】
上一条:Access调用网页功能-版本自动更新-Access经典源码剖析  下一条:Access列表框的高级应用-Access经典源码剖析



相关文章

  • • Access自动播音员-Access经典源码剖析
  • • Access智能搜索组合框-Access经典源码剖析
  • • Access自动执行宏的妙用-Access经典源码剖析
  • • access图片分页展示及选择功能-Access经典源码剖析
  • • 通用读取文本文件模块-Access经典源码剖析
  • • Access通用TAB键和默认值设置-Access经典源码剖析
  • • access图片文件保存到数据库的通用技巧-Access经典源码剖析
  • • 数据自动导出多个Excel或者多个工作表-Access经典源码剖析

热门文章

  • [2018-02-28] access图片分页展示及选择功能-Access经典源码剖析access数据库
  • [2018-02-28] Access专业工资条打印-Access经典源码剖析access数据库
  • [2018-02-28] 数据自动导出多个Excel或者多个工作表-Access经典源码剖析access数据库
  • [2018-02-28] Access系统设置及系统函数的应用-Access经典源码剖析access数据库
  • [2018-02-28] Access调用网页功能-版本自动更新-Access经典源码剖析access数据库
  • [2018-02-28] Access多层架构开发思路-Access经典源码剖析access数据库

热门产品

  1. 适合国庆/元旦/中秋等节日抽奖的程序

    适合国庆/元旦/中秋等节日抽奖的程序

  2. 电子厂管理软件系统

    电子厂管理软件系统

  3. 通用票据打印软件

    通用票据打印软件

公司动态|在线留言|在线反馈|联系我们|友情链接|会员中心|站内搜索|网站地图

中山市天鸣科技发展有限公司 版权所有 1999-2018 粤ICP备10043721号

广东省中山市西苑广场富贵阁20楼A座

电话:0760-88315075 手机:13928102596 QQ:1918333016

Access应用 Access培训 Access开发 Access平台

access|数据库|access下载|access教程|access视频|access软件

Powered by MetInfo 5.3.12 ©2008-2022  www.metinfo.cn