Jika menggunakan command button, misalnya dari form1, pastikan form1 ini dalam keadaan hidden mas.kemudian jalankan ini;
Private Sub Command1_Click()
securing True
End Sub
securing True
End Sub
saya belum coba jika menggunakan macro autoexec.
Thank you | Terima Kasih | Matur Suksema
Sumiyanto
Sumiyanto
From: Bambang Mahfudin <bambalid@gmail.com>
To: belajar-access@yahoogroups.com
Sent: Tuesday, 12 March 2013 10:20 AM
Subject: [belajar-access] Reference kah?
To: belajar-access@yahoogroups.com
Sent: Tuesday, 12 March 2013 10: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 (2) |
SPAM IS PROHIBITED
.
__,_._,___
Tidak ada komentar:
Posting Komentar