ACCESS窗体查询实例.doc

ACCESS 常用的窗体查询方法及实例 刘小军 Alex 2003 51 目录目录 一 概述 2 二 制作主 子窗体的步骤 4 1 利用向导制作主窗体 4 2 利用向导设计子窗体 5 三 查询方法 1 在查询中加入条件 8 1 设计查询 8 2 设计按钮及代码 11 2 1 查询按钮 11 2 2 清除按钮 11 2 3 打印按钮 12 2 4 导出 EXCEL 按钮 12 3 增加统计功能 13 3 1 子窗体上的设计 13 3 2 主窗体上的设计 14 4 方法总结 14 4 1 本方法优点 15 4 2 本方法缺点 15 四 查询方法 2 用 VBA 生成窗体筛选条件 16 1 按钮代码设计 16 1 1 查询按钮 16 1 2 清除按钮 18 1 3 预览报表按钮 19 1 4 导出按钮 19 1 5 CheckSubformCount 子程序 20 2 方法总结 21 五 主子窗体交叉表查询实例 22 1 按钮设计 23 1 1 查询按钮 23 2 报表设计 24 3 方法总结 24 ACCESS 常用的窗体查询方法及实例 刘小军 Alex 2003 52 一一 概述概述 作为数据管理程序 统计和查询功能是非常重要的 否则 就和电子表格没有 区别了 所以 在每个 ACCESS 程序中都不可能缺少查询的功能 本文的目的是由浅入深的介绍几种最常用的利用主 子窗体来实现查询的方法 使初学者和有一定 VBA 基础的人可以更好的使用窗体查询这种手段 附件中的窗体 常用窗体查询 0 MDB 仅包含 3 个数据表 1 个查询和以这 个查询为数据源的报表 是为了大家根据后面学习的内容作练习用的 我们先看查询中的数据 书籍书籍 编号编号 书名书名类别类别作者作者出版社出版社单价单价进书日期进书日期 22CHIP 01 08 报刊 电子计算机与外部设 备期刊社 电子计算机与外部 设备 16 802001 9 28 25 电脑新时代 6 光盘光盘 UNKNOWN 电脑新时代 5 002002 7 8 27 学电脑 7 光盘光盘 UNKNOWN 人民邮电 5 002002 7 13 28 CHIP 02 07 光盘光盘 电子计算机与外部设 备杂志社 电子计算机与外部 设备 5 002002 7 13 16 MCSE 学习指南书籍Syngress Media 公司 人民邮电 62 002001 9 28 17 局域网原理与架设技 术内幕大公开 书籍蔡昌均中国青年 69 002001 9 28 19 AccessVBA 基础书籍 EvanCallahan 人民邮电 39 002001 9 28 20 中文版 Access2001 一 册通 书籍赵琳等人民邮电 42 002001 9 28 21 VISUALBASIC5 0 教程 书籍 SteveBrown 电子工业 28 002001 9 28 23 中文版 VisualBasic5 0 程序 员指南 书籍 microsoft 中国青年 70 002001 9 28 24 Access 中文版开发指 南 书籍 Alison Balter 人民邮电 128 002002 2 16 29 Access 2002 数据库 系统开发实例导航 书籍桂思强中国铁道 25 002003 3 10 30 中国名陵 集中华 古代名陵之大成 书籍罗哲文等百花文艺 14 002003 5 20 31 边缘部落 福音谷书籍林茨 撰文摄影 河北教育 27 002003 5 20 为了比较有代表性 这个查询中包含多种字段类型 数字类型 书籍编号 单价 字符类型 书名 类别 作者 出版社 ACCESS 常用的窗体查询方法及实例 刘小军 Alex 2003 53 日期类型 进书日期 在多条件查询中 我们会使用除了 书籍编号 之外的其他字段作为查询条件 其实 在下面介绍的窗体查询方法中 有些代码或思路也可以应用在其它窗体 查询方法中 你对各种代码 方法和思路越熟练 就越能充分发挥它们的作用 这篇文章我是从 4 月初开始构思 到 5 月中旬开始动笔 花费两周时间写成 里面包含了我对 ACCESS 窗体查询所积累的经验 对初学者和有一定 VBA 基 础的人都有针对性的方法 另外 希望其他精通 ACCESS 的高手提出意见 ACCESS 常用的窗体查询方法及实例 刘小军 Alex 2003 54 二二 制作主制作主 子窗体的步骤子窗体的步骤 1 利用向导制作主窗体利用向导制作主窗体 现在的主窗体还太小 要已经以下步骤才能变成我们需要的主窗体 如下图 把窗体面积放大到足以容纳条件输入字段和子窗体 并调整所有控件的字体 把窗体的 记录源 和各控件的 数据来源 都删除 很多初学者很容易犯 的错误就是这里 把类别和出版社改为组合框 因为这些字段的可能值比较 少 直接选择就好 不必让用户输入 重新调整各字段的位置 并增加了两个空文本框和标签放在单价和进书日期 后面 因为我打算使用一个范围来作查询条件 而不是一个固定的值 这样比 较符合实际 ACCESS 常用的窗体查询方法及实例 刘小军 Alex 2003 55 单价后面的两个文本框改名为 单价开始 和 单价截止 进书日期后面 的两个文本框改名为 进书日期开始 和 进书日期截止 画一个矩形框包住所有查询条件 把矩形框背景设置为常规 背景色为深灰 色 特殊样式为凹陷 此时矩形框覆盖了其它控件 要用菜单中 格式 置于底层 才能让它们显示出来 在窗体上用向导建立一个按钮 按钮标题是 查询 名称是 cmd 查询 先不管里面的代码 后面再修改 窗体属性中 记录选定器 否 浏览按钮 否 2 利用向导设计子窗体利用向导设计子窗体 ACCESS 常用的窗体查询方法及实例 刘小军 Alex 2003 56 在主窗体中用工具箱中的 子窗体 子报表 对象建立一个子窗体 以存书查询为记录源 选择所有字段 把子窗体命名为 存书查询子窗体 在主窗体上删除子窗体的标签 并重新调整子窗体的大小 关闭主窗体的设计视图 单独打开子窗体数据表视图 调整字体和行的大小 现在 我们得到了如下的窗体 ACCESS 常用的窗体查询方法及实例 刘小军 Alex 2003 57 现在还没有实际的查询功能 我们在后面要根据所使用的方法 修改窗体并增 加一些其他的功能 还有一些小的细节要注意 比如 按 TAB 键后的获得光标的控件的顺序要在 设计视图下 视图菜单的 TAB 键次序 来修改 有些文本框获得焦点后是否 要打开输入法 比如输入单价和日期的地方要关闭 输入书名和作者的地方要 打开 这些要在控件属性中设置 ACCESS 常用的窗体查询方法及实例 刘小军 Alex 2003 58 三三 查询方法查询方法 1 在查询中加入条件 在查询中加入条件 这种方法对应的实例数据库是 常用窗体查询 1 MDB 1 设计查询设计查询 我们打开 存书查询 设计视图如下 在字段 书名 的准则格内写入 Like IIf IsNull Forms 存书查询窗体 书名 再看一下设置了条件的交叉表查询的 SQL 语句 TRANSFORM Sum 存书查询 单价 AS 单价之 Sum SELECT 存书查询 类别 FROM 存书查询 WHERE 存书查询 单价 5 GROUP BY 存书查询 类别 PIVOT Format 进书日期 yyyy mm 可见 WHERE 是被插在中间的 所以我在生成 SQL 语句时要用如下代码 strSQL TRANSFORM Sum 存书查询 单价 AS 单价之 Sum SELECT 存书查询 类别 FROM 存书查询 strSQL strSQL WHERE strWhere strSQL strSQL GROUP BY 存书查询 类别 PIVOT Format 进书日期 yyyy mm 注意 在字符串中间要留一些空格 比如 FROM 存书查询 的后面 如果不 留 SQL 语句中 存书查询 和 WHERE 会连在一起 这样肯定是错的 显示交叉表的内容 不能直接刷新 Me 存书查询子窗体 SourceObject Me 存书查询子窗体 SourceObject 查询 存书查询 交叉表 这里也是一些人容易犯错的地方 因为子窗体里是查询对象 用 Me 存书查询子窗体 Requery 这样的语句是不能更新显示内容的 而要用 SourceObject 才能更新 如果子窗 ACCESS 常用的窗体查询方法及实例 刘小军 Alex 2003 525 体对象是窗体 而你又用 DAO 改变了作为子窗体记录源的查询的 SQL 语句 也要用这种方法来更新显示内容 刷新计数和合计显示 Me 计数 DCount 存书查询 交叉表 Me 合计 DSum 单价 存书查询 strWhere 由于子窗体对象不是窗体了 自然就没有什么窗体页脚来让你设计合计字段 所以用只好用 Dcount 和 Dsum 来统计了 其他按钮的代码都有注释 我就不专门讲了 2 报表设计报表设计 为了适应交叉表查询列数不固定的情况 我在页面页眉 主体 报表页脚都设 计了一些名称有规律的标签 文本框 打开查询 Set rst CurrentDb OpenRecordset SELECT FROM 存书查询 交叉表 WHERE 1 2 记录字段总数 intFieldsNum rst Fields Count 可能大家对 WHERE 1 2 这个条件比较迷惑 其实这是为了让这个 rst 没有 任何记录 因为我们需要的不是记录 只是各个字段的名字 这样也可以少占 用一些内存 其他代码已经有注释了 我就不在这里解释 3 方法总结方法总结 在子窗体中直接使用交叉表作为子窗体源对象是最简单的方法 交叉表查询中 日期类型的字段不能引用窗体上的控件作为