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

Jumat, 15 Maret 2013

Re: [belajar-access] Reference kah?

Dear Pak Bambang,

Saya belum mencoba kode Bapak dibawah, namun pada intinya gini . MS Access memang kurang bagus dalam hal keamanan, kita sebagai penggemar yang memikirkan jalan alternatif.

Bapak mengunakan VBA dibawah itu juga jalan alternatif. Saya tulis juga jalan alternatif.

Menggabungkan keduanya mungkin sudah memadai

cgsatu (Elang)

From: Bambang Mahfudin <bambalid@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Thursday, March 14, 2013 6:23 AM
Subject: 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.CurrentProjectFor Each obj In dbs.AllFormsApplication.SetHiddenAttribute acForm, obj.NAME, bHideUnhideNext 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 ObjectDim i As Integer'Code VBA menyembunyikan QueriesFor i = 0 To CurrentData.AllQueries.Count - 1Application.SetHiddenAttribute acQuery, CurrentData.AllQueries(i).NAME, bHideUnhideNext i'Code VBA menyembunyikan FormsSet dbs = Application.CurrentProjectFor Each obj In dbs.AllFormsApplication.SetHiddenAttribute acForm, obj.NAME, bHideUnhideNext objEnd SubSemua query sudah "Lenyap" tapi semua form masih "Nongol" dan ada pesan error sbb:Run-time error '0':Reserved Errordan di-blok warna kuning pada kalimat :Application.SetHiddenAttribute acForm, obj.NAME, bHideUnhideMohon solusi pencerahan dimana kesalahannya. Terima kasihBambangMahfudinNB:References yg saya centangVisual Basic For ApplicationMicrosoft Access 9.0 Object LibraryOLE AutomationMicrosoft DAO 3.6 Object LibraryMicrosoft ActiveX Data Object 2.1 LibraryMicrosoft ADO Ext. 2.8 for DDL and Security