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

Rabu, 13 Maret 2013

Fw: [belajar-access] Reference kah?

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@gmail.com>
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