Mengisi data Listbox dari Listbox lain

Pada posting kali ini saya akan memberikan tips kepada anda cara mengisi data satu listbox dari listbax lain dalam sebuah form.

Listbox pertama berisi data dari tabel sedangkan listbox kedua kosong dan akan diisi dari listbox pertama. Proses pengisian data dari listbox pertama ke dalam listbox kedua adalah user memilih suatu pilihan dari listbox pertama kemudian user mengklik suatu tombol maka data yang dipilih pada listbox pertama akan disalin ke listbox yang kedua.


Selain menambah isi data ke listbox kedua kita juga dapat menambahkan tombol untuk menghapus data pada listbox kedua. Untuk keperluan ini kita perlu menambahkan satu buah tombol untuk menghapus data pada listbox kedua.

Kode program untuk menambah data dari listbox pertama ke ke listbox kedua:

Private Sub cmdAdd_Click()
On Error Resume Next
If IsNull(Me.List0.Value) Then
 MsgBox "Nama barang belum dipilih !", vbExclamation
 Exit Sub
End If

 Me.List2.AddItem Me.List0.Value & ";" & Me.List0.Column(1)
 Me.List2.Requery

End Sub

Kode program untuk menghapus data pada listbox kedua:

Private Sub cmdRemove_Click()
On Error Resume Next

 Me.List2.RemoveItem Me.List2.ListIndex

End Sub

Download contoh file Access disini.

Artikel terkait dengan kategori ini: