/* */

Friday, January 4, 2013

Re: [belajar-access] Re: Ambil Nilai dari Contol pada suatu SubForm

 

sudah pak dan berhasil, terima kasih

Pada tanggal 03/01/13, Sofyan Efendi sofyanefendi@gmail.com> menulis:
> Mas Himmah sudah dipraktekan belum cara yang Mas Aksan ini, yakni dengan
> cara di block semua controlnya, lalu ketik "sama dengan" seperti yg Mas
> Aksan ajarkan. Harusnya dengan teknik ini sudah sangat mengurangi pengetikan
> ulang. That is Multiple Events in one step.
>
> --- In belajar-access@yahoogroups.com, him mah wrote:
>>
>> iya pak Aksan saya coba googling juga ngga ketemu-ketemu, tapi paling
>> tidak ngga usah di tulis di modulnya, cukup bisa diisi di property
>> sheet nya saja
>>
>> Pada tanggal 03/01/13, aksan kurdin menulis:
>> > access bukan oop programming, jadi tidak mendukung inheritansi.
>> > kalau di oop, form bisa diwariskan, jadi dibuat satu template form
>> > lengkap dengan event2nya, lalu nanti diturunkan ke class baru sehingga
>> > fungsi2 yang sudah dibuat tadi ikut juga diturunkan.
>> >
>> > mau tak mau mas him harus ngeset satu-satu.
>> > tapi kalau tdk mau begitu repot, nama fungsi bisa langsung di pasang di
>> > property beberapa kontrol sekaligus dalam form seperti contoh berikut:
>> >
>> >
>> >
>> >
>> >
>> >
>> >
>> > aksan kurdin
>> >
>> >
>> >
>> > On 1/3/2013 12:15 PM, him mah wrote:
>> >>
>> >> maksud saya itu kita tidak vsah mengetik Private Sub Ctl04_DblClick.
>> >> tapi ketika setiap control dalam sub form di klik maka akan
>> >> menjalankan fvngsi test
>> >>
>> >> Pada tanggal 03/01/13, Sofyan Efendi sofyanefendi@...
>> >> > menulis:
>> >> > Alhamdulillah, ini sangat bermanfaat, terima kasih sharingnya Mas
>> >> > Himmah
>> >> > Agar tidak menulis banyak, buat suatu procedure didalam class module
>> >> form
>> >> > tsb, misal:
>> >> >
>> >> >> Private function test()
>> >> >> dim strActiveCtl as String
>> >> >> strActiveCtl = Screen.ActiveControl.Name
>> >> >> me!txtNama=forms!frmUtama!frmSub!(strActiveCtl)
>> >> >> End Sub
>> >> >
>> >> > nanti saat double klik:
>> >> >
>> >> >> Private Sub Ctl04_DblClick(Cancel As Integer)
>> >> > call test()
>> >> >> End Sub
>> >> >>
>> >> >> Private Sub Ctl05_DblClick(Cancel As Integer)
>> >> > call test()
>> >> >> End Sub
>> >> >
>> >> > dicoba ya ...
>> >> >
>> >> > Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
>> >> > Sofyan Efendi
>> >> > ----- Original Message -----
>> >> > From: "him mah" himmah.mlg@... >
>> >> > To: "belajar-access" belajar-access@yahoogroups.com
>> >> >
>> >> > Sent: Thursday, January 03, 2013 10:54 AM
>> >> > Subject: [belajar-access] Re: Ambil Nilai dari Contol pada suatu
>> >> > SubForm
>> >> >
>> >> >
>> >> >> alhamdulillah sudah ketemu
>> >> >>
>> >> >> kodenya seperti ini
>> >> >>
>> >> >> Private Sub Ctl03_DblClick(Cancel As Integer)
>> >> >> dim strActiveCtl as String
>> >> >> strActiveCtl = Screen.ActiveControl.Name
>> >> >> me!txtNama=forms!frmUtama!frmSub!(strActiveCtl)
>> >> >> End Sub
>> >> >>
>> >> >> cuma yang jadi pertanyaa selanjutnya, misal fieldnya (controlnya)
>> >> >> itu
>> >> >> banyak, gar tidak menulis satu-satu event (seperti dibawah)
>> >> >>
>> >> >> Private Sub Ctl04_DblClick(Cancel As Integer)
>> >> >> dim strActiveCtl as String
>> >> >> strActiveCtl = Screen.ActiveControl.Name
>> >> >> me!txtNama=forms!frmUtama!frmSub!(strActiveCtl)
>> >> >> End Sub
>> >> >>
>> >> >> Private Sub Ctl05_DblClick(Cancel As Integer)
>> >> >> dim strActiveCtl as String
>> >> >> strActiveCtl = Screen.ActiveControl.Name
>> >> >> me!txtNama=forms!frmUtama!frmSub!(strActiveCtl)
>> >> >> End Sub
>> >> >>
>> >> >> kira-kira kode yang simple seperti apa ya
>> >> >>
>> >> >>
>> >> >> Pada tanggal 03/01/13, him mah himmah.mlg@...
>> >> > menulis:
>> >> >>> Dear All
>> >> >>>
>> >> >>> mau tanya
>> >> >>>
>> >> >>> misal saya buat 2 form
>> >> >>> Form Utama = frmUtama
>> >> >>> Form Sub = frmDetil
>> >> >>>
>> >> >>> di form Utama terdapat
>> >> >>> 1. TextBox dengan Nama txtNama
>> >> >>> 2. Sub form dengan nama Frmsub yang sourcenya ke frmDetil
>> >> >>>
>> >> >>> di frmDetil
>> >> >>> typenya Dataheet
>> >> >>> terdiri dari beberapa field (misal,01,02,03,04,05)
>> >> >>>
>> >> >>>
>> >> >>> ketika kita mengklik 2 x (doble klik) field yang ada di
>> >> >>> subformnya,
>> >> >>> kemudian dituliskan kode seperti dibawah
>> >> >>>
>> >> >>> Private Sub Ctl01_DblClick(Cancel As Integer)
>> >> >>> me!txtNama=forms!frmUtama!frmSub![01]
>> >> >>> End Sub
>> >> >>>
>> >> >>>
>> >> >>> yang jadi pertanyaan
>> >> >>> untuk forms!frmUtama!frmSub![01] bisa dibuat dinamis ngga sesuai
>> >> >>> dengan nama control yang diklik
>> >> >>>
>> >> >>> Private Sub Ctl02_DblClick(Cancel As Integer)
>> >> >>> me!txtNama=forms!frmUtama!frmSub![02] (untuk [02] disesuaikan
>> >> >>> dengan nama field yang di klik
>> >> >>> End Sub
>> >> >>>
>> >> >>> terus saya coba buat kode seperti ini
>> >> >>>
>> >> >>> Private Sub Ctl03_DblClick(Cancel As Integer)
>> >> >>> dim strActiveCtl as String
>> >> >>> strActiveCtl = Screen.ActiveControl.Name
>> >> >>> me!txtNama=forms!frmUtama!frmSub!&strActiveCtl
>> >> >>> End Sub
>> >> >>>
>> >> >>>
>> >> >>> tapi koq ngga berhasil, kira-kira Kode yang benar seperti apa ya
>> >> >>>
>> >> >>>
>> >> >>> terima kasih
>> >> >>>
>> >> >>
>> >> >>
>> >> >> ------------------------------------
>> >> >>
>> >> >> SPAM IS PROHIBITEDYahoo! Groups Links
>> >> >>
>> >> >>
>> >> >>
>> >> >
>> >> >
>> >>
>> >>
>> >
>> >
>>
>
>
>

__._,_.___
Reply via web post Reply to sender Reply to group Start a New Topic Messages in this topic (9)
Recent Activity:
SPAM IS PROHIBITED
.

__,_._,___

No comments:

Post a Comment