[belajar-access] mesin pencari

----- Original Message -----
From: "exz@nt" <exzantmilis@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Wednesday, September 16, 2009 1:58 PM
Subject: Re: [belajar-access] mesin pencari

sy biasanya pake combo
yg sourcenya dimodif ditambahin kriteria where like
contoh sbg berikut :

Private Sub cmbCari_AfterUpdate()
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[BARCODE] =" & Chr(34) & Me.cmbCari.Value & Chr(34)
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me.cmbCari.Value = ""

End Sub

Private Sub cmbCari_NotInList(NewData As String, Response As Integer)
Me.cmbCari.RowSource = "SELECT * FROM [Produk] WHERE produk.NM_BRG Like
" & Chr(34) & "*" & NewData & "*" & Chr(34) & ";"
Response = acDataErrContinue
End Sub

maksud kode diatas : jika kode yg diketikkan pada combo tidak terdaftar,
maka dilakukan seleksi sourcedata berdasarkan Nama Barang.

smg membantu.

salam,
exz@nt

2009/9/14 Masyruchi Se <
mas_masyruchi@yahoo.com>

>
>
> saya memiliki tabel/database yang sdh saya creasikan ke form dengan
> columnar. database tsb berisi tentang data alat dan software serta stock
> material. saya bermaskud membuat suatu kotak pencari semacam search
dimana
> ketika saya atau rekan kerja saya ingin mencari alat atau data yang
dimaksud
> tinggal mengetikkan part number atau kata kunci lain. gimana caranya
membuat
> search di form?
>
> Thank's untuk bantuan teman-teman
>
>
>
>
>
>
>