Menurutku sama saja Mas....
Terima Kasih
Salam,
Syarief Nyong
Dari: hendra <hendrapurwaningdumadi@gmail.com>
Kepada: belajar-access@yahoogroups.com
Dikirim: Senin, 30 April 2012 16:16
Judul: Re: Bls: [belajar-access] Mohon Banuannya...
terimakasih Bapak Nyong arif atas pencerahannya
apa perbedaannya jika tombol tersebut saya buat untuk filter berdasarkan textbox...?
--- In belajar-access@yahoogroups.com, Nyong Arif <nyong_arif@...> wrote:
>
> 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
>
> Â
> 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
>
>
>
> ________________________________
> Dari: Hendra Purwaning Dumadi <hendrapurwaningdumadi@...>
> 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@...> 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
> >
> >Hendra
> >
> >
> >Pada 22 April 2012 21:00, Sofyan Efendi <sofyanefendi@...> 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@...>
> >>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
> >>>
> >>>
> >>>
> >>
> >>
> >
>
apa perbedaannya jika tombol tersebut saya buat untuk filter berdasarkan textbox...?
--- In belajar-access@yahoogroups.com, Nyong Arif <nyong_arif@...> wrote:
>
> 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
>
> Â
> 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
>
>
>
> ________________________________
> Dari: Hendra Purwaning Dumadi <hendrapurwaningdumadi@...>
> 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@...> 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
> >
> >Hendra
> >
> >
> >Pada 22 April 2012 21:00, Sofyan Efendi <sofyanefendi@...> 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@...>
> >>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