Makasih bantuannya, saya akan mencobanya.... btw, Untuk semua
"Saya mengucapkan selamat hari raya idul fitri 1430 H Minal 'aidzin walfaidzin Mohon maaf lahir batin" ________________________________ From: "e...@nt" <[email protected]> To: [email protected] Sent: Wednesday, September 16, 2009 1:58:45 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.RowSourc e = "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 <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 > > > > > >
