Pilihan -SEMUA- ComboBox

MENAMBAHKAN PILIHAN <SEMUA> DALAM COMBO BOX

Pilihan <SEMUA> yang penulis maksud disini adalah, dalam combobox akan terdapat pilihan <SEMUA> untuk record-record yang menjadi row source dari combobox tersebut, dengan pilihan <SEMUA> maka kita bisa menggunakannya untuk keperluan-keperluan, misalnya untuk report semua data, ataupun yang lainnya.

Untuk menambahkan pilihan <SEMUA> dalam sebuah Combo Box untuk memfilter data dalam Form/Query yang sumber datanya dari sebuah Tabel kita bisa menggunakan statement "UNION SELECT".

Yang perlu diperhatikan adalah jumlah kolom dalam Combo Box yang ingin kita tambahkan pilihan <SEMUA> dan penempatan statement "UNION SELECT" tersebut.

Untuk melakukan hal ini, Klik Kanan di Field Row Source dari comboboxnya dan pilih Zoom, lalu kita tinggal menambahkan statement "UNION SELECT" setelah statement From <Nama Tabel>, dan sebelum ORDER BY (Jika Combo Boxnya disort Ascending/Descending).

Contohnya :

Misalnya kita telah membuat sebuah Combo Box menggunakan Wizard dan memilih sebuah Tabel sebagai Row Source-nya dan hanya 1 Field yang kita masukkan, maka Field Row Source Combo Box tersebut akan menjadi seperti ini :

SELECT NamaTabel.NamaField FROM NamaTabel ORDER BY [NamaField];

Untuk Menambahkan Pilihan <SEMUA>, kita edit Field Row Source hingga menjadi seperti ini :

SELECT NamaTabel.NamaField FROM NamaTabel UNION SELECT "<SEMUA>" FROM NamaTabel ORDER BY [NamaField];

Jika Field yang kita masukkan kedalam Rowsource lebih dari 1, misalnya ada 2 Field yang kita masukkan dan Kolom pertama kita sembunyikan, maka Row Sourcenya akan menjadi seperti ini :

SELECT NamaTabel.NamaField, NamaTabel.NamaField2 FROM NamaTabel ORDER BY [NamaTabel.NamaField2];

Untuk menambahkan pilihan <SEMUA> pada kolom kedua, kita edit Row Sourcenya menjadi seperti ini :

SELECT NamaTabel.NamaField, NamaTabel.NamaField2 FROM NamaTabel UNION SELECT "*", "<SEMUA>" FROM NamaTabel ORDER BY [NamaTabel.NamaField2];

Perhatikan penempatan "*", "<SEMUA>",  hal ini berarti pilihan <SEMUA> berada pada kolom kedua, jika anda ingin kolom pertama yang memiliki pilihan <SEMUA>, maka anda harus merubah penempatannya menjadi seperti ini : "<SEMUA>", "*".

Jika Combo Box tersebut anda gunakan untuk memfilter data, anda tinggal menambahkan code :

If NamaComboBox = "<SEMUA>" then

<Code untuk memfilter semua data>

Else

<Code Untuk Memfilter Data Berdasarkan Pilihan Pada ComboBox>

End If

Semoga Bermanfaat...

Posted in: tips n trik