在 ms 访问表单中检查列表中的最后一个元素

Posted 2023-05-06

【中文标题】在 ms 访问表单中检查列表中的最后一个元素

【英文标题】：Checking the last element in list in ms access form

【发布时间】：2013-09-15 00:56:34

【问题描述】：

我在 ms 访问中检查列表中的最后一个元素并将最后一个值放入标签时遇到问题。我使用循环来实现这一点：

Private Sub lstAbgänge_DblClick(Cancel As Integer)

i = 0
r = 0

Do Until Me.lstAbgänge.Column(0, i) = Null
   i = i + 1
   r = Me.lstAbgänge.Column(0, i)
   If r = Null Then Exit Do
Loop

'Me.lblVorgangNr.Caption = Me.lstAbgänge.Column(0, i - 1)

End Sub

我的问题是循环永无止境，我尝试通过条件“Me.lstAbgänge.Column(0, i) = Null”结束这个循环，然后通过“If r = Null Then Exit Do”结束这个循环，但在这两种情况下它不起作用。当它有值时，Null 循环仍在工作。

View of list in form Debbuging

【参考方案1】：

试试这样的：

Private Sub lstAbgänge_DblClick(Cancel As Integer)

    Dim i as Integer
    For i = 0 to Me.lstAbgänge.ListCount - 1
        Debug.Print Me.lstAbgänge.Column(0, i)
    Next i

End Sub

您需要使用 ListCount 属性来迭代到列表的末尾。

看到这个帖子：cycling through values in a MS Access list box