查找问题？

cjls2000

现在有一个工程中 用到这样的一个概念  就是查找最近的数

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

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

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



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

sgrshh29

严格的说，这不是编程问题，只不过是个初中数学问题。

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



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

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

cjls2000

请问  其中 [数值] 是 ？？字段名吗？？ 还有-100 是什么    AS 后面才应该是100 （100为例）

cjls2000

还有 我要在VBA中完成  不是查询  [em01]

sgrshh29

麻烦您把文件上传。有实例做起来方便一些。

cjls2000

这个是一个试验用的列子
帮忙写一下

sgrshh29

<DIV class=quote>以下是引用cjls2000在2006-5-16 10:51:00的发言：
这个是一个试验用的列子

cjls2000

请解释 一下VBA的代码  的意思   万分感谢 谢谢

LucasLynn

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

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

cjls2000

十分感谢[em01]