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
>
Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (2) |
No comments:
Post a Comment