Jika anda memiliki Form Pegawai pada aplikasi Ms.Access, anda bisa melakukan filter data dengan menambahkan objek combo box button (dropddown) dan kemudian data pada Form Pegawai anda akan otomatis terfilter manakala nama pegawai dipilih pada objek combo box, caranya dengan menambahkan sedikit kode program VBA ( Visual Basic Application) pada Form anda.

Perhatikan dari Gambar diatas, objek combox anda bisa tambahkan dengan menggunakan wizard dengan mengarahkan data sumbernya berasal dari table yang sama dengan Form Pegawai ( misalnya tabel pegawai ).

  1. Beri nama objek combo box cbopegawai
  2. Berikutnya click kanan pada objek dan pilih Build Event-Code Builder yang akan membuka window VBA
  3. Tambahkan kode berikut pada event AfterUpdate
    1
    2
    3
    4
    Private Sub CboPegawai_AfterUpdate()
    Me.Filter = "[ID] = " & Me.CboPegawai.Value
    Me.FilterOn = True
    End Sub

Mudah bukan !! Selamat Mencoba

 

Disalin tempel dengan ijin dari Bapak Sirojul Munir, Dosen STT Terpadu Nurul Fikri dari blog post beliau.

Share