Menampilkan Data Pencarian Dengan “Enter Textbox”
Untuk Menampilkan Data Pencarian Dengan “Enter Textbox” maka Buat lah Textbox dan juga Button yang akan menghubungkan dengan Pencarian Data yang nanti nya akan di tampilkan,setelah itu buat Form4 kelanjutan dari form3 yang telah kita buat sebelum nya.
Buatlah Tampilan Form4 sesuai dengan Tabel Fields pada Form1 atau terserah anda Tabel Fields mana yang nanti nya ingin anda Tampilkan dalam Pencarian.
Misalkan di sini saya hanya ingin Nanti nya akan menampilkan pencarian Untuk jenis “No Handphone” nya saja yang sudah masuk,maka tampilan form4 nya tampak seperti pada Gambar di bawah ini.
Setelah itu kita masukan Source Code nya seperti pada keterangan saya di bawah ini.
hapus Procedure dari “Private Sub Text1_Change()” menjadiKeyPress seperti di bawah ini.
Private Sub Text1_KeyPress(KeyAscii As Integer) Text1.SetFocus If KeyAscii = vbKeyReturn Then Command5.SetFocus Dim a As Integer    a = Text1.SelStart    Text1.Text = StrConv(Text1.Text, vbProperCase)    Text1.SelStart = a With DataGrid1 rsdata.Find "no_tujuan='" + Text1.Text + "'", , adSearchForward, 1 End With End Sub
-
Masukan Source Code di bawah ini ke Dalam “Button Cari”
Private Sub CmdCari_Click()
Text1.SetFocus
rsdata.Find "no_tujuan='" + Text1.Text + "'", , adSearchForward, 1
With DataGrid1
If Not rsdata.EOF Then
X = MsgBox("Data Barang Di Temukan", vbYes + vbQuestion, "Pencarian Data")
Form4.Show
      Form4.Text1 = rsdata!No_tujuan
      Form4.Text2 = rsdata!Nominal
      Form4.Text3 = rsdata!operator
      Form4.Text4 = rsdata!harga
End If
End With
Text1 = kosong
End Sub
-
Setelah itu masukan Source Code di bawah ini ke dalam Textbox1 pada Form4
hapus Procedure dari “Private Sub Text1_Change()” menjadi KeyPress seperti di bawah ini.
agar semua perintah cukup di lakukan hanya dengan menekan “ENTER”
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then Command1.SetFocus End Sub
Nah..!! Sampai di situ memasukan Source Code sudah selesai,silahkan anda “Run” Program nya,lalu Anda coba masukan data yang ingin anda cari pada Textbox Pencarian,nampak hasil nya seperti pada gambar di bawah ini.
Lakukan saja semua nya dengan menekan “Enter” dalam pencarian,supaya anda tidak terlalu ribet dengan geseran mouse.
Seorang pengajar dan pembelajar yang mengurus lembaga pelatihan dan kursus komputer bernama LKP Naura