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

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