如何使用 Access VBA Select Query 显示所有结果？

如何解决如何使用 Access VBA Select Query 显示所有结果？

我正在运行以下代码来运行 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

解决方法

使用串联来构建要在 MsgBox 中显示的值字符串。

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