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
>
| Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (2) |
Tidak ada komentar:
Posting Komentar