Memfilter Data

Data master barang pada form Master Barang dapat di filter berdasarkan kriteria/jenis barang yang terbagi ke dalam 4 kategori yaitu:

1. Raw Material (RM) atau Bahan baku
2. Packing Material (PM) atau Bahan pengemas
3. Semi Finished Goods (SFG) atau Barang setengah jadi
4. Finished Goods (FG) atau Barang jadi

Pada form Master Barang terdapat sebuah combo box kriteria yang berisi pilihan 4 jenis barang tersebut di atas.

Jika kita pilih salah satu jenis kriteria barang, maka data barang yang ditampilkan akan di filter berdasarkan barang yang dipilih.

Script program computer even after update pada kontrol combo box Kriteria jika user memilih data kriteria pada combo box adalah:

Private Sub Kriteria_AfterUpdate()
Dim strSql As String
strSql = "SELECT * FROM Barang WHERE Kriteria='" & Me.Kriteria & "';"
If IsNull(Me.Kriteria) = True Then strSql = "Barang"
Me.[Master Barang Subform].Form.RecordSource = strSql
Me.[Master Barang Subform].Requery
End Sub

Keterangan script program:

Script program di atas adalah script program even after update pada combo box kriteria.

- Jika user memilih salah satu data kriteria pada combo box, misalnya Packing Material atau PM, maka variabel strSql akan berisi data "SELECT * FROM Barang WHERE Kriteria='PM';", tetapi jika combo box Kriteria dikosongkan, maka variabel strSql akan berisi ‘Barang’ yang merupakan tabel Barang

- Variabel strSql ini kemudian diisikan sebagai data RecordSource dari [Master Barang Subform] dengan perintah sebagai berikut:
Me.[Master Barang Subform].Form.RecordSource = strSql

- Data [Master Barang Subform] direfresh dengan perintah :
Me.[Master Barang Subform].Requery

Agar combo box Kriteria dapat menampilkan data kriteria barang, maka kita harus menentukan Row Source dari combo box.

Karena data kriteria yang akan ditampilkan diambil dari tabel kriteria, maka set property kriteria sbb:
- Row Source Type: Table/Query
- Row Source: Kriteria


Tabel Kriteria terdiri dari field Kriteria dan Keterangan. Pada combo box Kriteria kita akan menampilkan Keterangan sedangkan data yang digunakan untuk memfilter adalah kriteria. Untuk itu kita harus men-set property combo box kriteria lainnya sbb:
- Column count : 2
- Column widht: 0”

Hal ini menunjukkan ada 2 kolom pada combo box dengan lebar kolom pertama adalah 0”. Mengapa kolom pertama 0”? karena dengan seting ini kolom kriteria tidak akan dirampilkan dan combo box kriteria hanya akan menampilkan data Keterangan.