Ms access 检查ms access表单中列表中的最后一个元素

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

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，则退出Do”结束这个循环，但在这两种情况下都不起作用。当它有值时，Null循环仍在工作

---

试试这样的方法：

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属性迭代到列表的末尾

见此帖：