Question

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

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

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

如何从表中获取值？

Answer 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

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

1 个答案: