如何使用Access VBA选择查询显示所有结果

Question

我正在运行下面的代码来运行sql并在消息框中显示产品。这很好用。我的问题是，我是否希望同时显示所有产品，以便复制或导出结果，就像运行Access Query一样，它会给我显示的所有产品。我在这里能做什么？我需要重写整个查询还是只需将for循环和msgbox更改为其他内容？

Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Dim rcnt As Integer
Set rs = db.OpenRecordset("SELECT jd.Product FROM Consumption_JobDetails 
AS jd " & _"INNER JOIN Consumption_JobRepairCentre AS jc ON jd.jobnumber = jc.jobnumber;")
rs.MoveLast
rs.MoveFirst
For rcnt = 0 To rs.RecordCount
MsgBox (rs.Fields("Product").Value)
rs.MoveNext
Next rcnt

Answer 1

使用串联来构建一个值字符串，以便在MsgBox中显示。

Do While Not rs.EOF
strP = strP & rs!Product & ", " 'or use vbCrLf instead of ", ".
rs.MoveNext
Loop
MsgBox strP