Halo Arif,
Coba debug per baris perintah
On Error Goto AdaError ==> tambahkan
==> Awal debug 1
> cn.BeginTrans
> Set rs = cn.Execute(" DELETE * FROM temp")
> cn.CommitTrans ==> hapus
==> Akhir debug 1
==> Awal Debug 2
> cn.BeginTrans ==> Hapus
> Set rs = cn.Execute(" INSERT INTO temp SELECT master.* FROM master WHERE
> namabulan = '" & CboBulan.Text & "' AND tahun = '" & CboTahun & "'")
==> Akhir Debug 2
> cn.CommitTrans
>
> Load FrmRekapitulasi
> FrmRekapitulasi.Show
> Unload Me
Exit Sub ==> Tambahkan
AdaError: ==> Tambahkan
msgbox Err.number & chr(13) & Err.Description,vbCritical,"Pesan
kesalahan" ==> Tambahkan
> End Sub
Dengan mencoba men-debug satu per satu, kita bisa tahu bagian mana
yang memakan waktu yang lama.
Btw, harus dilihat juga jumlah datanya.
--
Best Regards,
David J M
Advess
ISV and IT Consultant
