MS ACCESS MAILING LIST: Re: [belajar-access] Re: Ambil Nilai dari Contol pada suatu SubForm

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 aksan.kurdin@gmail.com> 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@gmail.com
>> > 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@gmail.com >
>> > 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@gmail.com
>> > 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
>> >>
>> >>
>> >>
>> >
>> >
>>
>>
>
>