显示多个验证消息给用户(Display multiple validation messages t

在MS-Access中，我怎么能存储在一个阵列从我的SELECT语句返回的行，并显示一个消息框，多行：

Dim rSEL, rSUM, rDes As DAO.Recordset
Dim vItem_id, vQnty, vSum As Integer
Dim vDes As String
If Not IsNull(itemId) And Not IsNull(qnty_in) Then
    If qnty_in <= 0 Or qnty_in > balance Or IsNull(balance) Then
        Cancel = True
    End If
    Set rSEL = CurrentDb.OpenRecordset("SELECT item_id,item_qnty 
               FROM basketQnty_tbl WHERE basket_id=" & basketId)
    'Check to see if the recordset actually contains rows
    If Not (rSEL.EOF And rSEL.BOF) Then
    rSEL.MoveFirst
    Do Until rSEL.EOF
        'Save itemId into a variable
        vItem_id = rSEL!item_id
        vQnty = (rSEL!item_qnty) * qnty_in
        Set rSUM = CurrentDb.OpenRecordset("SELECT sum(qnty_in*qnty_type) 
                   as QN FROM sales_tbl WHERE itemid=" & vItem_id)
        Set rDes = CurrentDb.OpenRecordset("SELECT itemDesc 
                   FROM items_main WHERE itemId=" & vItem_id)
        vSum = rSUM!QN
        vDes = rDes!itemDesc
        'Move to the next record. Don't ever forget to do this.
        If vQnty > vSum Then
            MsgBox "you have only (" & vSum & " ) of Item (" & vDes & " ) in the stock"
            Cancel = True
        End If
    rSEL.MoveNext
    Loop
    End If
   rSEL.Close
End If

Answer 1:

反正你知道GetRows在DAO和ADO方法？ 你可以在你的情况下使用它。

yourarray = recordset.GetRows()

Answer 2:

我不会用一个消息框对于这一点，因为你可能有数百行，而且他们也不会都适合。 相反，我会创建一个自定义窗体与列表框，每当你得到错误，请执行以下操作：

If vQnty > vSum Then
    <ErrorForm>.<ListBox>.AddItem("You have only (" & vSum & " ) of Item (" & vDes & " ) in the stock")
    Cancel = True
End If

如果在循环结束时，取消=真，显示ErrorForm。

另一件事 - 你可以创建一个查询，该做这一切，一气呵成。 你需要加入三个表，并添加vQnty> VSUM条件。 这将是非常简洁的，因为你可以使用查询作为列表框的源 - 无需任何代码。

文章来源: Display multiple validation messages to the user