Ilmu Software: Event Before Update pada Form Access

Pada form Access tersedia event procedure yang dapat dimanfaatkan untuk memproses data sebelum suatu record yang di bound pada form Access disave ke tabel.

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 Sub

Pada 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.