Re: Bls: [belajar-access] Nomor urut Listbox???

Pelajari code snippet berikut:

Sub MakeTableTemp()     Dim strSQL As String     strSQL = "SELECT NamaPemilik, NamaKapal, TglTerbit "     strSQL = strSQL & "INTO zTable1 "     strSQL = strSQL & "FROM Table1 "     strSQL = strSQL & "ORDER BY TglTerbit;"      If IsExistTable("zTable1") Then         CurrentDb.Execute "DROP TABLE zTable1", dbFailOnError     End If          CurrentDb.Execute strSQL, dbFailOnError          CurrentDb.Execute "ALTER TABLE zTable1 ADD COLUMN ID Counter", dbFailOnError End Sub   Public Function IsExistTable(tblName As String) As Boolean     IsExistTable = (Nz(DLookup("Name", "MSysObjects", "Name='" & tblName & "'"), "") = tblName) End Function 

Apa yang dilakukan oleh potongan kode ini ?
MakeTableTemp akan membuat temporary table zTable1, yang berasal dari query ke table1 order by TglTerbit. Setelah itu kita tambahkan field autonumber pada ztable1 yang berfungsi sebagai nomor urut.
Sekarang pergunakan zTable1 sebagai base table untuk listbox anda.


aksan kurdin


On 4/21/2011 9:37 PM, thomas wrote:

 

misalkan, tampilan yang ingin saya tampilkan seperti pada file excel (terlampir) pak...

 

==============================================================================
Ingin lebih dekat dengan saya, ketik aja :www.the-massto.co.cc

---

Dari: Aksan Kurdin <aksan.kurdin@gmail.com>
Kepada: belajar-access@yahoogroups.com
Terkirim: Kam, 21 April, 2011 17:38:16
Judul: Re: [belajar-access] Nomor urut Listbox???

 

jika listbox mengambil data dari suatu table / query, bisa dibuat dari query / temp. table.
bagaimana yang anda inginkan, bisa tolong dishare melalui ilustrasi gambar / excel.


aksan kurdin

On 4/21/2011 4:47 PM, thomas wrote:

 

rekan-rekan...
bagaimana caranya membuat nomor urut dilistbox??

 

==============================================================================
Ingin lebih dekat dengan saya, ketik aja :www.the-massto.co.cc

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___