Msgbox 来自查询访问

【问题标题】：Msgbox From query accessMsgbox 来自查询访问
【发布时间】：2016-12-18 15:04:26
【问题描述】：

我有一个包含 Id 字段的访问表单。一旦用户输入 Id ，我想在更新后事件上运行查询以获取患者历史字段并将其显示为消息框。

查询如下：

"Select Patients.[Patient History] From Patients Where Patients.ID = " & Me.PatientID

我该怎么做？

谢谢

【问题讨论】：

【解决方案1】：

您可以在单行中使用 DLookup：

MsgBox Nz(DLookup("[Patient History]", "Patients", "ID = " & Me!PatientID.Value & "")), vbInformation + vbOkOnly, "Patient History"

【讨论】：