Dari Form, kalo hanya untuk cari Field "Text"yg diinginkan, kenapa nggak pake Ctrl-F aja sih ?? lalu bisa di Block, kemudian di Filter "Text" yg dicari tersebut, akan ketemu juga semuanya...
2009/9/17, Heru Wibowo <[email protected]>: > > > > Ikutan Nimbrug...Pak....ini ada sedikit share dari saya....ini saya > dapatkan juga dari ilmunya Bang MBA...silahkan dimodifikasi sesuai > keperluan...contoh ini dengan Access 2007 > > > > Heru Wibowo > > > > *From:* [email protected] [mailto: > [email protected]] *On Behalf Of *...@nt > *Sent:* 16 September 2009 13:59 > *To:* [email protected] > *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, > e...@nt > > 2009/9/14 Masyruchi Se <[email protected]> > > > > 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 > > *Error! Filename not specified.* > > *Error! Filename not specified.**Error! Filename not specified.* > *Error! Filename not specified.**Error! Filename not specified.* > > > > > > No virus found in this incoming message. > Checked by AVG - www.avg.com > Version: 8.5.409 / Virus Database: 270.13.97/2370 - Release Date: 09/16/09 > 11:21:00 > > > > -- Harry Siswanto Email: [email protected] www.facebook.com/harry.siswanto
