Event On Current pada Form Access

Pada posting kali ini saya akan memberikan contoh pemanfaatan event On Current pada form Microsoft Access.

Misalnya anda mempunyai form yang di bound data sourcenya ke tabel Barang. Pada form Barang ini anda menyediakan satu unbound combo box untuk mencari barang. Pada event On Current, set value combo box tersebut dengan nilai value dari text box Kode_Barang sehingga pada saat user memindahkan current record dengan tombol navigation button isi combo box ikut berubah sesuai dengan Kode_Barang pada current record.

Berikut kode Visual Basic pada event On Current:

Private Sub Form_Current()
On Error GoTo Local_Err

Me.Combo_Find = Me.Kode_Barang

Exit Sub

Local_Err:
MsgBox Err.Description
End Sub

Download contoh file Access

Artikel terkait dengan kategori ini: