Re: [belajar-access] Membuat mesin pencari

Sayang karena tidak bisa download file nya attachment nya mungkin contoh ini bisa mewakili beberapa pertanyaan tentang pembuatan pencarian:
untuk kasus bapak mungkin ditambahkan code LIKE '*" & strkrit & "*' , agar kata kunci tidak perlu semuanya dituliskan.

Private Sub CariData_Click()
On Error GoTo Err_CariData_Click
Dim strsql As String
Dim strkrit As String
Dim rsl As Recordset

strkrit = Nz(Me!Textcari1.Value, "")

Select Case Me!FRM1
Case Is = 1

 strsql = "SELECT [NoItem], [Keterangan], [JenisItem],[Satuan],[HargaPokok], [HargaJual], [QtyStock],[Note]" _
 & " FROM [QRYCariStockBarang]" _
 & " WHERE (([QRYCariStockBarang].[NoItem]) LIKE '*" & strkrit & "*')"
strsql = strsql & " ORDER BY [QRYCariStockBarang].[NoItem]"

Case Is = 2
strsql = "SELECT [NoItem], [Keterangan], [JenisItem],[Satuan],[HargaPokok], [HargaJual], [QtyStock],[Note]" _
 & " FROM [QRYCariStockBarang]" _
 & " WHERE (([QRYCariStockBarang].[Keterangan]) LIKE '*" & strkrit & "*')"
strsql = strsql & " ORDER BY [QRYCariStockBarang].[Keterangan]"


End Select

 

Sumiyanto

---

From: Ruchi Msaccess <ruchi_msaccess@yahoo.com>
To: belajar-access@yahoogroups.com
Sent: Mon, September 27, 2010 2:45:44 PM
Subject: [belajar-access] Membuat mesin pencari [1 Attachment]

 

Mohon bantuan rekan-rekan sekalian

Saya mencoba belajar membuat database untuk material, dan saya mengalami kendala untuk memuat sebuah mesin pencari dimana ketika kita akan mencari data cukup memasukkan kata kunci saja. Sy sudah mencoba membuat tetapi hasil yang saya buat adalah kata/kalimat yang saya masukkan harus sesuai dengan data dan tidak bisa sepenggal-sepenggal.

Misalkan saya ingin mencari semua material dengan p/n 1492-WG4, maka yang harus saya ketikkan adalah 1492-WG4. Mohon bantuannya agar ketika saya mengetikkan 1492 maka semua data dengan kata tersebut bisa muncul, entah 1492-WG4 atau 1492-A231 atau yang lainnya

Mohon bantuan dari rekan-rekan dan para master sekalian

Data terlampir

Terima Kasih
Salam

__._,_.___

SPAM IS PROHIBITED

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___