Access列錶框全選和全不選記録

前麵我們在《Access設置列錶框多選》一文中講過如何多選列錶框的記録。

有時我們需要選擇全部記録，也會全部不選擇。如果數據量多的話，逐箇選擇顯然不方便。

1.用shift鍵批量選擇。前麵講過，“多重選擇”屬性，選擇“展開的”。此用shift鍵可以選擇連續的記録

2.用代碼批量穫取

全選

詳細代碼：

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

全不選

詳細代碼：

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