FUNGSI DLOOKUP() MICROSOFT ACCESS PENCARIAN DATA DENGAN TEXTBOX FORM

Fungsi Dlookup() Microsoft Access

Fungsi DLookup berguna untuk mengambil suatu nilai dari field pada suatu tabel.

Cara penulisan : DLookup(Parameter1,Parameter2,Parameter3)

Fungsi DLookup memerlukan 3 buah parameter sbb:

- Parameter1 adalah nama field yang nilainya akan diambil
- Parameter2 adalah nama tabel di mana data akan diambil
- Parameter3 adalah kriteria untuk mencari data

Sebagai contoh kita akan mencari data harga barang pada tabel barang dengan kriteria kode barang “B001”, maka penulisan script programnya adalah sebagai berikut:

hrg_brg = DLookup (“HARGA_BARANG”,”BARANG”,”KODE_BARANG=’B001’”)

Seagai latihan mari kita lakukan langkah langkah berikut:

1. Buat tabel BARANG dengan field-field berikut:
- KODE_BARANG TEXT(4) (PRIMARY KEY)
- NAMA_BARANG TEXT(50)
- HARGA_BARANG NUMBER(LONG INTEGER)
- SATUAN TEXT(20)
Isi data pada tabel barang seperti gambar berikut:

2. Buat Form untuk mencoba fungsi Dlookup

- Buat form baru dengan nama FORM1
- Tambahkan 3 buah TEXTBOX dengan nama KODE, NAMA dan HARGA
- Tambah kan tombol dengan nama cmdCekHarga

Pada event onclick di tombol cmdCekHarga tambahkan scripy berikut:

Me.HARGA.Value = DLookup("HARGA_BARANG", "BARANG", "KODE_BARANG='" & Me.KODE.Value & "'")
Me.NAMA.Value = DLookup("NAMA_BARANG", "BARANG", "KODE_BARANG='" & Me.KODE.Value & "'")

3. Test program
- Buka FORM1
- Isi kode barang
- Klik tombol Cek Harga
Jika kode barang yang dimasukkan ada dalam tabel BARANG, maka TEXT BOX NAMA dan HARGA akan berisi data yang sesuai pada tabel BARANG.

Silakan download di sini contoh program yang sudah dibuat oleh penulis. Contoh file Access ini adalah file Access format Microsoft Access 2000.


Selamat mencoba

Artikel terkait dengan kategori ini:

Sumber : http://ppic-access.blogspot.com/2009/04/fungsi-dlookup-di-microsoft-access.html