[access查询]在查询中返回符合指定条件的行记录

时　间:2004-04-02 00:00:00
作　者:竹笛   ID：8  城市：上海  QQ：3059255
摘　要:在查询中返回符合指定条件的行记录
正　文:

1、在模块中定义：
Function PlusOne(var As Variant)
Static i As Integer
i = i + 1
PlusOne = i
End Function

2、建立一查询，拖出你需要的列，增加一列：
Field Expr1: PlusOne(【MyField】) Mod 5

在总计栏选：Expression
在准则栏输入：0

3、结果将返回所有被5整除的记录

参考文章：
http://www.mvps.org
Have a query return every nth record in a table
Author(s)
Erika Yoxall


(Q) How can I write a query to return every fifth record from a table?

(A) Here's a general-purpose way to write a query to return every nth record from a table. It will choose equally-spaced records, but not start in any particular spot, i.e. it might return the 1st, 5th and 9th or 2nd, 6th and 10th records if set to a spacing of 4. First, create a new function:

Function PlusOne (var As Variant)
Static i As Integer
i = i + 1
PlusOne = i
End Function

Then, create your query. Drag down whatever fields you want to see in the output. Add one more column to the query, with these properties:

Field Expr1: PlusOne(【MyField】) Mod 5
Show No
Criteria 0

You can use any field in your output in place of MyField -- it doesn't matter which one you use. If you want every 7th record, use Mod 7, for every 10th record, use Mod 10, and so on.

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店