MS-ACCESS：如何在消息框中显示查询结果

Question

如何将查询结果输入到Access中的消息框中？

- Alex Gordon

---

在Access中，MsgBox()不适合多行。您需要一个数据表或连续表单，可以弹出以显示结果，而不是使用MsgBox()。 - David-W-Fenton

Answer 1

您可以使用记录集来实现此功能。

Dim rs As DAO.Recordset

Set rs=CurrentDB.OpenRecordset("NameOfQuery_Table_Or_SQLString")

If Not rs.EOF Then
   MsgBox "Hi, the first record, first field is " & rs.Fields(0)
End if

如果您想将所有记录返回到一个字符串中，也可以使用 ADO 记录集。

使用 DLookUp 可能更容易，这取决于您想从哪里返回以及想要返回什么。

- Fionnuala

Answer 2

我不确定我理解了，但是要设置在消息框中显示的文本，您可以调用：

MsgBox strYourTextHere

这里是Access 2007的MsgBox函数的文档。

- Jay Riggs

---

我想要类似于msgbox MyQuery的东西。 - Alex Gordon

MyQuery返回什么？如果它是一个字符串，它应该可以工作（在MsgBox函数的“prompt”参数所施加的限制内 - 请参阅我链接中的文档）。 - Jay Riggs

SELECT users.id, users.first, users.last, chavrusas.luser_type AS user_type, chavrusas.id, users.title, users.city, users.state, users.home_phone, users.email FROM Users INNER JOIN chavrusas ON Users.id=chavrusas.luser_id WHERE ((chavrusas.ruser_id)=id_txt and chavrusas.ended=false) AND (chavrusas.luser_type)<>(chavrusas.ruser_type) AND NOT ((chavrusas.luser_type)='teacher' AND (chavrusas.ruser_type)='student') AND NOT ((chavrusas.ruser_type)='teacher' AND (chavrusas.luser_type)='student'); UNION SELECT users.id, users.first, users.last, chavrusas.ruser_type AS user_type, chavrusas.id, users - Alex Gordon

你的数据以表格格式呈现。如果要按查询结果所示进行显示，最好使用网格或类似控件，具体取决于您的需求。可能的解决方法是通过编程循环遍历查询结果，并构建一个格式化字符串，其中包含您希望用户看到的内容，然后使用此字符串与MsgBox函数一起使用。 - Jay Riggs