Msgbox来自查询访问

Question

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

查询如下：

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

我该怎么做？

谢谢

Answer 1

您可以在单行中使用 DLookup ：

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