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

  • 首页
  • 资讯
  • 技巧
  • 源码
  • 行业
  • 资源
  • 活动
  • 关于

技巧

ACCESS数据库

启动/设置/选项/背景

修复/压缩

安全/加密/解密

快捷键

版本升级/其它等

数据表

命名方式/设计规范

表设计

查询

Sql语言基础

选择查询

更新查询

删除查询

追加查询

生成表查询

交叉表查询

SQL特定查询

查询参数

查询综合应用

界面/窗体/控件

标签

文本框

命令按钮

组合框/列表框

选项组/复选框/选项按钮

选项卡

子窗体

窗体本身/综合应用

其它

报表打印

报表设计

高级报表

模块/函数/VBA/API/系统

VBA基础

内置函数

调试/跟踪/Debug

模块/类模块

API/COM/系统相关

字符数字日期

网络通信游戏

加密解密安全

文件处理

经典算法

宏/菜单/工具栏/功能区

宏/脚本

菜单/工具栏

功能区/Ribbon

图表/图形/图像/多媒体

图表

图形/图像

音频

视频/动画

DAO/链接表/ADO/ADP

DAO/链接表/ODBC

ADO/RDO

ADP

ActiveX/第三方控件/插件

Treeview树控件

ListView列表控件

Toolbar工具栏控件

微软其它控件

Dbi-Tech

CodeJock

Grid++Report

FastReport

ComponentOne

加载项/插件/Addin

OFFICE集成/导入导出/交互

Excel导入导出/交互

Word导入导出/交互

PPT交互

Outlook控制/邮件

Text文本文件/INI/CSV

PDF/SWF/XML格式

CAD格式

Sharepoint/其它Office

SqlServer/其它数据库

表

视图

存储过程/触发器

函数

用户/权限/安全

调试/维护

SqlServer其它/综合

发布/打包/文档/帮助

开发版/运行时

打包/发布/部署

开发文档/帮助制作

Access完整行业系统

采购管理系统

销售管理系统

仓库管理系统

人力资源管理HRM

CRM管理系统

MRP/ERP管理系统

BRP/流程优化

其它管理系统

心得/经验/绝招
其它/杂项
Excel技巧

Excel应用与操作

Excel开发编程

Word技巧

Word应用与操作

Word开发编程

Outlook技巧

Outlook应用与操作

Outlook开发编程

热门文章

  • Access通用开发平台在..
  • Access通用平台解决登..
  • 浅谈Access中条件表达..
  • Freebasic菜鸟初学..
  • 浅谈Access中条件表达..

最新文章

  • 浅谈Access中条件表达..
  • 浅谈Access中条件表达..
  • Freebasic菜鸟初学..
  • Access通用平台解决登..
  • Access通用开发平台在..

联系方式

Access交流网(免费Access交流)

QQ:18449932 

网  址:www.access-cn.com

当前位置:首页 > 技巧 > 其它/杂项
其它/杂项

浅谈Access中条件表达式Criteria(二)

        在上篇文章中,我们发现Access隐藏了Criteria的求值方法,最后,我们通过将Criteria绑定到数据源的方式,完成了这一过程,Criteria满心以为Access会严守她的秘密,但是Access庞大的系统中,还是有人最后出卖了她。

  这时候的我,就像3000年前爱琴海边的特洛伊王子帕里斯,在斯巴达王眼皮底下悄悄地带走了美丽的海伦,当我以为已经完全拥有了她的时候,却发现更多的麻烦接踵而来。

  是否通过绑定数据源,我们就能解读一切在Access环境中合法的Criteria呢?我开始感到疑惑。在控件的“有效性规则”属性上,我止步了:

>50 And <100


  一个普通到不能再普通的条件表达式,摧毁了我的一切信心。这个在有效性规则、过滤器、条件格式等场合非常常见的表达式,我们却拿他束手无策。这算是哪门子表达式啊?即使海伦就在你的身边,但是语言不通也没法交流感情啊,总不可能要求我了解这爱琴海边广阔疆域内的每一种方言吧(况且,我也不喜欢说土话的女人……)

  自己写代码来解读这类表达式显然是不现实的,除非我已经作好了写一个编译器的心理准备。相比之下,找内奸的成本还是比较低的。功夫不负有心人,我派出了“对象浏览器”这个潜入Access很久的探子,很快就有消息来报,Application类有个方法叫BuildCriteria,好像和Criteria有关,事不宜迟,立即拜访。

  果然,BuildCriteria对Criteria很熟悉,事实上他在Access中担任着Criteria的审查工作,或者说是标准化工作。各地选派到Access总部的带着各地风俗习惯Criteria,都要通过他的审查和培训,成为一个标准的Criteria(听起来怎么有点象太监……[em06])。这里我就不赘述BuildCriteria的职能了,这个在他的档案中有详细描述。BuildCriteria很快就提供给了我一个例子:

strCriteria = BuildCriteria("[订购日期]", dbDate, ">1-1-95 and <5-1-95")


  我们来看看BuildCriteria改造过后的Criteria:

[订购日期]>#1/1/95# And [订购日期]<#5/1/95# 


  太神奇了,BuildCriteria不但纠正了Criteria严重的地方口音,还将方言中的俗语彻底地标准化成了普通话,经过改造后的Criteria落落大方,已经可以出现在任何正式的场合。欣喜之下,我心满意足地将Criteria的绑定到一个控件上,这下,她彻底属于我了。

  好景不长,有一天,当我临时决定回家的时候,我突然发现,她居然不在家里,更令我震惊的是,我安排在家中的三大警卫:司机BeforeUpdate、门卫AfterUpdate、贴身保镖OnChange,居然一个都不知道她去哪里了。虽然后来我知道,她只是出去逛街了而已,但是……

  就像任何一个溺爱妻子的丈夫一样,我无时无刻不惦记着她,希望随时都能了解她在干什么,我觉得这是一种关心的表现,而现在这样她出去溜了一圈我却毫不知情的现状,是绝对不能容忍的(观众皱眉:怎么闻到一股子酸味……)。大怒之下,我把那三个警卫统统炒了鱿鱼,然后寻思着该怎么才能随时知道她在干吗(否则哪天被戴了绿帽子都不知道,哼哼……)

  第二天我就去了Access总部参观了一下,导游首先带我浏览了条件格式的展示区,令我大开眼界的是,条件格式中的Criteria居然牢牢地受到Access系统的监视,哪怕她轻轻打了个哈欠,条件格式都灵敏地作出了反应,这不就是我想要的效果吗?但是展示归展示,当我问到如何才能对于Criteria的变化作出实时反应的时候,导游聪明地岔开了话题(这个狐狸……)

  看来,实时监视是完全可行的,Access系统就做到了,看来ControlSource这个家伙对我还是有所保留,不能靠他了,还是要自己想办法。我突然想起了Hook这个间谍,专门喜欢往人家身上放监视器,截获人家的信件、电话,平日里向来为我所不齿,但是在这种特殊情况下,或许可以学学他的做法。

  经过一番折腾,很快我就做出了一个简单的监视器,这个监视器的功能很简单,既然ControlSource知道Criteria在干吗,但是却只向Access汇报,却不告诉我,那么Criteria必定和ControlSource有私下的联系,我就让这个监视器监视他们之间的通讯,当然,是在不被他们发觉的情况下……

  让我们来看看这个简单监视器的构造:

Public Function Monitor(criteria As String) As Function

    Debug.Print criteria '记录下她在干什么

    Monitor = criteria

End Function


  然后我们把这个监视器悄悄地装在Criteria身上,于是:

Text1.ControlSource = "=" & Criteria


  就变成了:

Text1.ControlSource = "=Monitor(" & Criteria & ")"


  安装好一试,哈哈,果然管用。所有被监视器记录了下来


发布人:LucasLynn  
分享到:
点击次数:  更新时间:2017-11-24 17:41:54  【打印此页】  【关闭】
上一条:Access动态修改子窗体的默认值  下一条:浅谈Access中条件表达式Criteria



相关文章

  • • 浅谈Access中条件表达式Criteria
  • • Freebasic菜鸟初学Freebasic基础教程
  • • Access通用平台解决登录不弹出登录框的问题
  • • Access通用开发平台在系统启动时自动打开你指定的窗体

热门文章

  • [2017-11-16] 浅谈Access中条件表达式Criteriaaccess数据库
  • [2017-11-24] 浅谈Access中条件表达式Criteria(二)access数据库
  • [2017-05-06] Access通用平台解决登录不弹出登录框的问题access数据库
  • [2017-05-22] Freebasic菜鸟初学Freebasic基础教程access数据库
  • [2017-05-04] Access通用开发平台在系统启动时自动打开你指定的窗体access数据库

热门产品

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

Access交流网 版权所有 1999-2018 粤ICP备10043721号

QQ:18449932

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

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

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