Menampilkan Data Pencarian Dengan "Enter Textbox"

Perhatikan Gambar di Bawah ini.


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.

1. Masukan Source Code di bawah ini ke dalam Textbox.
hapus Procedure dari "Private Sub Text1_Change()" menjadi KeyPress 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

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

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

Sebagai Dhoiful Insan,demikian lah yang dapat saya jelaskan apa yang saya ketahui,untuk Tutorial selanjut nya,kita akan mempelajari Penggunaan dari "ComboxBox,ListBox,dll" serta Pembuatan FormKasir,baik secara Manual maupun dengan menggunakan Barcode dalam Memasukan hitungan Data.

Terima Kasih.. Selamat mencoba..!!

Popular Posts