Membuat Form Cari di Microsoft Access

dalam membuat sebuah program di Microsoft Access kadang kita diharuskan untuk membuat Form Pencarian data berdasarkan Criteria Tertentu

Contoh untuk tabel Karyawan Kita akan mencari berdasarkan NIPP karyawan tersebut, atau kriteria lain seperti tanggal pengangkatan dan lain-lain

ex : Kita akan mencari Karyawan berdasarkan NIPP nya dari tabel karyawan yang fieldnyaterdiri dari

NIPP ( Index)

Nama (String)

Jabatan (String)

lalu kita akan membuat form dengan design seperti dibawah ini :

dimana ada tombol cari yang diisi coding Visual basic.

Coding Visual basic pada tombol cari  dengan syntax sebagai berikut :

Set db = CurrentDb()

Set rs1 = db.OpenRecordset(“Daftar Karyawan”, dbOpenTable)

NIPP.SetFocus
rs1.Index = “NIPP”
rs1.Seek “=”, NIPP.Text
If Not rs1.NoMatch Then
Nama.SetFocus
Nama.Text = rs1!Nama

Jabatan.text=rs1!Jabatan

Else
Msgbox”Data tidak ditemukan”

NIPP.setfocus

NIPP.text=””

End If

semoga membantu

 

 

 

Advertisements