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 e...@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
Database3 revisi1.rar
Description: Binary data
