Mas Sofyan, ini tidak ditambahkan dari Forms![TRumah_Tangga_add]![Tnomor_KK_add]![NamaTextBox].SetFocus jadi Forms![TRumah_Tangga_add]![Tnomor_KK_add].Form![NamaTextBox].SetFocus ??
regards,
Tio
| "Sofyan Efendi" <sofyanefendi@gmail.com> Sent by: belajar-access@yahoogroups.com 06/01/2011 10:35 AM | To: belajar-access@yahoogroups.com cc: Subject: [belajar-access] Re: mematikan tombol dari form lain |
Dear Mas Hadis,
Focusnya diset dulu di object control yg lain, misal di subform tsb ada text box, maka pindahkan dulu sementara focusnya kesana.
Forms![TRumah_Tangga_add]![Tnomor_KK_add]![NamaTextBox].SetFocus
Forms![TRumah_Tangga_add]![Tnomor_KK_add]![CmTambahKK].Enabled = False
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com/
--- In belajar-access@yahoogroups.com, "hadis0678" <hadis0678@...> wrote:
>
> yang terhormat teman teman semua
>
> lanjut mas, kemudian kalau ingin mendisable tombol yang ada di sub form, dengan cara yang sama yang diberikan mas sofyan menjadi
> Forms![TRumah_Tangga_add]![Tnomor_KK_add]![CmTambahKK].Enabled = False
> dimna Tnomor_KK_add adalah subform dari TRumah_Tangga_add kemudian ketika dijalankan muncul komentar sebagai berikut :
> You can't disable control it has the focus
> apa yang salah dengan perintah saya ya mas.
>
> sebagai gambaran dalam form TRumah_Tangga_add terdapat subform TNomor_KK_add dan dalam TNomor_KK_add terdapat subform data_anggota_keluarga dan tiap subform terdapat tombol untuk menambah data.
>
> demikian permohonan bantuan saya, sebelumnya saya ucapkan terima kasih
>
>
> best regards
>
> must hdi s
>
> --- In belajar-access@yahoogroups.com, "sudarsono" <jkssbma@> wrote:
> >
> >
> > expression.OpenForm(FormName, View, FilterName, WhereCondition,
> > DataMode, WindowMode, OpenArgs)
> >
> > openArgs akan digunakan oleh Form yang akan dibuka ,yaitu pada event
> > open :
> >
> > me.OpenArgs ---> dapat dimanfatkan untuk membuat apa saja yang
> > diinginkan , misal :
> >
> > form yang hanya untuk mencari data.
> >
> > misal saat memanggil form kita beri nilai ( parameter ke-7, openargs )
> > "SEARCH", maka data tak dapat di tambah dan edit. Hal ini di cek pada
> > event open, lalu cek niai me.openargs.
> >
> > semoga sesuai .....
> >
> > '============
> > --- In belajar-access@yahoogroups.com, Sofyan Efendi <sofyanefendi@>
> > wrote:
> > >
> > > Dear Mas Hadis,
> > >
> > > 1. Syntaxnya :
> > Access_Object![Nama_Object]![Nama_Control].Nama_Property
> > > Berarti tinggal ditambahkan kode :
> > Forms![TRumah_Tangga_add]![CmTambahdata].Enabled =False
> > > Maka tombol nya menjadi disable.
> > >
> > > 2. Sebelumnya saya hendak memberi saran dahulu, bahwa link table
> > manager bawaaan Access sangatlah mencukupi kebutuhan kita. Bila karena
> > masalah bahasa, hal tersebut bukan masalah. Hendaknya dalam membuat
> > program kita tidak menggunakan cara yang sulit, sederhanakanlah,
> > permudahlah, karena selama disana masih ada cara yang mudah maka
> > janganlah membuang waktu untuk mengambil cara yang sulit. Bila Access
> > sudah menyediakan link table manager, maka kita tidak perlu membuang
> > waktu membuat sendiri form link table manager.
> > >
> > > Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
> > > Sofyan Efendi.
> > > http://opi.110mb.com/
> > > ----- Original Message -----
> > > From: hadis0678
> > > To: belajar-access@yahoogroups.com
> > > Sent: Tuesday, May 31, 2011 5:30 AM
> > > Subject: [belajar-access] mematikan tombol dari form lain
> > >
> > >
> > >
> > > met pagi sodara-sodara...
> > >
> > > sory kebiasaan jelek, nongol kalau nanya hehehhee..
> > >
> > > mohon bantuan rekan-rekan untuk masalah saya ini..
> > >
> > > 1. pengin mematikan tombol di form dari form lain
> > > saya dah buka form dalam edit mode dengan perintah
> > > Private Sub CmEdit_Click()
> > > On Error GoTo Err_CmEdit_Click
> > >
> > > Dim stDocName As String
> > > Dim stLinkCriteria As String
> > >
> > > stDocName = "TRumah_Tangga_add"
> > > DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormEdit
> > >
> > >
> > > Exit_CmEdit_Click:
> > > Exit Sub
> > >
> > > Err_CmEdit_Click:
> > > MsgBox Err.Description
> > > Resume Exit_CmEdit_Click
> > >
> > > End Sub
> > >
> > > kemudian di form TRumah_Tangga_add terdapat tombol CmTambahdata yang
> > digunakan untuk menambah data. bagaimana caranya untuk mematikan tombol
> > ini? (tahunya kalau pas diform yang bersangkutan, kalau dari form lain
> > bagaimanakah)
> > >
> > > 2. link table manager..
> > > ada gak ya vba untuk bikin link table selain menggunakan dari
> > fasilitas file di acces (hehehehe biar bisa ada bahasa indonesianya)..
> > >
> > > terima kasih rekan-rekan atas bantuannya...
> > >
> > > best regards
> > >
> > > must hdi s
> > >
> >
>
Tidak ada komentar:
Posting Komentar