duch, aku enggak lihat....siapa yang nyelip ya... pada tabel peminjaman, ada nilai old value. itu, seakan akan, old value ambil dari catatan di table, lalu user ganti nilainya jadi nilai baru.
QtyLama = Me!quantity. OldValue > > Me![quantity] = Abs(Me![quantity] ) > > QtyBaru = Me!quantity > > QtyUpdate = QtyBaru - QtyLama sehingga data lama sudah tak ada lagi di table anda. cheers, budilaks --- In [email protected], buday uhuy <[EMAIL PROTECTED]> wrote: > > untuk "on error resume next" sebenernya udah di ubah ko mas budilaks...sorry, saya salah copy paste dari project saya yg ke dua. > > data transaksi lama di rubah2 / tidak di simpan ? pastinya di simpan donk mas dan tidak di rubah...kalo boleh tau kesimpulan tidak di rubah / tidak di simpan di ambil dari coding saya bagian mana ya ?? bisa di blok tebal kah bagian itu ? > > jika berubah status...tergantung statusnya, kalo pinjam maka jadi - , dan kalo kembali maka jadi + , kalo lupa...user saya anjurkan untuk melakukan transaksi ke berikutnya. > > > Makasih buat masukannya mas budilaks...:) > > ----- Original Message ---- > From: budi laksamana <[EMAIL PROTECTED]> > To: [email protected] > Sent: Wednesday, July 2, 2008 20:53:57 > Subject: [belajar-access] Re: error message..plus kasus update > > > 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 belajar-access@ yahoogroups. com, buday uhuy <herr_haikal@ ...> 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_AfterUpdat e() > > 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![FRMPeminjama nHeader]! [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 <aksan.kurdin@ ...> > > To: belajar-access@ yahoogroups. com > > 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 > > > > > > Send instant messages to your online friends http://uk.messenger.yahoo.com >
