ابو جودي قام بنشر مارس 9, 2015 قام بنشر مارس 9, 2015 السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام لا اعرف هل السؤال منطقى ام لا من الناحية البرمجية هل يمكن اخفاء الجداول الملحقة من قاعدة الجداول فى قاعدة النماذج ولكن ليس بالطريقة التقليدية كما هى موضحة بالصورة التاليةيعنى يوجد كود برمجى لاخفاء الجداول ولا يمكن اظهارها من اظهار عناصر الاكسس المخفية اى لا يمكن عودة اظهارها الا من خلال كود برمجى كذلك كما فى الكود التالى للاخفاء 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 MsgBox "Please run again db. and Click Tables Object for seen" DoCmd.Quit والكود التالى للاظهار 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 MsgBox "Please run again db. and Click Tables Object for seen" DoCmd.Quit فهل يمكن تعديل الكود او طريقة لاخفاء الجداول الملحقة والمرتبطة من قاعدة اخرى عن طريق كود برمجى بحيث لا يمكن اظهارها الا بكود برمجى كذلك كل الشكر والتقدير واعتذر لاساتذتى على الاطاله والاثقال جزاكم الله خيرا
ابو جودي قام بنشر مارس 9, 2015 الكاتب قام بنشر مارس 9, 2015 ☻ up حفضل وراكم لحد ما تزهقوا وتردوا عليه ينفع واللا لاء المطلوب ده 1
jjafferr قام بنشر مارس 9, 2015 قام بنشر مارس 9, 2015 حأقترح حاجة ، بس انت وحظك بدل السطر And tdf.Attributes = 1 Then اكتب And tdf.Attributes = 1 or tdf.Attributes = 6 Then جعفر
ابو جودي قام بنشر مارس 9, 2015 الكاتب قام بنشر مارس 9, 2015 حأقترح حاجة ، بس انت وحظك بدل السطر And tdf.Attributes = 1 Then اكتب And tdf.Attributes = 1 or tdf.Attributes = 6 Then جعفر بس يا استاذنا السطر اللى حضرتك اشرت اليه ده موجود فى الكود البرمجى والخاص بإظهار الجداول المخفيه
jjafferr قام بنشر مارس 9, 2015 قام بنشر مارس 9, 2015 في هذا الرابط الاخ رمهان يشرح معنى الكود: http://www.officena.net/ib/index.php?showtopic=56917 من مفهوم آخر: استبدل هذا السطر If Left(tdf.name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then بهذا If Left(tdf.name, 4) <> "msys" Then واستبدل If Left(tdf.name, 4) <> "msys" And tdf.Attributes <> 1073741824 _ And tdf.Attributes = 1 Then بهذا If Left(tdf.name, 4) <> "msys" Then جعفر 1
ابو جودي قام بنشر مارس 9, 2015 الكاتب قام بنشر مارس 9, 2015 في هذا الرابط الاخ رمهان يشرح معنى الكود: http://www.officena.net/ib/index.php?showtopic=56917 من مفهوم آخر: استبدل هذا السطر If Left(tdf.name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then بهذا If Left(tdf.name, 4) <> "msys" Then واستبدل If Left(tdf.name, 4) <> "msys" And tdf.Attributes <> 1073741824 _ And tdf.Attributes = 1 Then بهذا If Left(tdf.name, 4) <> "msys" Then جعفر اعتذر للاطاله والاثقال عليكم استاذنا الكريم جزاكم الله خيرا تم التنفيذ كما تفضلتم استاذنا الكريم ولكن تظهر مشكله فى هذا السطر من الكود tdf.Attributes = tdf.Attributes + dbHiddenObject هل احاول ارفاق مثال لاسهل عليكم الامر استاذى القدير
jjafferr قام بنشر مارس 10, 2015 قام بنشر مارس 10, 2015 السلام عليكم أخي بعد البحث عن هذا الموضوع ، اتضح انه لا يمكن اخفاء الجداول المرتبطة بهذه الطريقة ، وهذا الرابط الاجنبي يعطي ظل اكثر على الموضوع http://www.utteraccess.com/forum/index.php?s=a6e80171c5960e148b04279d22dfa28f&showtopic=1526084&st=20 جعفر 1
ابو جودي قام بنشر مارس 10, 2015 الكاتب قام بنشر مارس 10, 2015 السلام عليكم أخي بعد البحث عن هذا الموضوع ، اتضح انه لا يمكن اخفاء الجداول المرتبطة بهذه الطريقة ، وهذا الرابط الاجنبي يعطي ظل اكثر على الموضوع http://www.utteraccess.com/forum/index.php?s=a6e80171c5960e148b04279d22dfa28f&showtopic=1526084&st=20 جعفر شكر الله لكم مجهودكم ووقتكم الذى لم تبخلوا به علينا جزاكم الله عنا كل الخير ان شاء الله
ابوخليل قام بنشر مارس 10, 2015 قام بنشر مارس 10, 2015 السلام عليكم يسعدني المشاركة معكم وحسب فهمي ان كان القصد اخفاء واظهار الجداول المرتبطة في قاعدة بيانات ما ،، فهذا للاخفاء : If tdf.Attributes = 1073741824 Then tdf.Attributes = 1 وهذا للاظهار : If tdf.Attributes = 1073741824 Then tdf.Attributes = 0 1
jjafferr قام بنشر مارس 10, 2015 قام بنشر مارس 10, 2015 وعليكم السلام أخي أبوخليل ولي الشرف ان تمر علينا هنا الكود اللي وضعته انت ، هو بدلا عن (اضغط على اسم الجدول بالفأرة اليمين ، خصائص ، ثم تختار إخفي) ، وطبعا يمكن للمستخدم ان يظهر جميع جداول النظام ، وبالتالي سترى الجداول التي اخفيتها بالكود اعلاه. اما الكود الذي وضعه الاخ أسير الشروق ، فلا يمكن إظهار الجداول إلا بكود آخر ، فإظهار جداول النظام لن يُظهر هذه الجداول جعفر 1
ابوخليل قام بنشر مارس 10, 2015 قام بنشر مارس 10, 2015 طيب اخوي جعفر افحص المثال المرفق يوجد داخله جدولين واحد منها مرتبط ... حاول اظهارها من الخيارات يمكن اكسس الذي عندي يوهمني .. تراها دايم تحصل احب أتأكد .. جزيت خيرا aa.rar 1
jjafferr قام بنشر مارس 10, 2015 قام بنشر مارس 10, 2015 أخي ابوخليل على الاكسس 2010 اللي عندي ، ما ظهرت لي اسماء اي جداول: جعفر
ابو جودي قام بنشر مارس 10, 2015 الكاتب قام بنشر مارس 10, 2015 السلام عليكم يسعدني المشاركة معكم وحسب فهمي ان كان القصد اخفاء واظهار الجداول المرتبطة في قاعدة بيانات ما ،، فهذا للاخفاء : If tdf.Attributes = 1073741824 Then tdf.Attributes = 1 وهذا للاظهار : If tdf.Attributes = 1073741824 Then tdf.Attributes = 0 استاذنا الجليل ومعلمنا القدير بل يسعدنا ويشرفنا انضمامكم الينا جزاكم الله عنا كل الخير بس الكود ده انا مش عارف ازاى استخدمه بصراحه حاولت ولم اوفق ياريت لو تكرمت علينا يا استاذنا الكريم ترفق المثال بها او تخبرنا الية التعامل مع الكود شكر الله لكم طيب اخوي جعفر افحص المثال المرفق يوجد داخله جدولين واحد منها مرتبط ... حاول اظهارها من الخيارات يمكن اكسس الذي عندي يوهمني .. تراها دايم تحصل احب أتأكد .. جزيت خيرا انا فحصت المثال وحاولت اظهار الجداول اصلا لا تظهر بالطريقة التقليدية وهى اظهار الملفت المخفية للاكسس وايضا حتى الكود البرمجى الذى استخدمه لم يظهرها كذلك ☺ للعلم اعمل بنسخة أكسس 2013 1
ابو جودي قام بنشر مارس 10, 2015 الكاتب قام بنشر مارس 10, 2015 طيب اخوي جعفر افحص المثال المرفق يوجد داخله جدولين واحد منها مرتبط ... حاول اظهارها من الخيارات يمكن اكسس الذي عندي يوهمني .. تراها دايم تحصل احب أتأكد .. جزيت خيرا بس اعتقد الجدولين اسمائهم كالاتى tbl1 tbl11 بس مش عارف اظهرهم
ابو الآء قام بنشر مارس 10, 2015 قام بنشر مارس 10, 2015 السلام عليكم المثال ده من مكتبتى الرجاء الدعاء لمصمم هذا العمل الجميل بارك الله فيه ياريت يكون مفيد فى حوار الكبار ده ((((((((( خلينه كدا مش فاهمين هههه))))))))) اخفاء واظهار الجداول المنتدي.rar 2
jjafferr قام بنشر مارس 10, 2015 قام بنشر مارس 10, 2015 أخي ابو الآء برنامجك لا يخفي الجداول المرتبطة ولكنك جعلتني افتش ملفاتي القديمة ، ووجدت الحل جعفر Show_Hide_Tables.zip 1
ابو جودي قام بنشر مارس 10, 2015 الكاتب قام بنشر مارس 10, 2015 السلام عليكم المثال ده من مكتبتى الرجاء الدعاء لمصمم هذا العمل الجميل بارك الله فيه ياريت يكون مفيد فى حوار الكبار ده ((((((((( خلينه كدا مش فاهمين هههه))))))))) جزاكم الله خيرا اخونا الكريم واستذانا الفاضل وانا هأشرح لحضرتك ببساطه الموضوع ده اصلا حضرتك السبب فيه بطريق غير مباشر على كل خلينا فى المهم احنا بنتكلم على ايه اولا هذه الطريقة تخص الحماية للقاعدة والامان وذلك حفاظا عليها من العبث وللبيانات بداخل الجداول فيها طيب فكرة السؤال كانت كالاتى ازاى اخفى الجداول المرتبطه بقاعده تانيه بكود برمجى ولا يتم اظهاره الا بكود برمجى كذلك - اولا يعنى الكلام ده عندنا اى قاعدة بيانات تتكون من جداول استعلامات نماذج تقارير وحدات نمطية اهم شئ هو الجداول لو اختفت الجداول لايمكن لاى من كان استيرادها الى قاعده اخرى للعبث بمحتوياتها او معرفة محتوياتها لذلك وكما افهم انا على حسب عقلى وفهمى الضئيل والله اعلم انه يفضل تقسيم قاعدة البيانات الى شقين الاول للجدول فقط والثانى لكل كائنات القاعده الباقية تكمن القوة فى الحماية هنا فى اخفاء الجداول من الاولى وتحويل الثانية الى mde أو accde أو accdr حفظا على الاكواد البرمجية التى استخدمت فى البرمجة والتصميم كذلك طبعا يحتفظ المبرمج بأخرى مفتوحه طيب ماذا لو ان القاعده الثانية سيتم التعامل معها وهى mdb أو accdb يمكن معرفة البيانات من الجداول كل ما كنت ابحث عنه هو تأمين الجداول المرتبطه بين القاعدتين بإخفائها بكود برمجى طبعا اعلم تمام العلم ان فوق كل ذى علم عليم واعلم ايضا ان الحماية فى الاكسس ضعيفه ولكن نحاول الاجتهاد قدر الامكان 1
ابو جودي قام بنشر مارس 10, 2015 الكاتب قام بنشر مارس 10, 2015 أخي ابو الآء برنامجك لا يخفي الجداول المرتبطة ولكنك جعلتني افتش ملفاتي القديمة ، ووجدت الحل جعفر جزاكم الله خيرا استاذنا الجليل وشكرا على هذا البرنامج القيم ولكن لم هذا البرنامج لم يظهر الجداول فى مرفق الاستاذ ابو خليل عندما حاولت ذلك عجز عن اظهارها ولكن هو أكد معلوماتى فى اسماء الجداول tbl1 tbl11 واعتقد ان هذا هو الجدول المرتبط ولكن لم استطع اظهار الجدولين
ابو جودي قام بنشر مارس 10, 2015 الكاتب قام بنشر مارس 10, 2015 حتى تعم الفائده كانت المشكله مع الكود لاظهار ملفات الاستاذ ابو خليل فى السطر Dim dbs As Database, tdf As TableDef قمت بازاله هذا السطر من الكود من مرفق الاستاذ جعفر وعمل جيدا وقمت باظها الملفات وها المرفق بعد الاظهار aa_up.rar 1
jjafferr قام بنشر مارس 10, 2015 قام بنشر مارس 10, 2015 ولكن لم هذا البرنامج لم يظهر الجداول فى مرفق الاستاذ ابو خليل عندما حاولت ذلك عجز عن اظهارها ولكن هو أكد معلوماتى فى اسماء الجداول tbl1 tbl11 واعتقد ان هذا هو الجدول المرتبط ولكن لم استطع اظهار الجدولين تم اظهارهم بنجاح جعفر
jjafferr قام بنشر مارس 10, 2015 قام بنشر مارس 10, 2015 حتى تعم الفائده كانت المشكله مع الكود لاظهار ملفات الاستاذ ابو خليل فى السطر Dim dbs As Database, tdf As TableDef قمت بازاله هذا السطر من الكود من مرفق الاستاذ جعفر وعمل جيدا وقمت باظها الملفات وها المرفق بعد الاظهار لا الله يخليك ، لا تلغي اي شئ من الكود اللي لازم تعمله: في شاشة الكود Tools References واختار من القائمة Miscosoft DAO 3.xx Object Library وراح يشتغل الكود جعفر
jjafferr قام بنشر مارس 10, 2015 قام بنشر مارس 10, 2015 بس الخطوة التالية (بالنسبة لي مب اليوم ، فانا مرهق وعندي كم شغلة احاول اخلصها ) هي ان نجعل البرنامج: 1. نعمل فيه زر لكي يختار اي قاعدة بيانات نختارها ، 2. ان نخفي الجداول لهذه القاعدة ، يعني بالرموت كنترول ، وبالطريقة هذه ، لا نجعل المفتاح مع القفل واذا تكرم احد الشباب بهذه المهمة (طبعا يمكن اخفاء بقية الكائنات ايضا) ، اكون شاكرا له مقدما ، فهذا عمل نتشارك فيه جعفر
ابو جودي قام بنشر مارس 10, 2015 الكاتب قام بنشر مارس 10, 2015 حتى تعم الفائده كانت المشكله مع الكود لاظهار ملفات الاستاذ ابو خليل فى السطر Dim dbs As Database, tdf As TableDef قمت بازاله هذا السطر من الكود من مرفق الاستاذ جعفر وعمل جيدا وقمت باظها الملفات وها المرفق بعد الاظهار لا الله يخليك ، لا تلغي اي شئ من الكود اللي لازم تعمله: في شاشة الكود Tools References واختار من القائمة Miscosoft DAO 3.xx Object Library وراح يشتغل الكود جعفر استاذى ومعلمى الجليل حضرتك قلت اللي لازم تعمله: في شاشة الكود Tools References واختار من القائمة Miscosoft DAO 3.xx Object Library طيب انا مش عاوز اطبق بدون وعى وفهم وعندى سؤال تانى هو لو اخدت المرفق لجهاز تانى هتحصل نفس المشكله ولازم اعمل زى ما حضرتك قولت كده اللي لازم تعمله: في شاشة الكود Tools References واختار من القائمة Miscosoft DAO 3.xx Object Library امممممممممممم معنى كده ان المبرمج ممكن لما بيعطى برنامج لاحد ممكن يواجه مشكله مثل هذه المشكله والمستخدم اكيد لن يكون قادر على الفهم او لن يكون له التصريحات اللازمه التى تمكنه من معالجة مثل هذه المشاكل كيف يمكن تلافى مثل هذا المشاكل من المصصم او المطور ؟ اعتذر للاطاله والاثقال عليكم جزاكم الله خيرا
.thumb.gif.27c4a79ce23abc61b721f833e6899131.gif)
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.