FUNGSI DLOOKUP PADA MICROSOF ACCESS

Fungsi DLOOKUP - MS ACCESS | Belajar menggunakan rumus Dlookup pada Ms Access

Posted by Doble boyler Posted on 9:50 AM with No comments

Halo para Access Mania, yuk belajar menggunakan fungsi DLOOKUP pada Ms. Access

DLookup itu fungsinya hampir sama seperti Vlookup dan Hlookup pada Ms. Excel. Tapi pada Ms. Access cara memasukkan rumusnya tidak segampang pada Ms. Excel. Ayo mari kita coba!!

Cara menggunakan rumus DLOOKUP pada MS. ACCESS

Pertama-tama untuk menggunakan fungsi Dlookup, kita perlu menyiapkan yang namanya tabel terlebih dahulu, karena disini saya ingin membuat Form input untuk membuat Daftar Akun pada akuntansi, maka saya menyiapkan tabel seperti dibawah ini :

Gambar Tabel akun_jenis

Disini saya ingin menggunakan fungsi dlookup di bagian Form, yaitu ketika kita rubah value pada combobox KETERANGAN maka value ID akan langsung muncul berdasarkan tabel. Form yang saya buat yaitu seperti gambar dibawah ini :

Gambar Form buat_akun

Nah, agar texbox ID berubah setelah kita ganti value pada combobox KETERANGAN, maka kita perlu menambahkan Event pada option On Change, kemudian klik pada [***] dan pilih Code Builder.

Setelah itu maka isilah kode DLookup seperti dibawah ini :

Gambar coding di VBA Access

kodenya adalah sebagai berikut :

Private Sub KETERANGAN_Change()

Me.ID.value = DLookUP("ID", "akun_jenis", "NAMA='" & Me.KETERANGAN.Value & "'")

End Sub 

Adapun sedikit penjelasan untuk kodenya adalah seperti berikut :

kode:

Private Sub KETERANGAN_Change()
( adalah kode pembuka untuk Event On Change )

Me.ID.Value = DLookup("ID", "akun_jenis", "NAMA='" & Me.KETERANGAN.Value & "'")

( adalah kode DLookup dimana :
Tempan value yang kita inginkan = DLookup("nama field yang datanya kita ingin","nama tabel","Kriteria field / nama field yang akan dijadikan acuan="' & nama Combobox / pengacu & "'")

End Sub
( adalah kode penutup Event