اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

رمضان كريم

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

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

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

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

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

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

الإستعلامات

النماذج

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

التقارير

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

....

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

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

 

 

589.JPG

تم تعديل بواسطه سمير الجبالي
إرفاق صورة
رابط هذا التعليق
شارك

عليكم السلام

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

 

رابط هذا التعليق
شارك

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

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

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

 

تم تعديل بواسطه مسفر
  • Like 1
رابط هذا التعليق
شارك

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

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

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

 

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

أشكرك

رابط هذا التعليق
شارك

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

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

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

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

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

التقرير 

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

 

  • Like 1
رابط هذا التعليق
شارك

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

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

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

أولاً اشكرك 

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

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

ولأخت زهرة

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information