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