Penulisan Kriteria Fungsi

Mungkin ada yang masih sedikit kebingungan atau mengalami error ketika membuat sebuah fungsi yang menggunakan kriteria, untuk itu disini penulis coba sedikit menjelaskan tentang penulisan kriteria dalam fungsi.

Misalnya kita akan membuat sebuah fungsi DlookUp untuk textbox yang bernama txtHasil dengan kriteria-kriteria. Struktur fungsi DlookUp-nya adalah sebagai berikut :

DLookUp("Nama Field dalam tabel", "Nama tabelnya", "[Kriteria]")

jadi struktur codenya akan seperti ini:

txtHasil = DLookUp("Nama Field dalam tabel", "Nama tabelnya", "[Kriteria]")

Kita asumsikan field yang akan dituju bernama Nama_User, dan tabelnya bernama tblUser, serta kata pencariannya adalah User, maka codenya seperti ini:

txtHasil = DLookUp("Nama_User", "tblUser", "[Nama_User]='User'")

jika kata pencariannya berupa string dalam textbox yang bernama txtNama, maka codenya seperti ini :

txtHasil = DLookUp("Nama_User", "tblUser", "[Nama_User]='" & txtNama & "'")

jika kata pencariannya berdasarkan string dalam textbox txtLevel tetapi field yang jadi kriterianya field lain dalam tabel yang sama. misalnya field Level_User dalam tblUser, maka codenya seperti ini:

txtHasil = DLookUp("Nama_User", "tblUser", "[Level_User]='" & txtLevel & "'")

yang perlu anda ingat dalam menuliskan kriteria adalah penggunaan operator penghubungnya harus sesuai dengan tipe data dari field kriterianya.
jika tipe datanya string, maka operator penghubungnya adalah tanda petik tunggal (')
jika tipe datanya tanggal, maka operator penghubungnya adalah tanda pagar (#)
jika tipe datanya numeric, maka tidak menggunakan operator penghubung
contohnya :
untuk tipe data string :

txtHasil = DLookUp("Nama_User", "tblUser", "[Level_User]='" & txtLevel & "'")

untuk tipe data tanggal :

txtHasil = DLookUp("Nama_User", "tblUser", "[Tanggal_Masuk]=#" & txtTanggal & "#")

untuk tipe data numeric :

txtHasil = DLookUp("Nama_User", "tblUser", "[Nomor_User]=" & txtNomor)

Jika kriteria yang anda inginkan ada 2, maka penulisan codenya seperti ini :

txtHasil = DLookUp("Nama_User", "tblUser", "[Level_User]='" & txtLevel & "' And [Tanggal_Masuk]=#" & txtTanggal & "#")

Format diatas juga berlaku untuk fungsi yang lainnya sseperti DCount, Dmax dan lainnya

Semoga Bermanfaat...

Posted in: tips n trik