ACCESS FEED: Re: [belajar-access] VBA di ListView

Senin, 16 April 2012

Re: [belajar-access] VBA di ListView

Mohon bila kirim file di zip dahulu. Sebaiknya idjenis ditambahkan di ListView.

SUM:

Private Sub ListViewLAB_Click()
Dim i As Long
Me!Text94 = 0
For i = 1 To ListViewLAB.ListItems.Count
If ListViewLAB.ListItems(i).Checked = True Then Me!Text94 = ListViewLAB.ListItems(i).SubItems(2) + Me!Text94
Next i
Me!Text94 = Format(Me!Text94, "Currency")
End Sub

SAVE:

Private Sub Simpan_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Trans", dbOpenDynaset)
Dim i As Long
For i = 1 To ListViewLAB.ListItems.Count
    If ListViewLAB.ListItems(i).Checked = True Then
        rs.AddNew
            rs!idjenis = DLookup("idjenis", "COBA", "kode='" & ListViewLAB.ListItems(i).Text & "'")
            rs!kode = ListViewLAB.ListItems(i).Text
            rs!nama = ListViewLAB.ListItems(i).SubItems(1)
            rs!harga = ListViewLAB.ListItems(i).SubItems(2)
            rs!model = ListViewLAB.ListItems(i).SubItems(3)
        rs.Update
    End If
Next i
Me!Text94 = Format(Me!Text94, "Currency")
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub

Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com/

----- Original Message -----

From: dani wardana

To: belajar-access@yahoogroups.com

Sent: Monday, April 16, 2012 11:10 AM

Subject: [belajar-access] VBA di ListView [1 Attachment]

Ass.Wr.Wb.

maaf ini saya kirim ulang

minta petunjuk dari Rekan sekalian ....

saya menggunakan listview check box dengan multiselect
saya ingin SUM dari setiap pilihan yang check box.checked=true
trus ingin yang check box.checked=true itu mengisi tabel trans

Nuhun..

Wass.Wr.Wb.