访问VBA - 在Msgbox中显示表行数据

Question

我很擅长使用Access VBA进行编程，但我无法找到可以帮助解决此问题的任何地方。

我正在使用一个包含伦敦地区邮政编码列表的表格。我有一个2248个邮政编码列表，每个邮政编码都有一个群集参考。例如

N1 1AS |一个 N16 5DF | ˚F

等等。

我的问题是当我想显示群集信息时。我尝试了一个组合框，但似乎有一个限制并停在大约100个邮政编码，我想编写一个命令，一旦有人输入邮政编码将触发一个消息框将弹出并显示该邮政编码的集群

例如，我在邮政编码框中键入N1 1AS，它将在消息框中显示A.

感谢您的所有帮助，

Gareth Jones

Answer 1

在文本框旁边放一个按钮，OnClick事件就像：

Dim X as String

X = DLookUp("tblPostcodes", "fldCluster", "fldPostCode = '" & Me.txtPostCode & "'")

msgbox "The Cluster is " & X

这可能需要稍加调整，但它应该让你接近。

编辑：你可以把它放在文本框的LostFocus事件中，但我不是那个粉丝，因为如果有人因某种原因决定点击开箱即可尝试执行代码，它只是感觉很草率。