office交流網--QQ交流群號

Access培訓群:792054000         Excel免費交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

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

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

    分享
    北京十一选五基本走势