雀悅 - 恢復自由了

access的listbox不能顯示checkbox

要多重選擇功能，把屬性/多重選項設為2 簡單的  (1:無  3:延伸，選了其他，原本就不會選)

手動製作「全選」功能

 Private Sub CommandButton1_Click()
    Dim i As Long
    For i = 0 To ListBox1.ListCount - 1
        ListBox1.Selected(i) = Not ListBox1.Selected(i)
    Next
   
    With CommandButton1
        If .Caption = "全选" Then
            .Caption = "取消全选"
        Else
            .Caption = "全选"
        End If
    End With
End Sub
出處：http://club.excelhome.net/thread-217549-1-999.html

多重選擇取值, 存在變數s_mem(103)

For i = 0 To Me.List11.ListCount    
    If Me.List11.Selected(i) Then
              S_Mem(103) = S_Mem(103) + """" + Me.List11.ItemData(i) + """"
    End If
Next