anda punya tombol, jika ditekan akan mengeluarkan input box, kita masukkan kata kunci, lalu menekan tombol ok pada input box.
jika ada dalam record yang tampil apa ? kita anggap message box juga ya.
jika tidak ada dalam record maka muncul pesan, kita asosiasikan adalah message box.
misalnya anda punya tabel daftar nama, lalu anda ingin cari nama handiki di dalamnya.
berikan event on click pada tombol dengan kode untuk mencari teks handiki:
Private Sub Command0_Click()
Dim strFind As String
Dim strNama As String
strFind = InputBox("Cari data", "Ketikkan nama yang hendak anda cari")
strNama = Nz(DLookup("Nama", "tblNama", "Nama like '*" & strFind & "*'"), "")
If strNama = "" Then
MsgBox "Tidak menemukan data " & strFind, vbInformation + vbOKOnly, "Data tidak ketemu"
Else
MsgBox strNama, vbInformation + vbOKOnly, "Data ketemu"
End If
End Sub
aksan kurdin
On 5/19/2013 4:21 PM, Handiki Kurnia wrote:
Selamat sore
Mohon bantuannya, saya ingin membuat tombol cari menggunakan code builder itu gimana ya?ketika kita masukkan word key nya di input box, lalu jika ada di dalam record maka tampil jika tidak muncul pesan.
terima kasih .
__._,_.___
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (2) |
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar