Menampilkan Data Pencarian Dengan Enter Textbox

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

 

1. 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

 

1. 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.