سمير الجبالي قام بنشر مايو 9, 2019 قام بنشر مايو 9, 2019 (معدل) السلام عليكم ورحمة الله وبركاته رمضان كريم اساتذة المنتدى الفاضل أرجو المساعدة في كتابة كود يخفي الإستعلامات وكود يخفي النماذج وكود يخفي الوحدات النمطية و كود يخفي التقارير ؟ فإذا كان كود إخفاء الجداول هو : CurrentDb.TableDefs("اسم الجدول").Attributes = dbHiddenObject وكود إظهار الجدول هو : CurrentDb.TableDefs("اسم الجدول").Attributes = 0 فما هي كودات إخفاء الإستعلامات النماذج الوحدات النمطية التقارير وما هو كود إظهار كل مما سبق ؟ .... ولكم جزيل الشكر والاحترام والامتنان سأرفق صورة الكودات المكتوبة لإخفاء الجدول لأنه ظهرت معكوسة بكتابتها . تم تعديل مايو 9, 2019 بواسطه سمير الجبالي إرفاق صورة
ابوخليل قام بنشر مايو 9, 2019 قام بنشر مايو 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 1
سمير الجبالي قام بنشر مايو 10, 2019 الكاتب قام بنشر مايو 10, 2019 استاذ أبو خليل أشكرك بالكود الذي أرفقته بمشاركتي يتم الإخفاء نهائياً دون أن يظهر الجدول المخفي حتى لو قمنا بتفعيل ظهور الكائنات المخفية في خيارات التنقل الكود أقوى من الوحدة النمطية. ولهذا سألت عن الكود
مسفر قام بنشر مايو 10, 2019 قام بنشر مايو 10, 2019 (معدل) هذا الكود من الأخ محمد طاهر على ما أذكر لإخفاء الجداول 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 بواسطه مسفر 1
مسفر قام بنشر مايو 10, 2019 قام بنشر مايو 10, 2019 أيضا أرفق لك كود من الأخت زهرة جزاها الله عنا وعنكم خيرا كثيرا إخفاء وإظهار الكائنات.rar 1
سمير الجبالي قام بنشر مايو 11, 2019 الكاتب قام بنشر مايو 11, 2019 أستاذ مسفر أشكرك كود إخفاء الجدول الذي أرفقته في مشاركتي فعال ولا يمكن أن تظهر الجداول حين يتم إظهار الكائنات المخفية في خيار التنقل ولا يمكن استيراد الجدول المخفي بالكود أما ما تفضلت به حضرتكم ومع جزيل الشكر يكون إخفاء مؤقت يظهر بالاستيراد ويظهر عند تفعيل خيار إظهار الكائنات المخفية في خيار التنقل أبحث عن كود قوي كما الكود الذي كتبته بدايةً لإخفاء الجدول أشكرك
مسفر قام بنشر مايو 11, 2019 قام بنشر مايو 11, 2019 جرب هذا للنموذج من أكواد الأخت زهرة إخفاء نموذج Application.SetHiddenAttribute acForm, "اسم النموذج", True إخفاء استعلام Application.SetHiddenAttribute acQuery, "اسم الاستعلام", True التقرير Application.SetHiddenAttribute acReport, "اسم التقرير", True 1
سمير الجبالي قام بنشر مايو 15, 2019 الكاتب قام بنشر مايو 15, 2019 أستاذ مسفر عذراً لتأخري عليكم بالرد لأنني لم اتصل بالنت إلا الآن أساتذي الكريم أولاً اشكرك ثانياً أرجو أن أحصل على كود الإظهار للذي سأقوم بإخفائه قبل أن أقوم بإخفائه ولكم مني جزيل الشكر والاحترام ولأخت زهرة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.