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
