Access列表框全选和全不选记录

2017-12-14 17:20:00
黄善超
原创
481

前面我们在《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

    分享