Perintah cari data sangat diperlukan dalam sebuah aplikasi, perintah cari memudahkan user menemukan data yang di inginkan. Salah satu dari sekian banyak cara perintah cari data, mencari data melalui TextBox. Simak baik-baik dan ikuti langkah-langkah yang saya sajikan ini 

Langkah-langkah membuat perintah cari data :

• Buka file excel yang sudah pernah kita rancang sejak posting Tombol Simpan
  
• Tambahkan Label, ubah caption Label menjadi “LbCari” dan Input Icon dalam LbCari supaya memperindah Aplikasi . Lihat gambar di bawah
  

• Download Icon View jika tidak ada stock persedian
  
• Lihat gambar dibawah setelah icon ditambahkan pada label terlihat lebih profesional bukan ??!!
  

• Berikutnya klik kanan pada LbCari pilih View Code dan masukkan kode berikut ini 
  

  Private Sub LbCari_Click()
  

  On Error Resume Next
  

  Dim Ws As Worksheet
  

  Dim Kode, Cari As Variant
  

  Dim Baris As Long
  

  Set Ws = Worksheets(“DB”)
  

  Kode = Me.TxtNoInduk.Text
  

  With Ws.Range(“B3:B100”)
  

  Set Cari = .Find(Kode, Lookat:=xlWhole)
  

  If Not Cari Is Nothing Then
  

  Baris = Cari.Row
  

  With UserForm1.TxtNoInduk.Value = Ws.Cells(Baris, 2).Value.TxtNamaSiswa.Value = Ws.Cells(Baris, 3).Value
  

  If Ws.Cells(Baris, 4).Value = “Laki-Laki” Then OptLaki.Value = True:
  

  If Ws.Cells(Baris, 4).Value = “Perempuan” Then
  

  OptPerempuan.Value = True:.TxtAlamat.Value = Ws.Cells(Baris, 5).Value
  

  End With
  

  End If
  

  End With
  

  End Sub
  

• Selesai..!! Jalankan Aplikasi dengan mencari data siswa. ketikkan No Induk Siswa dan klik Icon. Data akan di tampilkan dalam TextBox
  
• Jika ingin pencarian otomatis, setelah No Induk Siswa diketikkan pada TextBox anda tekan enter data akan muncul otomatis dalam TextBox lainnya, Buatlah kode berikut ini pada TxtNoInduk
  

  Private Sub TxtNoInduk_AfterUpdate()
  

  Call LbCari_Click
  

  End Sub
  

Demikian sedikit pencerahan tentang pencarian data menggunakan TextBox, semoga bisa di amalkan menurut kepercayaan masing-masing.. hehehe..!!

admin

Seorang pengajar dan pembelajar yang mengurus lembaga pelatihan dan kursus komputer bernama LKP Naura

Baca Juga  HTML