在组合框中选择一个数字N作为查询N条记录的数字

hwm0077　发表于：2012-10-05 23:19:22 　

复制

表A：

编号名称

001 AAA

002 AAB

004 AAH

009 AAJ

011 BBC

016 TWY

031 LKJ

045 HUI

081 HWR

084 JKD

099 DGH

注：1、编号是不重复但不连续的。

2、窗体中有一个组合框，可以选择3、5、8、10...等(或者在一个文本框中输入一个数字)。

问题：如何建立一个查询得到最近N条记录的编号？这个参数N是组合框(或文本框)中的数字。

例如：当组合框中的数字是“3”时，查询结果是：

编号

099

084

081

当组合框中的数字是“5”时，查询结果是：

编号

099

084

081

045

031

自己在查询的SQL语句中这样写： SECELT TOP [Forms]![窗体名]![组合框名].[value] 编号 FROM 表A ORDER BY 编号 DESC;

提示：“SELECT子句中包含一个保留字、拼写错误或丢失的参数，或标点符号不正确。”

不知道是什么错误？怎样才能实现这个查询呢？

望老师们指导！！最好给个示例。谢谢了！

Top

煮江品茶发表于：2012-10-06 20:19:47

top 子句的参数好像不能为变量，只能为一个常量，所以需要动态的修改查询语句。假设事先存在一个叫做“表A查询”的查询，则可以如下处理：

1、写一个函数或者子程序：

function EditQuery(n as long)
     dim Qdef As QueryDef
     dim ssql as string
     ssql="select top " & n & " * from 表A ORDER BY 编号 DESC"
     Set Qdef = CurrentDb.QueryDefs("表A查询")
     Qdef.SQL = ssql
     Qdef.Close
     Set Qdef = Nothing
end function

2、在组合框的更新后事件中调用该函数：

call EditQuery(me.组合框名称.value)

Top

hwm0077 发表于：2012-10-11 16:29:25

感谢煮江品茶老师，试了几次不成功。

“假设事先存在一个叫做“表A查询”的查询”这句不太明白？！

Top

沈军发表于：2012-10-11 22:36:11

煮江品茶老师已经为你做了一个函数，非常完美的解决方案，你只需要将此函数复制到你的窗体代码里面，然后在“组合框”更新后事件中加入2的代码内容。

call EditQuery(me.组合框名称.value)

为何要有选择性的3行5行或多少行显示呢？如果只是想组合框中显示的值是最近的，你直接可以利用ID字段，或在一个能够进行先后顺序的字段中加一降序排序，且组合框属性中也有一个属性可以设置显示多少行的选项

Top