mohon bantuan dan pencerahanya
coba lihat coding di bawah ini, kok nggak jalan ya..ada yang salah nggak.
seharusnya yang diinginkan adalah setelah diklik tombol CommandCari
maka akan
ditampilkan data sesuai berdasarkan kategori dan katakunci?
Private Sub CommandCari_Click()
AdoAmbil.RecordSource = "Select *From datakhusus Where " & _
jenisfield.Text & " like ' " & "%" &
keyword.Text & "%" & " "
If Not AdoAmbil.Recordset.EOF Then
Call displaykhusus
ElseIf Not AdoAmbil.Recordset.BOF Then
Call displaykhusus
Else
MsgBox "Data yang di cari tidak ada...?", vbCritical, "Informasi"
End If
End Sub
atas pencerahannya saya
ucapkan terimakasih
roni
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
