从表中读取消息框的错误消息答案

【问题标题】：Reading error message for message box from table从表中读取消息框的错误消息
【发布时间】：2016-03-19 03:25:56
【问题描述】：

我试图在 MS Access 中显示错误消息，这将从一个表中获取错误。有一个表，只有一列有错误记录。我需要在 ms 访问的消息框中显示表中的所有记录。

我知道如何获取消息框但无法找到如何获取消息框中的记录

MsgBox "Errors are :" & vbCr & _
                "E.g. 000123", vbCritical + vbOKOnly

如何从表中获取值？

【问题讨论】：

通读this 看看它是否对您有帮助。我知道这有点不同，但概念就在那里。
谢谢！！它的工作我需要.. 干杯

标签： ms-access vba ms-access-2003

【解决方案1】：

在您的表单或独立模块中添加此子：

Public Sub DisplayErrors()

    Dim RS As Recordset
    Dim strErrors as string

    Set RS = CurrentDb.OpenRecordset("SELECT * FROM MyErrorTable")

    If Not RS.BOF Then
        While Not RS.EOF
            strErrors = strErrors & RS!MyErrorField & vbCrLf & vbCrLf 
            RS.MoveNext
        Wend
    End If

    RS.Close
    Set RS = Nothing

    MsgBox "Errors are : " & vbCrLf & strErrors , vbCritical + vbOKOnly

End Sub

将 MyErrorTable 和 MyErrorField 替换为您的表的名称，它是包含错误的唯一字段。

然后在任何地方使用 :

调用您的潜艇

DisplayErrors

【讨论】：

它对一个错误记录工作正常，我在该表中有 20 条记录，因此它会抛出 20 个错误消息框。我需要一个消息框中的所有 20 条记录
我修改了代码来实现你想要的。如果没问题，请将帖子标记为“已回答”，并且下次尝试自己搜索更多内容；-)