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 (1) |
Tidak ada komentar:
Posting Komentar