اذهب الي المحتوي
أوفيسنا

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

قام بنشر (معدل)

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

رمضان كريم

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

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

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
قام بنشر

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

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

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

أولاً اشكرك 

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

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

ولأخت زهرة

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information