Terus terang saya belum pernah pake cara pencarian kayak gini, tapi kalo betul syntax cari nya coba ubah If RSQUIZ.EOF Then Menjadi If NOT RSQUIZ.EOF Then Logikanya, jika kamu menyatakan If RSQUIZ.EOF Then berarti menganggap jika tidak ada data ditemukan, sementara perintah dibawahnya menunjukan jika ada data Semoga membantu _____
From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of wawan setiawan Sent: 17 Januari 2007 8:44 To: [email protected] Subject: [Programmer-VB] Pencarian menggunakan sintax "like" Dear Alll Progrrammer mania hallo saya masih awam dalam pemograman VB saya pengen banyak tanya untuk pencarian data yang menggunakan "Like" kalo saya coba selalu gagal terus ini sintaxnya semoga teman tau jawabannya thenks Sub CARINAMA() On Error Resume Next Select Case Cmb Case "NAMA" RSQUIZ.Find "NAMA LIKE'*" + Text10 + "*'", , adSearchForward, 1 End Select If Text10.Text = "" Then MsgBox "Masukan Nama Yang Dicari", vbOKOnly + vbInformation, "Cari Nama" Text10.SetFocus Else If RSQUIZ.EOF Then MsgBox "Data Ditemukan", vbCritical + vbOKOnly, "Cari" RSQUIZ.Filter = "" Call tampil End If On Error GoTo 0 End If End Sub saya udah coba tapi program blm bsa jalan sesuai dengan yang di harapkan semoga programmer mania dapat membantu menemukan solusinya thenks WAWAN SETIAWAN ADMIN GSBN 085213915570 _____ Expecting? Get great news right away with email <http://us.rd.yahoo.com/evt=49982/*http:/advision.webevents.yahoo.com/mailbe ta/newmail_tools.html> Auto-Check. Try the Yahoo! <http://us.rd.yahoo.com/evt=49982/*http:/advision.webevents.yahoo.com/mailbe ta/newmail_tools.html> Mail Beta.
