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?
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
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 (3) |
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar