Access列表框全選和全不選記錄

前面我們在《Access設(shè)置列表框多選》一文中講過如何多選列表框的記錄。

有時(shí)我們需要選擇全部記錄，也會(huì)全部不選擇。如果數(shù)據(jù)量多的話，逐個(gè)選擇顯然不方便。

1.用shift鍵批量選擇。前面講過，“多重選擇”屬性，選擇“展開的”。此用shift鍵可以選擇連續(xù)的記錄

2.用代碼批量獲取

全選

詳細(xì)代碼：

Private Sub Command4_Click()
    Dim i As Long
    Dim lngCnt As Long
    lngCnt = Me.List0.ListCount
    For i = 0 To lngCnt - 1
      Me.List0.Selected(i) = True
    Next

End Sub

全不選

詳細(xì)代碼：

Private Sub Command5_Click()
 Dim lngCnt As Long
    lngCnt = Me.List0.ListCount
    For i = 0 To lngCnt - 1
      Me.List0.Selected(i) = False
    Next
End Sub