ACCESS模块中的自定义函数_吴超

http://blog.sina.com.cn/u/1173004314

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

ACCESS模块中的自定义函数

(2016-10-28 16:21:13)

标签：

access数据库

模块

自定义函数

分类：代码天地

在ACCESS数据库中没有存储过程、函数、触发器等功能, 复杂的功能需要使用ACCESS提供的模块功能，在其中自定义函数来实现。过程如下：

启动access后

1 点击左侧的工具窗口上的【表】按钮，创建如下的表“入库”，输入数据

"编号" "日期" "名称" "数量"

1, 2016-1-10, "火腿", 1

2, 2016-2-10, "方便面", 2

3, 2016-2-10, "火腿", 3

4, 2016-3-10, "火腿", 4

5, 2016-4-10, "火腿", 1

6, 2016-5-10, "方便面", 3

7, 2016-6-10, "方便面", 4

8, 2016-7-10, "方便面", 2

9, 2016-8-10, "火腿", 5

2 点击左侧的工具窗口上的【模块】按钮，新建一个模块，取名为myModel

输入如下代码，函数名称为 RetTableVal 并保存

Option Compare Database

Public Function RetTableval_r(TableName As String) As String

Dim rs As Recordset

Set rs = CurrentDb.OpenRecordset("select * from " & TableName)

RetTableVal = rs.Fields(0).Value

End Function

3 点击左侧的工具窗口上的【查询】按钮，按向导新建一个查询，取名“入库”

3.1双击打开查询“入库”，从菜单上视图-- SQL视图，打开对应的语句如下：

SELECT 入库.编号, 入库.日期, 入库.名称, 入库.数量

FROM 入库;

3.2 修改查询语句为调用函数RetTableVal

SELECT RetTableval_r("入库") as 名称

3.3 从菜单上查询--执行，得到如下的结果

名称是火腿

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：使用access调试SQL语句

后一篇：win7/8 建立无线网络共享让其它设备上网

新浪BLOG意见反馈留言板　欢迎批评指正