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

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
>>
>>
>>
>
>