Kurang lebih seperti itu maksud saya.
Saya sudah mencoba menempatkan coding penambahan pada tombol Add..itu sudah jalan
jadi kita memindahkan isi dari list1 ke list2 sekaligus menyimpannya..
Private Sub cmdaddline_Click(Index As Integer)
Dim i As Integer
Dim i As Integer
dim j as integer
For i = 0 To lstavaline.ListCount - 1
If lstavaline.Selected(i) Then
lstdisline(0).AddItem lstavaline.List(i)
If lstavaline.Selected(i) = True Then
lstavaline.RemoveItem (i)
With saveact
For j = 0 To lstdis.ListCount - 1
.AddNew
!ID_COMPANY = Trim(txtID.Text)
!ID_AKTIFITAS_COMPANY = Trim(List2.List(i))
.Update
Next j
End With
Else
Exit Sub
End If
For j = 0 To lstdis.ListCount - 1
.AddNew
!ID_COMPANY = Trim(txtID.Text)
!ID_AKTIFITAS_COMPANY = Trim(List2.List(i))
.Update
Next j
End With
Else
Exit Sub
End If
Next
end if
End Sub
Cuma yang saya bingungkan untuk tombol remove..
kalau saveact.delete berarti menghapus semua yang ada dilist2 dong.. padahal kan cuma yang kita select aja yang dihapus..
mohon bantuannya...
Terima kasih banyak sebelum dan sesudahnya...
Asral Sukma <[EMAIL PROTECTED]> wrote:
sebelum nya mohon maap,script tadi untuk di tempatkan
di list2_doubleclick(),itu untuk editing data
(update)...
begini mba,
pada prog mba:
kalau saya ingin tambahkan data pada list2 berarti
saya cukup ambil dari list1,dengan menyisipkan code
untuk penyimpanan ke tbl_transaksi..berarti data
tersebut saya simpan pada list2 (simpan pada
tbl_transaksi)
kalau saya pengen hapus data dari list2 berarti saya
juga menghapus data yang ada dalam tbl_transaksi(bener
ga?)
kalau emang begitu,nah pada saat mba merubah isi
list2,yang berarti mengambil data baru dari list1,maka
pada saat penambahan isi list2 tersebut,mba musti
tambahkan code untuk penyimpanan ke tbl_transaksi...
cukup tmpatkan code tersebut pada tmbl add..
maap mba,kalau mba' masih kesulitan,mba bisa kirim
code nya ke saya,kalau mba mau..dijamin ga ada
pembajakan..hehehe
thanks..
--aL--
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
Yahoo! for Good
Click here to donate to the Hurricane Katrina relief effort.
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
