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 Auto-Check. Try the Yahoo! Mail Beta.
