Dear Hendra...
Coba Script Ini Mas... (Form Menggunakan Type Continuous, ada object txtCari (textbox) dan Button "CmdCari"), Script ditaruh pada event on click pada cmdCari.
Private Sub CmdCari_Click()
Dim SQRY as String
If not Isnull(me!txtCari) then 'Jika txtCari tidak kosong
If IsNumeric(Me!txtCari) then ' Jika TxtCari berisi Numeric maka SQLnya sbb (Pastikan Fied Kriteria Pencairan juga type Numeric(Angka)
SQRY="SELECT * FROM (Nama Tabel/Query) WHERE (Field untuk Criteria)=" & me!txtCari
elseif IsDate(Me!txtCari) then ' Jika type data Tanggal
SQRY="SELECT * FROM (Nama Tabel/Query) WHERE (Field untuk Criteria)=#" & me!txtCari & "#"
else ' Jika type data berupa text/string
SQRY="SELECT * FROM (Nama Tabel/Query) WHERE (Field untuk Criteria)='" & me!txtCari & "'"
end if
Me.RecordSource=SQRY
Me.Requery
Else
Msgbox "Isi Dulu Data yang akan dicari"
End if
Dim SQRY as String
If not Isnull(me!txtCari) then 'Jika txtCari tidak kosong
If IsNumeric(Me!txtCari) then ' Jika TxtCari berisi Numeric maka SQLnya sbb (Pastikan Fied Kriteria Pencairan juga type Numeric(Angka)
SQRY="SELECT * FROM (Nama Tabel/Query) WHERE (Field untuk Criteria)=" & me!txtCari
elseif IsDate(Me!txtCari) then ' Jika type data Tanggal
SQRY="SELECT * FROM (Nama Tabel/Query) WHERE (Field untuk Criteria)=#" & me!txtCari & "#"
else ' Jika type data berupa text/string
SQRY="SELECT * FROM (Nama Tabel/Query) WHERE (Field untuk Criteria)='" & me!txtCari & "'"
end if
Me.RecordSource=SQRY
Me.Requery
Else
Msgbox "Isi Dulu Data yang akan dicari"
End if
Catatan : yang tercetak tebal silahkan ganti dengan Nama Tabel/Query yang dijadikan sumber data pencarian. Field sebagai Kriteria pencarian.
Semoga Membantu
Terima Kasih
Salam,
Syarief Nyong
Salam,
Syarief Nyong
Dari: Hendra Purwaning Dumadi <hendrapurwaningdumadi@gmail.com>
Kepada: belajar-access@yahoogroups.com
Dikirim: Jumat, 27 April 2012 18:59
Judul: Re: [belajar-access] Mohon Banuannya...
Suhu bagaimana caranya membuat prsedure tombol serching dengan kata kunci yang kita ketik di text box...?
Pada 22 April 2012 21:15, Hendra Purwaning Dumadi <hendrapurwaningdumadi@gmail.com> menulis:
[Attachment(s) from Hendra Purwaning Dumadi included below]Pagi Pak..
Benar Pak
Kalau Saya boleh memberikan penjelasan, ketika kita masuk ke menu input data tanah bangunan dan memilih jenis properti tanah kosong, maka estimasi bangunan /m2 menjadi disible, dan pada saat kita memilik posisi properti pada penawaran maka harga transaksi menjadi disible juga, mohon penceraahan Pak
HendraPada 22 April 2012 21:00, Sofyan Efendi <sofyanefendi@gmail.com> menulis:Halo Pak Hendra. Maksudnya hendak membuat disable text box bila pilih suatu
pilihan di combo box, atau gimana ya? Bisa send contoh filenya?
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi
http://imopi.wordpress.com/> ------------------------------------
----- Original Message -----
From: "hendra" <hendrapurwaningdumadi@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Saturday, April 21, 2012 5:32 PM
Subject: [belajar-access] Mohon Banuannya...
> Sore... Para Suru...
>
> Ada hal yang mau saya tanyakan, kalau saya memilih salah satu dari dalam
> combobox maka text box di form yang sama menjadi disible.
>
> Mohon pencerahan...
>
>
>
>
> SPAM IS PROHIBITEDYahoo! Groups Links
>
>
>
__._,_.___
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar