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

2017-12-14 17:20:00
tmtony8
原創
1905

前麵我們在《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

    分享