Проверка последнего элемента в списке в форме доступа ms

Question

У меня проблема с проверкой последнего элемента в списке в 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, я) = Null», а рядом с помощью " Если r = Null Then Exit Do ", но в обоих случаях это не работает. Когда он имеет значение, цикл Null все еще работает.

View of list in form Debbuging

Answer 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