Pak Edi, Sudah berhasil, jalan dengan baik. Terima kasih Ilmunya. Bambang Mahfudin
----- Original Message ----- From: edi rosadi To: [email protected] Sent: Wednesday, December 16, 2009 10:30 AM Subject: Re: [belajar-access] Listbox 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 ------------------------------------------------------------------------------ New Email addresses available on Yahoo! Get the Email name you've always wanted on the new @ymail and @rocketmail. Hurry before someone else does!
