Ini sangat menarik. Mungkin perlu juga menjadi bahan bagi teman2 pemakai Access yang lain. Jadi, saya forward ini ke milis [email protected]
Jika mas Yoga belum menjadi anggota, harap menjadi anggota milis tsb. Untuk rekan2 di milis belajar-access, mohon bisa ikut share pengalaman. Thanks. Haer Talib On Dec 12, 2007 12:58 PM, R. Yoga <[EMAIL PROTECTED]> wrote: > Pak Haer, Table yg sy kirimkan kemarin tetap tdk bisa hilang tablenya. > Saya pk Access2003 > Apakah ada kesalahan pd codenya, krn code yg ada di buku Pak haer tdk mau > di compile > seperti ada teks dash *""mSys" Or _"* dan spasi *" .Name, 4)".* Teks dash > dan spasi tersebut sdh sy hilangkan dan mau di compile tp table tetap tdk > bisa hidden > > berikut soucecode yg ada di buku anda : > Sub SecuringTables(Optional nHide As Integer = 1) > Dim db As Database > Set db = CurrentDb > For i = 0 To db.TableDefs.Count - 1 > If Left(db.TableDefs(i) .Name, 4) = "mSys" Or _ > Left(db.TableDefs(i) .Name, 1) = "~" Or _ > Left(db.TableDefs(i) .Name, 4) = "Usys" Then > 'Not a table > Else > db.TableDefs(i).Attributes = nHide '1=Hide > '0=Normal > End if > Next > Set db = Nothing > End Sub > > dan ini source code yg sdh sy revisi : > Sub SecuringTables(Optional nHide As Integer = 1) > Dim db As Database > Set db = CurrentDb > For i = 0 To db.TableDefs.Count - 1 > If Left(db.TableDefs(i).Name, 4) = "mSys" Or > Left(db.TableDefs(i).Name, > 1) = "~" Or Left(db.TableDefs(i).Name, 4) = "Usys" Then > 'Not a table > Else > db.TableDefs(i).Attributes = nHide '1=Hide > '0=Normal > End If > Next > Set db = Nothing > End Sub > Terimakasih > > ----- Original Message ---- > From: Haer Talib <[EMAIL PROTECTED]> > To: R. Yoga <[EMAIL PROTECTED]> > Sent: Tuesday, December 11, 2007 5:06:10 PM > Subject: Re: Cara Hidden Table dg VBA > > Saya sudah coba jalankan proc SecuringTables dari database anda dan > efektif. > No problem sama sekali. > > Haer > > > > On Dec 11, 2007 4:57 PM, R. Yoga < [EMAIL PROTECTED]> wrote: > > > Berikut ini Sy kirimkan file databasenya > > > > ----- Original Message ---- > > From: Haer Talib <[EMAIL PROTECTED]> > > To: R. Yoga <[EMAIL PROTECTED] > > > Sent: Tuesday, December 11, 2007 4:44:47 PM > > Subject: Re: Cara Hidden Table dg VBA > > > > Saya jadi ragu dg teks anda "klik insert, module lalu muncul jendela > > VBA". > > Maksudnya klik dimana? > > > > Untuk membuat sebuah modul umum, klik kategori Modules di jendela > > database, lalu klik New. > > > > Tapi kalau anda sudah benar dalam membuat module tsb dan bisa > > menjalankan sub SecuringTables, maka seharusnya proc tsb jalan dg baik. > > > > Jika anda kembali dari VB editor ke jendela database dan masih melihat > > table, coba tekan F5 utk refresh. > > > > Salam, > > Haer Talib > > > > > > On Dec 11, 2007 4:17 PM, R. Yoga < [EMAIL PROTECTED]> wrote: > > > > > Terimakasih sdh membals email Saya, memang Sy menghide table pada BE > > > pada database BE itu sendiri, sy sudah memasukan source code dg cara : > > > klik > > > insert, module lalu muncul jendela VBA, kemudian sy ketikan source code > > > tsb > > > djendela sebelah kiri tepat diatas 2 teks combo (General) & (Declaration) > > > dan teks Option Compare Database lalu sy masukan teks SecuringTables di > > > immediate windows, tapi table tetap terlihat. > > > TerimaKasih > > > > > > > > > ----- Original Message ---- > > > From: Haer Talib < [EMAIL PROTECTED]> > > > To: R. Yoga <[EMAIL PROTECTED]> > > > Sent: Tuesday, December 11, 2007 3:57:34 PM > > > Subject: Re: Cara Hidden Table dg VBA > > > > > > Proc SecuringTables digunakan untuk memberi atribut hidden pada tables > > > dalam database sekarang, termasuk linked table, namun tdk mengubah > > > attribut > > > table pada database lain, misalnya BE anda. > > > > > > Untuk menghide table pada BE, jalankan proc tsb pada database BE. > > > > > > Salam, > > > Haer Talib > > > > > > > > > On Dec 10, 2007 4:47 PM, R. Yoga <[EMAIL PROTECTED]> wrote: > > > > > > > > > > > Bpk Haer, Sy punya buka anda judulnya "Kupas Tuntas Access > > > > Securtty", Sy sudah masukan : > > > > > > > > *Sub SecuringTables(Optional nHide As Integer = 1) > > > > Dim db As Database > > > > Set db = CurrentDb > > > > For i = 0 To db.TableDefs.Count - 1 > > > > If Left(db.TableDefs(i).Name, 4) = "mSys" Or Left( > > > > db.TableDefs(i).Name, 1) = "~" Or Left(db.TableDefs(i).Name, 4) = > > > > "Usys" Then > > > > 'Not a table > > > > Else > > > > db.TableDefs(i).Attributes = nHide '1=Hide > > > > '0=Normal > > > > End If > > > > Next > > > > Set db = Nothing > > > > End Sub* > > > > > > > > masalahnya table di file mdb di Back End tetap ada, bagaimana > > > > urut2an prosedurnya > > > > Terimakasih > > > > > > > > ------------------------------ > > > > Looking for last minute shopping deals? Find them fast with Yahoo! > > > > Search.<http://us.rd.yahoo.com/evt=51734/*http://tools.search.yahoo.com/newsearch/category.php?category=shopping> > > > > > > > > > > > > > > > > ------------------------------ > > > Looking for last minute shopping deals? Find them fast with Yahoo! > > > Search.<http://us.rd.yahoo.com/evt=51734/*http://tools.search.yahoo.com/newsearch/category.php?category=shopping> > > > > > > > > > > > ------------------------------ > > Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try > > it > > now.<http://us.rd.yahoo.com/evt=51733/*http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ+> > > > > > > ------------------------------ > Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it > now.<http://us.rd.yahoo.com/evt=51733/*http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ+> >
