Office中国论坛/Access中国论坛

标题: 查找问题？ [打印本页]

作者: cjls2000 时间: 2006-5-16 16:48
标题: 查找问题？
现在有一个工程中用到这样的一个概念  就是查找最近的数

如：  X=100 当然所以记录中  没有一条记录等于100时候

立即查找最近接近100的数即查找等于（100±1）101 /  99 的记录

再没有则  查找（100±2） 102/98 的记录  以此类推

请问如何用VBA代码来完成查找 [em06][em06]

作者: sgrshh29 时间: 2006-5-16 17:17
严格的说，这不是编程问题，只不过是个初中数学问题。

select distinct dmin("abs([数值]-100)","表1") as 最接近值

或者：select distinct min(abs([数值字段]-100)) as 最接近值
from 表

[此贴子已经被作者于2006-5-16 9:25:01编辑过]

作者: cjls2000 时间: 2006-5-16 17:26
请问其中 [数值] 是？？字段名吗？？还有-100 是什么 AS 后面才应该是100 （100为例）

作者: cjls2000 时间: 2006-5-16 17:28
还有我要在VBA中完成不是查询 [em01]

作者: sgrshh29 时间: 2006-5-16 18:18
麻烦您把文件上传。有实例做起来方便一些。

作者: cjls2000 时间: 2006-5-16 18:51
这个是一个试验用的列子 [attach]17804[/attach]
帮忙写一下

作者: sgrshh29 时间: 2006-5-16 19:37
<DIV class=quote>以下是引用cjls2000在2006-5-16 10:51:00的发言：
这个是一个试验用的列子 [attach]17805[/attach]

作者: cjls2000 时间: 2006-5-17 01:02
请解释一下VBA的代码的意思万分感谢谢谢

作者: LucasLynn 时间: 2006-5-17 02:44

VBA中只需要直接调用DMin函数即可，例如：

a=DMin("ABS([数值]-100)","表1")

作者: cjls2000 时间: 2006-5-17 19:26
十分感谢[em01]

作者: cjls2000 时间: 2006-5-17 19:46
如果我同时考虑两个因素怎么写？请帮我在改一下谢谢

[attach]17830[/attach]
[em01]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)