bagaimana kalau seperti ini : Private Sub Command4_Click() Dim n As Integer Dim m As String For n = 0 To (List0.ListCount - 1) If List0.Selected(n) = True Then m = List0.ItemData(n) End If Next List0.RemoveItem (m) List2.AddItem m End Sub
Salam, Edi Rosadi http://edirosadie.blogspot.com http://cilegonmap.blogspot.com http://cilegonan.wordpress.com komersilkan blog atau website anda dengan bergabung di sini atau di sini --- On Wed, 16/12/09, Bambang Mahfudin <[email protected]> wrote: From: Bambang Mahfudin <[email protected]> Subject: [belajar-access] Listbox To: [email protected] Date: Wednesday, 16 December, 2009, 7:23 AM Kakak senior mohon pencerahan, Saya punya listbox7 berisi entry (A,B,C....) Saya akan pindahkan entry kedua (index ke 1 = "B") ke listbox39 pada entry pertama / index 0 sekaligus menghapus "B" pada listbox7 tadi Problem : "B" pada listbox7 mau pindah ke listbox39 index 0 tapi yang terhapus pada listbox7 selalu entry pertama / index 0 mohon koreksi coding dibawah : Private Sub Command35_Click( ) Dim n As Integer For n = 0 To (List7.ListCount - 1) If List7.Selected( n) = True Then List39.AddItem List7, Index End If Next List7.RemoveItem Index Label32.Caption = List7.ListCount End Sub Terima kasih sebelumnya Bambang Mahfudin
