ms-access - 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, i) = Null」という条件でこのループを終了しようとしましたが、次に「If r = Null Then Exit Do」で終了しましたが、どちらの場合もそうではありません仕事。値がある場合は、Null ループがまだ機能しています。

フォームでのリストの表示