Filter Form Ms.Access dengan VBA

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
    Private Sub CboPegawai_AfterUpdate()
    Me.Filter = "[ID] = " & Me.CboPegawai.Value
    Me.FilterOn = True
    End Sub
    

Mudah bukan !! Selamat Mencoba

Post a Response