VBA 在 Access 中的“搜索”旁边显示相邻数据
VBA Display Adjacent Data next to Search in Access
长话短说，我已经搜索了三天来解决这个问题，只是找不到网站或 post 在这里我的情况。
我想要一个带有文本框的表单，用于搜索数字，例如“003.30”，下面有另一个文本框显示单元格相关信息。我的 table（标题为 icd9_codes）有两列，"BETTER_CODES" 和 "LONG_DESCRIPTION"。在一个表格中（或者什么会更好？），我在文本框中输入我的 ICD 代码，然后该 ICD 代码的详细说明将出现在下面的另一个文本框中。
我还是 vba 的新手，我在 excel 中学到的东西并没有转移到 Access。
以下是如何使用 DLookup 函数 VBA 完成此操作。您可以将此代码放在表单按钮回调或输入搜索代码的文本框的按键回调中。
Me.TextboxToDisplayDescription = Nz(DLookup("LONG_DESCRIPTION", "icd9_codes", "[BETTER_CODES] = '" & Me.TextboxToSearchWith & "'"), "Invalid Code")
DLookup 函数周围的 "Nz" 函数不是必需的，但是如果用户碰巧输入 icd9_codes 中不存在的代码，它将防止 "Invalid Use of Null" 错误table.
长话短说，我已经搜索了三天来解决这个问题，只是找不到网站或 post 在这里我的情况。
我想要一个带有文本框的表单，用于搜索数字，例如“003.30”，下面有另一个文本框显示单元格相关信息。我的 table（标题为 icd9_codes）有两列，"BETTER_CODES" 和 "LONG_DESCRIPTION"。在一个表格中（或者什么会更好？），我在文本框中输入我的 ICD 代码，然后该 ICD 代码的详细说明将出现在下面的另一个文本框中。
我还是 vba 的新手，我在 excel 中学到的东西并没有转移到 Access。
以下是如何使用 DLookup 函数 VBA 完成此操作。您可以将此代码放在表单按钮回调或输入搜索代码的文本框的按键回调中。
Me.TextboxToDisplayDescription = Nz(DLookup("LONG_DESCRIPTION", "icd9_codes", "[BETTER_CODES] = '" & Me.TextboxToSearchWith & "'"), "Invalid Code")
DLookup 函数周围的 "Nz" 函数不是必需的，但是如果用户碰巧输入 icd9_codes 中不存在的代码，它将防止 "Invalid Use of Null" 错误table.