nah kalau di sql server, bikinin store procedurenya saja, mainan cursor, jadi entar tinggal panggil nama store procedurenya saja sebagai recordsource form.
aksan kurdin 2008/6/24 Morina Done <[EMAIL PROTECTED]>: > Kudu harus bikin additional function yak … > > > > Thanks advicenya mbah kong, udah jadi kalau pake additional function atau > additional query … makasih juga mas Ivan. > > Asli database nya di bikin oleh rekan kantor dr Bangkok. > > Connection lewat odbc ke ms sql. > > > > Reports nya untuk berbagai macam laporan hanya ada 2 yakni unbound report > standard ukuran A4 and A3 (satu report berisi +/- 30 unbound objects). > > Semua objects properties di reports atau di form harus di set lewat table. > Nah kebetulan semua properties dasar seperti filter, group, width, length > dll udha di keluarin jadi field di table. > > Tapi properties RecordSource nya ga dikeluarkan sama dia … jadi "resminya" > cuma bisa maen di "filter" properties yang udah dia keluarin lewat table > settingan (BT ya) > > > > Cool sih … tapi ribet ngikutin cara pikirnya. Rhepot. Apalagi table nya > cuma satu … semua info di dumped dia ke satu table makanya aseli tablenya > field nya sampe lebih dari 50 biji (moga2 mbah Bud ga baca, ntar koar koar > masalah normalisasi lagi!) > > > > Susah susah ……. Tapi beneran keren, niat tuh org … object2 di reports nya > di konfigurasi tanpa lewat design view. Cuma sayang udah MDE ..hehehe bete > > > > Anyway thanks yooooooo > > > > Moed > > > ------------------------------ > > *From:* [email protected] [mailto: > [EMAIL PROTECTED] *On Behalf Of *aksan kurdin > *Sent:* Tuesday, 24 June, 2008 7:13 PM > *To:* [email protected] > *Subject:* Re: [belajar-access] Nyari top 3 by specific group > > > > Moed, > Karena Access gak ada store procedure, jadi kita simulasikan store > procedurenya lewat vba. > saya bikin temp. table zTable1 yang sama persis strukturnya dengan Table1 > (nama saya ganti, bikinnya buru-buru :) ) > lalu zTable1 saya buatkan form datasheet untuk melihat hasilnya. > di setiap kali buka form, ztable1 selalu dipaksa untuk mengupdate, > mengambil dari table1 3 baris pertama setiap departemen. > > code behind form form1: > > Option Compare Database > Option Explicit > > Sub RefreshData() > Dim rs As DAO.Recordset > CurrentDb.Execute "DELETE * FROM zTable1" > DoEvents > Set rs = CurrentDb.OpenRecordset("SELECT Dept FROM Table1 GROUP BY > Dept") > rs.MoveFirst > Do While Not rs.EOF > CurrentDb.Execute "INSERT INTO zTable1 (Dept, Amount) SELECT TOP 3 > Dept, Amount FROM Table1 WHERE Dept = '" & Nz(rs(0), "") & "'" > rs.MoveNext > Loop > rs.Close > Set rs = Nothing > Me.Requery > End Sub > > > Private Sub Form_Open(Cancel As Integer) > RefreshData > End Sub > > > Idenya seperti itu, tinggal mahmoed kembangin sesuai kebutuhan. > Untuk membentuk dalam satu query, saya belum bisa. > > > aksan kurdin > > > > 2008/6/24 Ivan Leonardo <[EMAIL PROTECTED]>: > > Oh iya ya saya kurang teliti, nah kalo kaya gitu ribet nih rumit emang. > Yg terpikir oleh saya cuman cara ini : > 1. mesti buat temp tbl yg isinya seluruh data yg mau di pilih, lalu > tambahkan kolom nourut jenis number byte > 2. buat coding vba utk isi nourut masing2 jenis grup, contoh : > a. open recordset tbl-temp order by group (ascending) dan orderby nilai > (descending) > b. looping through all record lalu looping through group (kan group tadi > udah di order) jd langsung aja isi kolom nourut 1,2,3,4 sejalan dengan > looping group kalo kode group A ada 10 maka nourut sampe 10 dan kalo > ketemu group baru mulai urut dari 1 lagi. > 3. nah kalo kolom nourut utk masing2 group sdh terisi kan masing2 group > pasti ada nourut 1-3 > 4. nah tinggal delete deh yg nourut > 3, jdnya yg tersisa kan semua > group yg punya urut 1-3 > > dari sini tbl-temp tinggal dipake deh utk create report/form, isi sudah > top 3 > > mungkin ada cara yg lebih mudah ? > > > > ---------------------------------------------------------- > This message contains confidential information and is intended only for the > individual named. If you are not the named addressee you should not > disseminate, distribute or copy this e-mail. Please notify the sender > immediately by e-mail if you have received this e-mail by mistake and delete > this e-mail from your system. E-mail transmission cannot be guaranteed to be > secure or error-free as information could be intercepted, corrupted, lost, > destroyed, arrive late or incomplete, or contain viruses. The sender > therefore does not accept liability for any errors or omissions in the > contents of this message, which arise as a result of e-mail transmission. If > verification is required please request a hard-copy version. > > > > > -- Aksan Kurdin
