Fungsi Filter di MS Access

Di Access, fungsi Filter digunakan untuk menampilkan teks atau string dalam sebuah array satu dimensi. Hasil fungsi ini berupa array dengan tipe data Text.

Sintaks penulisan fungsi Filter adalah sebagai berikut:

Filter (Sourcearray, Match [, Include][, Compare])

Keterangan:

Sourcearray (Sumberarray): wajib diisi, berupa array satu dimensi dengan tipe data string.
Match (Kesesuaian): wajib diisi, merupakan teks atau string yang ingin dicari dalam Sourcearray.
Include (Memasukkan): tidak wajib diisi, berisi nilai Boolean yang menunjukkan apakah berisi nilai Match atau tanpa nilai Match. Nilai default True, yang berarti fungsi Filter akan menampilkan nilai dalam Sourcearray yang berisi Match. Bila False, fungsi Filter akan menampilkan nilai dalam Sourcearray yang tidak berisi Match.
Compare (Membandingkan): tidak wajib diisi, berisi nilai Integer yang menunjukkan jenis perbandingan yang digunakan saat mengevaluasi StrComp. Jika Compare bernilai Null, StrComp menampilkan pesan kesalahan. Nilai default Compare adalah Option Compare (-1).

Pengaturan Compare

Konstanta	Nilai	Keterangan
vbUseCompareOption	-1	Melakukan perbandingan dengan menggunakan pengaturan Option Compare (biasanya pernyataan Option Compare berada di awal VBA).
vbBinaryCompare	0	Melakukan perbandingan biner.
vbTextCompare	1	Melakukan perbandingan tekstual.
vbDatabaseCompare	2	Khusus untuk Microsoft Office Access 2007. Melakukan perbandingan berdasarkan informasi yang ada dalam database.

Bila tidak ada Match dalam Sourcearray, fungsi Filter menghasilkan nilai array kosong.
Fungsi Filter akan menampilkan pesan kesalahan bila nilai Sourcearray Null atau bukan merupakan array satu dimensi.


Ada beberapa cara untuk menampilkan nilai yang dihasilan  fungsi Filter. Berikut ini adalah contohnya.

view plainprint?

1. ? Filter(Array("Merah", "Kuning", "Hijau"),"i")(0)  
2. Kuning  

? Filter(Array("Merah", "Kuning", "Hijau"),"i")(0)
Kuning

Huruf "i" pertama (dari urutan 0) ditemukan pada nilai Kuning

view plainprint?

1. ? Filter(Array("Merah", "Kuning", "Hijau"),"i")(1)  
2. Hijau  

? Filter(Array("Merah", "Kuning", "Hijau"),"i")(1)
Hijau

Huruf "i" ke dua (dari urutan 1) ditemukan pada nilai Hijau

view plainprint?

1. ? Filter(Array("Merah", "Kuning", "Hijau"),"h")(0)  
2. Merah  

? Filter(Array("Merah", "Kuning", "Hijau"),"h")(0)
Merah

Huruf "h" pertama (dari urutan 0) ditemukan pada nilai Merah

view plainprint?

1. ? Filter(Array("Merah", "Kuning", "Hijau"),"h")(1)  
2. Hijau  

? Filter(Array("Merah", "Kuning", "Hijau"),"h")(1)
Hijau

Huruf "h" ke dua (dari urutan 1) ditemukan pada nilai Hijau

view plainprint?

1. ? Filter(Array("Merah", "Kuning", "Hijau"),"h",False)(0)  
2. Kuning  

? Filter(Array("Merah", "Kuning", "Hijau"),"h",False)(0)
Kuning

Huruf "h" pertama (dari urutan 0) tidak ada (False) di nilai Kuning

view plainprint?

1. ? Filter(Array("Merah", "Kuning", "Hijau"),"m",False)(0)  
2. Kuning  

? Filter(Array("Merah", "Kuning", "Hijau"),"m",False)(0)
Kuning

Huruf "m" pertama (dari urutan 0) tidak ada (False) di nilai Kuning

view plainprint?

1. ? Filter(Array("Merah", "Kuning", "Hijau"),"m",False)(1)  
2. Hijau  

? Filter(Array("Merah", "Kuning", "Hijau"),"m",False)(1)
Hijau

Huruf "m" ke dua (dari urutan 1) tidak ada (False) di nilai Hijau

view plainprint?

1. ? Filter(Array("Merah", "Kuning", "Hijau"),"H",true,vbBinaryCompare)(0)  
2. Hijau  

? Filter(Array("Merah", "Kuning", "Hijau"),"H",true,vbBinaryCompare)(0)
Hijau

Huruf "H" (hanya huruf H besar yang ditunjukkan oleh vbBinaryCompare) pertama (dari urutan 0) ditemukan pada nilai Hijau

view plainprint?

1. ? Filter(Array("Merah", "Ungu", "Kuning", "Hijau"),"u",true,vbBinaryCompare)(0)  
2. Ungu  

? Filter(Array("Merah", "Ungu", "Kuning", "Hijau"),"u",true,vbBinaryCompare)(0)
Ungu

Huruf "u" (hanya huruf u kecil yang ditunjukkan oleh vbBinaryCompare) pertama (dari urutan 0) ditemukan pada nilai Ungu

view plainprint?

1. ? Filter(Array("Merah", "Ungu", "Kuning", "Hijau"),"u",true,vbBinaryCompare)(1)  
2. Kuning  

? Filter(Array("Merah", "Ungu", "Kuning", "Hijau"),"u",true,vbBinaryCompare)(1)
Kuning

Huruf "u" (hanya huruf u kecil yang ditunjukkan oleh vbBinaryCompare) ke dua (dari urutan 1) ditemukan pada nilai Kuning

view plainprint?

1. ? Filter(Array("Merah", "Ungu", "Kuning", "Hijau"),"u",true,vbBinaryCompare)(2)  
2. Hijau  

? Filter(Array("Merah", "Ungu", "Kuning", "Hijau"),"u",true,vbBinaryCompare)(2)
Hijau

Huruf "u" (hanya huruf u kecil yang ditunjukkan oleh vbBinaryCompare) ke tiga (dari urutan 2) ditemukan pada nilai Hijau.

Bila urutan yang diinginkan lebih besar dari pada jumlah urutan yang ada, fungsi Filter akan menampilkan pesan kesalahan "Subscript out of range". Jadi, misalnya:

view plainprint?

1. ? Filter(Array("Merah", "Ungu", "Kuning", "Hijau"),"u",true,vbBinaryCompare)(3)  

? Filter(Array("Merah", "Ungu", "Kuning", "Hijau"),"u",true,vbBinaryCompare)(3)

Huruf "u" kecil ada 3 nilai, yaitu di nilai Ungu (urutan pertama dengan nilai 0), Kuning (urutan ke dua dengan nilai 1), dan Hijau (urutan ketiga dengan nilai 2). Pada fungsi ini, urutan ke empat (nilai 3)  tidak ada. Jadi, bila fungsi di atas akan menampilkan pesan kesalahan "Subscript out of range".