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

Senin, 16 April 2012

Re: [belajar-access] VBA di ListView

Ok.

Private Sub ListViewLAB_KeyPress(keyascii As Integer)
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

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 2:49 PM

Subject: Re: [belajar-access] VBA di ListView

Ass.Wr.Wb.

maaf kang maksudnya tombol space yg di keyboard

kan tombol itu bisa membuat checkbox aktif..

Wass.Wr.Wb.