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

Question

长话短说，我一直在寻找三天的解决方案，只是找不到像我这样的网站或帖子。

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

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

Answer 1

以下是如何使用 DLookup 函数 VBA 完成此操作。您可以将此代码放在输入搜索代码的文本框的表单按钮回调或按键回调中。

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

DLookup 函数周围的“Nz”函数不是必需的，但如果用户碰巧输入了 icd9_codes 表中不存在的代码，它将防止“无效使用 Null”错误。