Ass.Wr.Wb.
kang kalo ingin digabung bisa gak...
atau harus pilih click atau space..
Wass.Wr.Wb.
kang kalo ingin digabung bisa gak...
atau harus pilih click atau space..
Wass.Wr.Wb.
From: Sofyan Efendi <sofyanefendi@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Monday, April 16, 2012 2:54 PM
Subject: 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
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/
Sofyan Efendi
http://imopi.wordpress.com/
----- Original Message -----From: dani wardanaSent: Monday, April 16, 2012 2:49 PMSubject: Re: [belajar-access] VBA di ListViewAss.Wr.Wb.
maaf kang maksudnya tombol space yg di keyboardkan tombol itu bisa membuat checkbox aktif..Wass.Wr.Wb.
__._,_.___
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar