nanti dulu...... pertanyaan ku, apa betul data lama diganti dengan data baru ?
kesalahan awal database, akan terus dibawa dan makin susah diperbaiki. kalau ketemu itu sich, les privat namanya. cheers, budilaks --- In [email protected], buday uhuy <[EMAIL PROTECTED]> wrote: > > Jadi coding yang bener gmn ya mas ? bisa di tulis..? begini deh susahnya kalo ga ketemu langsung...jadi agak2 ga mudeng... > > Terus gimana codingnya biar bisa update quantity (tambah atau kurang) di tabel part setelah saya input di kolom quantity form peminjaman ? please bantuin saya ya mas... > > > > ----- Original Message ---- > From: budi laksamana <[EMAIL PROTECTED]> > To: [email protected] > Sent: Thursday, July 3, 2008 8:19:23 > Subject: [belajar-access] Re: error message..plus kasus update > > > 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 belajar-access@ yahoogroups. com, buday uhuy <herr_haikal@ ...> 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 <budilaks@ .> > > To: belajar-access@ yahoogroups. com > > 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 > > > > > > Send instant messages to your online friends http://uk.messenger.yahoo.com >
