Dear Para Ahli Acces ini saya dapat kode dari mas MBA ( Murid Belajar Acces ) tapi ada hal lain, saya mau yang terupdate hanay yang "RecordID" nya "0" kalau sudah RecordID di TblAbsen di beri angka selain 0 sehingga jika besok coba di update lagi tidak double, ini kode nya yang saya beri warna merah itu harusnya kodenya apa y? Thx Wahyono Private Sub Command0_Click() With DoCmd .SetWarnings False .RunSQL "SELECT tblAbsen.RecordID, tblAbsen.KodePegawai, tblAbsen.WaktuRekam INTO 1 " & _ "FROM TblAbsen " & _ "WHERE ((TblAbsen.KodeFungsi) = 1)AND ((TblAbsen.RecordID) = 0 )" & _ "ORDER BY tblAbsen.KodePegawai, tblAbsen.WaktuRekam, tblAbsen.KodeFungsi;", True .RunSQL "SELECT TblAbsen.RecordID, TblAbsen.KodePegawai, TblAbsen.WaktuRekam INTO 2 " & _ "FROM TblAbsen " & _ "WHERE ((TblAbsen.KodeFungsi) = 3) AND ((TblAbsen.RecordID ) = 0 ) " & _ "ORDER BY TblAbsen.KodePegawai, TblAbsen.WaktuRekam, TblAbsen.KodeFungsi;", True .RunSQL "alter table [1] alter column RecordID Number; ", True .RunSQL "alter table [2] alter column RecordID Number; ", True .RunSQL "alter table [1] ADD column NoURUT COUNTER PRIMARY KEY; ", True .RunSQL "alter table [2] ADD column NoURUT COUNTER PRIMARY KEY; ", True .RunSQL "update TblAbsen SET (TblAbsen.RecordID) = 1) ", dbFailOnError .RunSQL "SELECT [1].NoURUT, [1].KodePegawai, [1].WaktuRekam AS Datang, [2].WaktuRekam AS Pulang INTO tblAbsen_Hasil " & _ " FROM 1 LEFT OUTER JOIN 2 ON ([1].KodePegawai=[2].KodePegawai) AND ([1].NoURUT=[2].NoURUT); ", True .RunSQL "alter table tblAbsen_Hasil ALTER COLUMN NoURUT NUMBER PRIMARY KEY; ", True End With End Sub
--- On Thu, 9/10/09, wah Yono <[email protected]> wrote: From: wah Yono <[email protected]> Subject: RE: [belajar-access] Membuat total jam kerja To: [email protected] Date: Thursday, September 10, 2009, 9:50 AM Uih Mantep Coi, thx berat atas replay nya bener2 bantu saya thx yono --- On Wed, 9/9/09, Murid Belajar Access <murid.belajaraccess @yahoo.co. id> wrote: From: Murid Belajar Access <murid.belajaraccess @yahoo.co. id> Subject: RE: [belajar-access] Membuat total jam kerja To: belajar-access@ yahoogroups. com Date: Wednesday, September 9, 2009, 2:36 PM Kalau sampeyan perhatikan, errornya ternyata karena ada jarak (spasi) antara Nama tabel dan nama kolom, misalnya: tblAbsen. NIP (ada spasi antara titik dan tulisan NIP), juga untuk KodePegawa i (entah kenapa, hurufnya terpisah2 sendiri. Tapi kali ini saya kirimkan versi mdb berdasarkan data mas Wahyono. Issue-nya sekarang bukan query, karena querynya berjalan dengan baik, issuenya adalah kecepatan. Dengan menggunakan query qrySistemSubQuery à data tampil dengan baik. Catatannya adalah ini cepat kalau hanya 18 baris seperti contoh. Waktu saya simulasikan menjadi 163944 baris, query ini dieksekusi sangat lama. Setelah saya lihat, ternyata biangnya adalah fungsi DCOUNT, padahal fungsinya hanya untuk membuat nourut. Jadi saya buat alternatif lain. Silahkan jalankan macro 2_mcrBuatSistemModu le. Isinya menggunakan temporary table untuk membuat index pada table yang dijoin. Dan hasilnya cukup bagus, karena di komputer saya (laptop core 2 duo @1.83 Ghz, RAM 4 GB) dijalankan dalam 9 detik untuk 163944 baris data. Bila ingin buat simulasi silahkan ganti parameter di macro 1_startdataawal, di runcode àsimulasitambahdata( 0), ganti angka 0 dengan angka terserah anda (tipe datanya double). Angka satu akan menambah data sebanyak 18 baris. Dst. Untuk kembali ke data awal, silahkan kembalikan parameternya ke angka 0. Hasilnya bisa dilihat di table tblAbsen_Hasil. Salam, MBA From: belajar-access@ yahoogroups. com [mailto:belajar- acc...@yahoogrou ps.com] On Behalf Of wah Yono Sent: Tuesday, September 08, 2009 17:26 To: belajar-access@ yahoogroups. com Subject: RE: [belajar-access] Membuat total jam kerja terima kasih atas replaynya sudah saya coba kok ada error y? berikut saya kirim filenya, tolong y mas di buat querynya. thx berat __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com
