Salam,
Kemarin saya jg ketemu masalah serupa, alhamdulillah udah ketemu jalan
keluarnya. Saya ngikutin saran mas pur, make fungsi InStr.
------------------------------------------------------------
Private Sub Command1_Click()
Dim KodeDB As Database
Dim KodeTab As Recordset
Set KodeDB = OpenDatabase(App.Path & [NamaFileDatabase])
Set KodeTab = KodeDB.OpenRecordset([NamaTabel])
KataKunci = Text1.Text
Do While Not KodeTab.EOF
Ketemu = InStr(KodeTab.Fields([NamaField]), KataKunci)
If Ketemu > 0 Then
MsgBox ("Data ditemukan !"), , "Hasil pencarian"
Exit Sub
End If
KodeTab.MoveNext
Loop
MsgBox ("Data Tidak Ditemukan !"), , "Hasil pencarian"
End Sub
--------------------------------------------------------------
Semoga membantu,
Ardhi ;)
--- In [email protected], robi alfian muhtar robi alfian
muhtar <[EMAIL PROTECTED]> wrote:
>
> maaf pak ,,,bisa lebih diperjelas,,,kalu ada minta dong listing
programnya...
> ----- Original Message -----
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
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/
