VBA显示在Access中搜索旁边的相邻数据

时间:2016-11-07 21:09:35

标签: ms-access access-vba ms-access-2016

长话短说我一直在寻找解决这个问题的三天,但是在这里找不到像我这样情况的网站或帖子。

我想要一个带有文本框搜索数字的表单,如“003.30”,下面有另一个文本框显示单元格相关信息。我的表(标题为icd9_codes)有两列,“BETTER_CODES”和“LONG_DESCRIPTION”。在一个形式(或更好的?)中,我在文本框中输入我的ICD代码,然后该ICD代码的长描述将出现在下面的另一个文本框中。

我还是vba的新手,我在excel中学到的东西并没有转移到Access。

1 个答案:

答案 0 :(得分:2)

这是如何使用DLookup功能VBA实现的。您可以将此代码放在表单按钮回调或输入搜索代码的文本框的按键回调中。

Me.TextboxToDisplayDescription = Nz(DLookup("LONG_DESCRIPTION", "icd9_codes", "[BETTER_CODES] = '" & Me.TextboxToSearchWith & "'"), "Invalid Code")

" Nz"不需要围绕DLookup函数的函数,但它会阻止"无效使用Null"如果用户碰巧输入了icd9_codes表中不存在的代码,则会出错。