ACCESS FEED: Re: Fw: [belajar-access] Reference kah?

Kamis, 14 Maret 2013

Re: Fw: [belajar-access] Reference kah?

Maksud saya sbb:

Public Sub securing(ByVal bHideUnhide As Boolean)
For Each obj In Currentproject.AllForms
Application.SetHiddenAttribute acForm, obj.NAME, bHideUnhide
Next obj
end sub

--- In belajar-access@yahoogroups.com, "Edy" <murid.belajaraccess@...> wrote:
>
> bukannya
> dbs as object kurang tepat?
> coba ganti dengan
> dbs as dao.database
>
> salam hangat dan jabat erat,
>
> MBA
>
> --- In belajar-access@yahoogroups.com, "Bambang Mahfudin" <bambalid@> wrote:
> >
> >
> > Terima kasih Mas Elang,

> > Kalau manual satu per satu, sebenarnya bisa pakai cara klik kanan-properti kemudian centang cekbox attributes: menjadi hidden.
> >
> > Yang saya tidak mengerti begini mas Elang, Kalau saya pakai koding spt dibawah bisa jalan tapi itu sama saja dg manual satu per satu
> >
> > Application.SetHiddenAttribute acForm, "customers", True
> >
> > Lantas kembali ke pertanyaan saya semula dimana kesalahan koding saya?
> >
> > Public Sub securing(ByVal bHideUnhide As Boolean)
> > Dim obj As AccessObject, dbs As Object
> > Set dbs = Application.CurrentProject
> > For Each obj In dbs.AllForms
> > Application.SetHiddenAttribute acForm, obj.NAME, bHideUnhide
> > Next obj
> > end sub
> >
> > Sementara "obj" sudah dideklarasikan sebagai semua form yg ada dan "obj.name" mewakili namanya,
> > khan mustinya sama saja hanya bedanya pake recordset??? Maaf kalo salah :)
> >
> >
> > SalamAccessers
> > BambangMahfudin
> >
> >
> >
> > ----- Original Message -----
> > From: CGSATU
> > To: belajar-access@yahoogroups.com
> > Sent: Wednesday, March 13, 2013 9:34 AM
> > Subject: Re: [belajar-access] Reference kah?
> >
> >
> > Intinya, Pak Bambang ingin agar kode VBA dan Object MS Access tidak diutak-utik.
> >
> > Saya ada cara sederhana untuk melakukannya.
> >
> > Silakan baca disini http://mugi.or.id/blogs/elang/archive/2011/05/27/hide-your-access-2010-tables.aspx
> >
> > Kalau di blog, saya pakai contoh menyembunyikan tabel. Namun sebenranya bisa digunakan pula pada Object Tabel, Query, dan Form.
> >
> > Caranya sama saja, tinggal tambahkan "Usys" didepan nama Object. Silakan dicoba
> >
> > cgsatu (Elang)
> >
> > From: Bambang Mahfudin <bambalid@>
> > To: belajar-access@yahoogroups.com
> > Sent: Tuesday, March 12, 2013 9:20 AM
> > Subject: [belajar-access] Reference kah?
> >
> >
> > Bp Moderator dan rekan accessers,
> >
> > Saya coba menyembunyikan semua query & form dg koding VBA sbb:
> >
> > Public Sub securing(ByVal bHideUnhide As Boolean)
> >
> > Dim obj As AccessObject, dbs As Object
> > Dim i As Integer
> >
> > 'Code VBA menyembunyikan Queries
> > For i = 0 To CurrentData.AllQueries.Count - 1
> > Application.SetHiddenAttribute acQuery, CurrentData.AllQueries(i).NAME, bHideUnhide
> > Next i
> >
> > 'Code VBA menyembunyikan Forms
> > Set dbs = Application.CurrentProject
> > For Each obj In dbs.AllForms
> > Application.SetHiddenAttribute acForm, obj.NAME, bHideUnhide
> > Next obj
> >
> > End Sub
> >
> > Semua query sudah "Lenyap" tapi semua form masih "Nongol" dan ada pesan error sbb:
> >
> > Run-time error '0':
> > Reserved Error
> >
> > dan di-blok warna kuning pada kalimat :
> > Application.SetHiddenAttribute acForm, obj.NAME, bHideUnhide
> >
> > Mohon solusi pencerahan dimana kesalahannya.
> >
> > Terima kasih
> > BambangMahfudin
> >
> > NB:
> > References yg saya centang
> >
> > Visual Basic For Application
> > Microsoft Access 9.0 Object Library
> > OLE Automation
> > Microsoft DAO 3.6 Object Library
> > Microsoft ActiveX Data Object 2.1 Library
> > Microsoft ADO Ext. 2.8 for DDL and Security
> >
>