tampil macam mana yang handiki ingin keluarkan, bukannya sudah tampil dari contoh yang kukasih tuh?
aksan kurdin
On 5/19/2013 5:07 PM, Handiki Kurnia wrote:
aksan kurdin
On 5/19/2013 5:07 PM, Handiki Kurnia wrote:
satu lagi mas hehehe,
kalo data ada/ ketemu, lalu ingin ditampilkan,gimana caranya ya mas?
terima kasih mas
Dari: Handiki Kurnia <handiki_kurnia@yahoo.co.id>
Kepada: "belajar-access@yahoogroups.com" <belajar-access@yahoogroups.com>
Dikirim: Minggu, 19 Mei 2013 16:57
Judul: Bls: [belajar-access] Tombol Cari
sebelumnya terima kasih mas aksan,
setelah saya coba dan saya pahami, 1 baris yang saya kurang paham maksudnya.
("Nama", "tblNama", "Nama like '*" & strFind & "*'"), "")
bisa tolong dijelaskan?terima kasih>
Dari: aksan kurdin <aksan.kurdin@gmail.com>
Kepada: belajar-access@yahoogroups.com
Dikirim: Minggu, 19 Mei 2013 16:31
Judul: Re: [belajar-access] Tombol Cari
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 (6) |
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar