dear all,
saya punya masalah di listbox yaitu asumsinya seperti ini saya punya data
konsumen ada 10 kemudian saya pilih konsumen 1 dan 2...lalu saya pilih no 3
atau 4 atau 5 dst ... maka konsumen yang sudah terpilih/selected akan hilang,
yang saya inginkan adalah semua pilihan yang sudah saya pilih tetap ada kecuali
konsumen yang baru. berikut saya lampirkan isi coding di listbox saya. saya
memakai cara multi select = 'simple'. Thanks atas bantuannya.
Dim daftar As Control
Dim varitem As Variant
Dim wadah As Long
Dim lho As String
Dim kontrol As Integer
Set daftar = Me.List2
wadah = Me.List2.ListCount
kontrol = 0
Do Until kontrol = wadah
If wadah = 0 Then Exit Do
daftar.Selected(kontrol) = True
For Each varitem In daftar.ItemsSelected
lho = Me.List2.Column(0, varitem)
If Me.cmbkns = lho Then
kontrol = wadah
Exit Do
End If
Next varitem
daftar.Selected(kontrol) = False
kontrol = kontrol + 1
Loop
---------------------------------
Get easy, one-click access to your favorites. Make Yahoo! your homepage.
