Search This Blog

Memilih multiple data pada Listbox Form Access

Secara default kita hanya dapat memilih satu data pada listbox di form Access. Jika anda perlu memilih lebih dari satu data pada listbox maka property Multi Select pada control list box harus diset ke Simple atau Extend.

Perbedaan antara Simple dan Extend:

1. Simple

Jika property Multi diset ke Simple, maka pilihan dalam listbox dapat dilakukan dengan cara mengklik pada setiap baris data dalam listbox. Untuk menghilangkan pilihan pada data yang telah dipilih anda harus mengklik lagi pada data yang telah dipilih.


2. Extend

Jika property Multi diset ke Extend, maka pilihan dalam listbox dapat dilakukan dengan cara mengklik pada baris data dalam listbox yang disertai menekan tombol Ctrl atau tombol Shift. Tombol Ctrl digunakan jika item data yang dipilih tidak berurutan, sedangkan tombol Shift digunakan untuk memilih data yang berurutan.


Contoh script program menambahkan data dari listbox pertama dengan multiple select ke listbox kedua:

Private Sub cmdAdd_Click()
On Error Resume Next
Dim i As Integer
Dim j As Integer
j = 0
  For i = 0 To Me.List0.ListCount
      If Me.List0.Selected(i) = True Then
          j = j + 1
          Me.List2.AddItem Me.List0.Column(0, i) & ";" & Me.List0.Column(1, i)
      End If
  Next

  If j > 0 Then
      Me.List2.Requery
  Else
      MsgBox "Tida ada data yang dipilih!", vbExclamation
  End If

End Sub



No comments: