if not ambil then ???? logika if nya belum lengkap. kodepart as string, ya kah? karena ada dalam tanda petik satu (apostrophe).
qtyupdate, qtylama, baru, ambil dari yang itu itu juga?? Pelanggaran, tidak menyimpan data transaksi lama. Data transaksi lama, senangkah untuk diubah ubah?? header, diubah status nya?? lalu kalau lupa ubah, jadi - atau + ?? Saran saya, perbaiki konsep nya. Untuk logika if nya, jangan kelupaan. Dan on error resume next, kenapa masih ada juga ya.... (mbah aksan sampai berbusa tuch....) untuk tangkap problem, selain control error, aku tambahkan MessageBox display variable/step/dll.....(search Msgbox di milist ini) We can learn a lot from what we have done wrong, cheers, budilaks --- In [email protected], buday uhuy <[EMAIL PROTECTED]> wrote: > > iya nih mas aksan..terima kasih atas masukannya...maklum masih perlu banyak belajar...:D > > Sekarang Problem sudah tidak ada lagi, soalnya saya sudah buat form baru lagi, tetapi masih menggunakan coding yang lama. > > Kemudian saya coba buat coding lagi di form transaksi (peminjaman) barang, yang di buat dari form peminjaman header (source: tabel peminjamanheader) dan form peminjaman detail (source: tabel peminjaman detail). > Field Tabel peminjamanheader: > - kodepeminjaman. (primary key) > - tanggal > - status > > Field Tabel peminjamandetail: > - recid. (primary key) > - kodepeminjaman > - kodepart > - quantity > > Di detail transaksi, saya ingin setelah saya input quantity barang A, jika field status di header adalah "pinjam" maka quantity barang A di tabel master barang akan berkurang, dan jika field status di header adalah "kembali", maka quantity barang A di tabel master barang akan bertambah. Coding nya kurang lebih seperti ini : > > Private Sub quantity_AfterUpdate() > On Error Resume Next > > Dim QtyLama As Single > Dim QtyBaru As Single > Dim QtyUpdate As Single > > If Not IsNull(Me![kodepart]) Then > QtyLama = Me!quantity.OldValue > Me![quantity] = Abs(Me![quantity]) > QtyBaru = Me!quantity > QtyUpdate = QtyBaru - QtyLama > > If Forms![FRMPeminjamanHeader]![status] <> "Ambil" Then QtyUpdate = QtyUpdate * -1 > > CurrentProject.Connection.Execute "UPDATE TBLBarang SET quantity = quantity - " & QtyUpdate & " WHERE TBLBarang.kodepart='" & Me!kodepart & "'" > Call SimpanData("Simpan Barang Pinjam") > End If > End Sub > > Masalahnya: quantity di tabel master barang tidak berubah sama sekali ? mungkin perlu tambahan atau kesalahan pada coding di atas ? Bisa teman2 mengkoreksi /membantu ? > > Terima kasih sebelumnya..dan mohon maaf jika agak panjang. > > regards, > Budi > > > > > > ----- Original Message ---- > From: aksan kurdin <[EMAIL PROTECTED]> > To: [email protected] > Sent: Wednesday, July 2, 2008 10:34:07 > Subject: Re: [belajar-access] error message..maksudnya apa ? > > > apakah ada control active x yang anda tambahkan di form tersebut, sehingga tidak bisa diload oleh form access ? > periksa reference, ada yang missing ? > > error jangan dihindari, mas budi, tapi di tangani. > Jika yakin itu adalah error yang sebenarnya bisa di by pass, mas budi bisa pake bentuk seperti ini: > > sub anu > > 'deklarasi variabel di sini > > on error goto errHandle: > > <baris perintah disini> > <baris perintah disini> > <baris perintah disini> ' <--- misalkan perintah ini menghasilkan error nomor 100, > ' dan dijamin yakin tdk membahayakan sistem jika di abaikan, > ' goto errHandle dan trap no 100 > <baris perintah disini> > > exit sub > > errHandle: > select case err.number > case 100: > resume next > 'atau bisa juga beri pesan msgbox "Kesalahan lupa kunci pintu ...." > case else: > beep > msgbox err.description & " (" & err.number & ")" > end select > > end sub > > > sekali lagi error harus ditangani, *bukan diabaikan* dengan resume next, > resume next sebaiknya dipakai kalau yakin error tidak mempengaruhi / membahayakan kerja sistem keseluruhan. > makanya dari contoh kemarin kan saya pesan '*ingat2 nomor error-nya* supaya bisa di trap. > > > aksan kurdin > > > > > > 2008/7/2 buday uhuy <herr_haikal@ yahoo.com>: > > maksud hati sih pingin menghindar dari error, tapi malah tetap muncul..heehee. . > > terima kasih untuk mas aksan buat solusinya, tapi saya sudah coba solusi dari mas aksan, tapi masih muncul jg error message itu tuh mas.. kenapa ya ? padahal di form yang lain saya buat coding tersebut, ga muncul error itu. > > Apa saya harus buat ulang form baru lagi ? > > > ----- Original Message ---- > From: aksan kurdin <aksan.kurdin@ gmail.com> > To: belajar-access@ yahoogroups. com > Sent: Tuesday, July 1, 2008 17:55:39 > Subject: Re: [belajar-access] error message..maksudnya apa ? > > > sebelumnya saya tanya dulu mas budi, apa yang mas budi harap dari "on error resume next" pada koding di bawah ? > sebenarnya, jika ada error yang bisa ditrap, jangan di resume next, mengabaikan error bukan menyelesaikan masalah, bahkan malah2 bisa menyebabkan masalah lain. > > coba ubah seperti berikut: > Private Sub Form_Load() > 'On Error Resume Next > on error goto 0 > DoCmd.GoToRecord , , acNewRec > Me.kodetrans. SetFocus > End Sub > > > dimana cursor berhenti ? > > lalu sekarang ganti dengan : > > Private Sub Form_Load() > 'On Error Resume Next > 'on error goto 0 > on error goto errHandle > DoCmd.GoToRecord , , acNewRec > Me.kodetrans. SetFocus > exit sub > > errHandle: > msgbox err.description, vbinformation, err.number > > End Sub > > perhatikan message box, apa pesannya, dan ingat berapa nomor error yang ada dicaption message box. > > > aksan kurdin > > > > > 2008/7/1 buday uhuy <herr_haikal@ yahoo.com>: > > dear all, > > msh mengenai access data project. Saya buat coding form load: > > Private Sub Form_Load() > On Error Resume Next > DoCmd.GoToRecord , , acNewRec > Me.kodetrans. SetFocus > End Sub > > Setiap running muncul error message : > "The expression On Load you entered as the event property setting produced the following error: > A problem occured while Microsoft Office Access was communicating with OLE server or ActiveX Control" > > Ada yang tahu kesalahan coding saya dmn ? Apa ada reference yg kurang/belum di tambahkan ? > > Bisa teman2 membantu saya.? terima kasih seblumnya. > > regards, > Budi > > Send instant messages to your online friends http://uk.messenger .yahoo.com > > > -- > Aksan Kurdin > > Send instant messages to your online friends http://uk.messenger .yahoo.com > > > -- > Aksan Kurdin > > Send instant messages to your online friends http://uk.messenger.yahoo.com >
