Minggu, 19 Mei 2013

Re: Bls: [belajar-access] Tombol Cari

 

strNama = Nz(DLookup("Nama", "tblNama", "Nama like '*" & strFind & "*'"), "")

variabel strNama akan diisi data dari hasil lookup field "nama" dari table "tblNama", dimana kondisinya field nama harus mengandung *strFind*.
fungsi NZ akan mengganti hasil NULL menjadi string kosong "" jika hasil dlookup gagal menemukan record dengan kondisi di atas.

tekan F1 dan cari penjelasan mengenai DLOOKUP dan NZ untuk memperoleh pengertian yang lebih jelas dan baku.

aksan kurdin

On 5/19/2013 4:57 PM, Handiki Kurnia wrote:
 
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 (5)
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

Tidak ada komentar:

Posting Komentar