《ACCESS窗体查询实例》由会员分享，可在线阅读，更多相关《ACCESS窗体查询实例（23页珍藏版）》请在金锄头文库上搜索。
1、一. 概述作为数据管理程序，统计和查询功能是非常重要的。否则，就和电子表格没有区别了。所以，在每个ACCESS程序中都不可能缺少查询的功能。本文的目的是由浅入深的介绍几种最常用的利用主/子窗体来实现查询的方法，使初学者和有一定VBA基础的人可以更好的使用窗体查询这种手段。附件中的窗体“常用窗体查询0.MDB”，仅包含3个数据表、1个查询和以这个查询为数据源的报表。是为了大家根据后面学习的内容作练习用的。我们先看查询中的数据：书籍编号书名类别作者出版社单价进书日期22CHIP-01-08报刊电子计算机与外部设备期刊社电子计算机与外部设备￥16.802001-9-2825电脑新时代-6光盘光盘UN
2、KNOWN电脑新时代￥5.002002-7-827学电脑-7光盘光盘UNKNOWN人民邮电￥5.002002-7-1328CHIP-02-07光盘光盘电子计算机与外部设备杂志社电子计算机与外部设备￥5.002002-7-1316MCSE学习指南书籍Syngress Media公司人民邮电￥62.002001-9-2817局域网原理与架设技术内幕大公开书籍蔡昌均中国青年￥69.002001-9-2819AccessVBA基础书籍EvanCallahan人民邮电￥39.002001-9-2820中文版Access2001一册通书籍赵琳等人民邮电￥42.002001-9-2821VISUALBASI
3、C5.0教程书籍SteveBrown电子工业￥28.002001-9-2823中文版VisualBasic5.0程序员指南书籍microsoft中国青年￥70.002001-9-2824Access中文版开发指南书籍Alison Balter人民邮电￥128.002002-2-1629Access 2002数据库系统开发实例导航书籍桂思强中国铁道￥25.002003-3-1030中国名陵集中华古代名陵之大成书籍罗哲文等百花文艺￥14.002003-5-2031边缘部落福音谷书籍林茨（撰文摄影）河北教育￥27.002003-5-20为了比较有代表性，这个查询中包含多种字段类型：数字类型：【书籍编
4、号】、【单价】字符类型：【书名】、【类别】、【作者】、【出版社】日期类型：【进书日期】在多条件查询中，我们会使用除了【书籍编号】之外的其他字段作为查询条件。其实，在下面介绍的窗体查询方法中，有些代码或思路也可以应用在其它窗体查询方法中，你对各种代码、方法和思路越熟练，就越能充分发挥它们的作用。这篇文章我是从4月初开始构思，到5月中旬开始动笔，花费两周时间写成，里面包含了我对ACCESS窗体查询所积累的经验，对初学者和有一定VBA基础的人都有针对性的方法。另外，希望其他精通ACCESS的高手提出意见。二. 制作主/子窗体的步骤1. 利用向导制作主窗体现在的主窗体还太小，要已经以下步骤才能变成我们
5、需要的主窗体（如下图）：把窗体面积放大到足以容纳条件输入字段和子窗体，并调整所有控件的字体；把窗体的“记录源”和各控件的“数据来源”都删除（很多初学者很容易犯的错误就是这里），把类别和出版社改为组合框（因为这些字段的可能值比较少，直接选择就好，不必让用户输入）；重新调整各字段的位置，并增加了两个空文本框和标签放在单价和进书日期后面（因为我打算使用一个范围来作查询条件，而不是一个固定的值，这样比较符合实际）；单价后面的两个文本框改名为“单价开始”和“单价截止”，进书日期后面的两个文本框改名为“进书日期开始”和“进书日期截止”；画一个矩形框包住所有查询条件，把矩形框背景设置为常规，背景色为深灰色，
6、特殊样式为凹陷，此时矩形框覆盖了其它控件，要用菜单中“格式”“置于底层”才能让它们显示出来；在窗体上用向导建立一个按钮，按钮标题是“查询”，名称是“cmd查询”先不管里面的代码，后面再修改；窗体属性中“记录选定器”否，“浏览按钮”否。2. 利用向导设计子窗体在主窗体中用工具箱中的“子窗体/子报表”对象建立一个子窗体；以存书查询为记录源，选择所有字段；把子窗体命名为“存书查询子窗体”；在主窗体上删除子窗体的标签，并重新调整子窗体的大小；关闭主窗体的设计视图，单独打开子窗体数据表视图，调整字体和行的大小。现在，我们得到了如下的窗体：现在还没有实际的查询功能，我们在后面要根据所使用的方法，修改窗体并
7、增加一些其他的功能。还有一些小的细节要注意，比如：按TAB键后的获得光标的控件的顺序要在设计视图下，视图菜单的“TAB键次序”来修改；有些文本框获得焦点后是否要打开输入法，比如输入单价和日期的地方要关闭，输入书名和作者的地方要打开，这些要在控件属性中设置。三. 查询方法1：在查询中加入条件这种方法对应的实例数据库是：“常用窗体查询1.MDB”。1. 设计查询我们打开“存书查询”设计视图如下：在字段【书名】的准则格内写入：Like IIf(IsNull(Forms!存书查询窗体!书名),*,* & Forms!存书查询窗体!书名 & *)加入后的设计视图如下：把这个式子解释一下：LIKE：是专门
8、用于查询字符型字段的运算符，一般介绍ACCESS的书中都有它的用法。ISNULL(Forms!存书查询窗体!书名)：是用来判断窗体“存书查询窗体”上面的“书名”这个文本框是否是空的。如果文本框是空的，则：ISNULL(Forms!存书查询窗体!书名)=TRUE（真）如果文本框不是空的，则：ISNULL(Forms!存书查询窗体!书名)=FALSE（假）IIF(EXPR, TRUEPART, FALSEPART)函数：EXPR 必要参数。用来判断真伪的表达式。 TRUEPART 必要参数。如果 EXPR 为 TRUE，则返回这部分的值或表达式。FALSEPART 必要参数。如果 EXPR 为 F
9、ALSE，则返回这部分的值或表达式。所以当我们在窗体“存书查询窗体”上面的“书名”里写上“ACCESS”，整个式子的结果是：LIKE *ACCESS*相当于查询所有书名中包含“ACCESS”的书籍，这样可以实现模糊查询。Like IIf(IsNull(Forms!存书查询窗体!书名),*, Forms!存书查询窗体!书名 & *)Like IIf(IsNull(Forms!存书查询窗体!书名),*, Forms!存书查询窗体!书名)如果把准则改为上面两句中的一句，同样情况下当我们在窗体“存书查询窗体”上面的“书名”里写上“ACCESS”，整个式子的结果是：LIKE ACCESS*LIKE AC
10、CESS相当于查询以“ACCESS”开头的书籍（半模糊查询），或者书名就叫“ACCESS”的书（精确查询）。具体使用那一种形式的查询要根据你的实际情况来修改。当我们在窗体“存书查询窗体”上面的“书名”里什么也没有写，整个式子的结果是：LIKE *相当于查询所有的有书名的书。在书写查询准则时，Forms!存书查询窗体!书名这样的窗体控件名很难写，这时你可以在准则格内点鼠标右键，选择生成器，出现如下图的窗口：在左边的树型列表框里找到控件所在的窗体，在中间列表框出现这个窗体包含的所有控件，双击控件名，就会出现“Forms!存书查询窗体!书名”。我们再把其他几个字段的查询准则写出：【类别】：在窗体上是
11、组合框，所以它肯定是个精确查询，跟【书名】一样，它是文本字段。查询准则如下：Like IIf(IsNull(Forms!存书查询窗体!类别),*,Forms!存书查询窗体!类别)【作者】：跟【书名】一样，它是文本字段。我也打算用模糊查询。查询准则如下：Like IIf(IsNull(Forms!存书查询窗体!作者),*,* & Forms!存书查询窗体!作者 & *)【出版社】：跟【类别】的情况完全一样。查询准则如下：Like IIf(IsNull(Forms!存书查询窗体!出版社),*,Forms!存书查询窗体!出版社)【单价】：是一个数字字段，我在这里准备让用户可以查询“1.5元6.5元”
12、这样的范围。查询准则如下：Between IIf(IsNull(Forms!存书查询窗体!单价开始),0,Forms!存书查询窗体!单价开始) And IIf(IsNull(Forms!存书查询窗体!单价截止),5000,Forms!存书查询窗体!单价截止)BETWEEN AND：是查询符合某个范围之内的值所需的条件格式。“BETWEEN 1 AND 5”相当于“【字段】1 AND 【字段】5”。根据前面讲解的IIF的内容，我用一个表格来解释一下各种情况下这个式子的实际结果，便于大家理解：（0和5000是我事先在条件中设定的最小值和最大值）单价开始的值单价截止的值整个式子的实际结果空空BETW
13、EEN 0 AND 50001.5空BETWEEN 1.5 AND 5000空20BETWEEN 0 AND 201.56.5BETWEEN 1.5 AND 6.5【进书日期】：是一个日期型字段，我在这里准备让用户可以查询“#2001-5-1#2002-5-1#”这样的范围。查询准则如下：Between (IIf(IsNull(Forms!存书查询窗体!进书日期开始),#2000-1-1#,Forms!存书查询窗体!进书日期开始) And (IIf(IsNull(Forms!存书查询窗体!进书日期截止),#2099-12-31#,Forms!存书查询窗体!进书日期截止)在这个式子中，#2000
14、-1-1#和#2099-12-31#是我设定的两个默认的开始和截止日期。如果用户不输入，就使用默认值了。这和前面【单价】的情况是一样的。2. 设计按钮及代码2.1 查询按钮查询按钮的代码非常简单，关键部分只有一句：Private Sub cmd查询_Click() Me.存书查询子窗体.Requery 这句是关键End SubREQUERY：是用来重新查询控件的数据源，这样可以刷新子窗体显示的记录。对于记录源是表或查询的控件如窗体、列表框、组合框等经常用Requery方法来刷新显示内容。2.2 清除按钮有了查询按钮的代码之后，大家就可以自己测试查询的效果了。不过，每次想换一个查询的条件时要清除上一个条件输入的东西，有时候比较麻烦。我们再来设计一个清除条件的按钮，控件名称是“cmd清除”，放在查询按钮的下面。按钮的代码如下：Private Sub cmd清除_Click() 下面这些控件的值要清空 Me.书名 = Null Me.类别 = Null
