Pada posting kali ini saya akan memberikan contoh pemanfaatan event before update pada form Barang.
Pada tabel Barang terdapat field Harga_Satuan, Jumlah_Barang, dan Total_Harga. Field Total_Harga adalah perhitungan dari field Harga_Satuan dan Jumlah_Harga. Berikut ada kode program pada event Before Update di form Barang:
Private Sub Form_BeforeUpdate(Cancel As Integer) On Error GoTo Local_Err Me.Total_Harga = Me.Jumlah_Barang * Me.Harga_Satuan Exit Sub Local_Err: MsgBox Err.Description End SubPada saat user mengisi data pada form Barang, data pada field Total_Harga tidak akan berubah tetapi ketika user memindahkan kursor ke record berikutnya atau record sebelumnya maka field Total_Harga akan diupdate dengan rumus Jumlah_Harga * Harga_Satuan.

Download contoh file Access
No comments:
Post a Comment