كود إخفاء الإستعلامات والنماذج والوحدات النمطية والتقارير

[سمير الجبالي]

السلام عليكم ورحمة الله وبركاته

رمضان كريم

اساتذة المنتدى الفاضل أرجو المساعدة في كتابة كود يخفي الإستعلامات وكود يخفي النماذج وكود يخفي الوحدات النمطية و كود يخفي التقارير ؟

فإذا كان كود إخفاء الجداول هو : 

CurrentDb.TableDefs("اسم الجدول").Attributes = dbHiddenObject

وكود إظهار الجدول هو :

CurrentDb.TableDefs("اسم الجدول").Attributes = 0

فما هي كودات إخفاء 

الإستعلامات

النماذج

الوحدات النمطية

التقارير

وما هو كود إظهار كل مما سبق ؟

....

ولكم جزيل الشكر والاحترام والامتنان 

سأرفق صورة الكودات المكتوبة لإخفاء الجدول لأنه ظهرت معكوسة بكتابتها .

 

 

تم تعديل مايو 9, 2019 بواسطه سمير الجبالي
إرفاق صورة

[ابوخليل]

عليكم السلام

هذه وحدة نمطية عامة تتحكم في اظهار واخفاء جميع الكائنات ..  وتستطيع تعطيل  اي كائن او تركه يعمل

Public Function HideAndShowAll(vbln As Boolean)
Dim obj As AccessObject
Dim dbs As Object
Dim db As Database
Dim T As TableDef
Dim TName As String
Dim I As Integer
Dim vCnt As Integer
Set db = CurrentDb()
Set dbs = Application.CurrentProject
     On Error Resume Next
    For Each obj In dbs.AllForms
    Application.SetHiddenAttribute acForm, obj.Name, vbln
    Next obj
  
    For Each obj In dbs.AllReports
    Application.SetHiddenAttribute acReport, obj.Name, vbln
    Next obj
  
    For Each obj In dbs.AllModules
    Application.SetHiddenAttribute acModule, obj.Name, vbln
    Next obj
  
    For Each obj In dbs.AllMacros
    Application.SetHiddenAttribute acMacro, obj.Name, vbln
    Next obj

    Set dbs = Application.CurrentData
    For Each obj In dbs.AllQueries
    Application.SetHiddenAttribute acQuery, obj.Name, vbln
    Next obj
  
    For I = 0 To db.TableDefs.Count - 1
    Set T = db.TableDefs(I)
    TName = T.Name
    If Not TName Like "msys*" Then
   
    Application.SetHiddenAttribute acTable, TName, vbln
    vCnt = vCnt + 1
    End If
    Next I
End Function

ونستدعيها من اي حدث هكذا :

للإخفاء :

HideAndShowAll(true)

وللإظهار :

HideAndShowAll(false)

لاحظ  انك لو استدعيت الكود في زر داخل نموذج فلن يتفاعل النموذج والسبب انه مفتوح ، ولكن من الماكرو مثلا يتم التطبيق على الكل 

hidAshow.mdb

[سمير الجبالي]

استاذ أبو خليل أشكرك

بالكود الذي أرفقته بمشاركتي يتم الإخفاء نهائياً دون أن يظهر الجدول المخفي حتى لو قمنا بتفعيل ظهور الكائنات المخفية في خيارات التنقل

الكود أقوى من الوحدة النمطية.

ولهذا سألت عن الكود

 

[ابوخليل]

لا اعلم

وان وجدت شيئا زودتك به .

[سمير الجبالي]

UP

[مسفر]

هذا الكود من الأخ محمد طاهر على ما أذكر 

لإخفاء الجداول 

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
  Set tbl = Nothing
db.Close
Set db = Nothing

أما لإظهارها هذا الكود وأيضا من الأخ محمد طاهر 

 

Dim dbs As Database, tdf As TableDef
    
    Set dbs = CurrentDb
    For Each tdf In dbs.TableDefs
    If Left(tdf.NAME, 4) <> "msys" And tdf.Attributes <> 1073741824 _
    And tdf.Attributes = 1 Then
            tdf.Attributes = tdf.Attributes - dbHiddenObject
    End If
    Next tdf
    Set dbs = Nothing

 

تم تعديل مايو 10, 2019 بواسطه مسفر

[مسفر]

أيضا أرفق لك كود من الأخت زهرة جزاها الله عنا وعنكم خيرا كثيرا 

 

إخفاء وإظهار الكائنات.rar

[سمير الجبالي]

أستاذ مسفر أشكرك

كود إخفاء الجدول الذي أرفقته في مشاركتي فعال ولا يمكن أن تظهر الجداول حين يتم إظهار الكائنات المخفية في خيار التنقل ولا يمكن استيراد الجدول المخفي بالكود

أما ما تفضلت به حضرتكم ومع جزيل الشكر يكون إخفاء مؤقت يظهر بالاستيراد ويظهر عند تفعيل خيار إظهار الكائنات المخفية في خيار التنقل

 

أبحث عن كود قوي كما الكود الذي كتبته بدايةً لإخفاء الجدول

أشكرك

[مسفر]

جرب هذا للنموذج 

من أكواد الأخت زهرة 
إخفاء نموذج 

Application.SetHiddenAttribute acForm, "اسم النموذج", True

إخفاء استعلام 

Application.SetHiddenAttribute acQuery, "اسم الاستعلام", True

التقرير 

Application.SetHiddenAttribute acReport, "اسم التقرير", True

 

[سمير الجبالي]

أستاذ مسفر عذراً لتأخري عليكم بالرد

لأنني لم اتصل بالنت إلا الآن

أساتذي الكريم 

أولاً اشكرك 

ثانياً أرجو أن أحصل على كود الإظهار للذي سأقوم بإخفائه قبل أن أقوم بإخفائه 

ولكم مني جزيل الشكر والاحترام

ولأخت زهرة

[مسفر]

أبدل الكلمة إلى ( False )

[ابو جودي]

اتفضل

جرب المرفق هاد

 

التاريخ (2).mdb