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

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