اعزائي
السلام عليكم
اخي ابو حمود
استخدمت الكود الخاص بأخفاء الجداول الذي نشرته
وهو يعمل على اصدار اكسس اكس بي بدون مشاكل
لكن عندما حولت القاعدة الى اصدار 79 ظهرت لي بعض المشاكل في تعريف بعض المتغيرات
مثل AccessObject
ولم يعمل الكود
ارجو ارشادي
هل يجب اضافة مرجع او مكتبة من مكتبات الاكسس
وهذا هو الكود
Private Sub xx4_Click()
Dim db As Database
Dim obj As AccessObject, dbs As Object
Dim tdf As TableDef
Set dbs = Application.CurrentData
Set db = CurrentDb
For Each obj In dbs.AllTables
Set tdf = db.TableDefs(obj.Name)
If Left(tdf.Name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then
tdf.Attributes = tdf.Attributes + dbHiddenObject
End If
Next
db.Close
Set db = Nothing
End Sub
