<BR style="PAGE-BREAK-BEFORE: always" clear=all><BR style="mso-ignore: vglayout" clear=all>السلام عليكم
سؤال قد يبدو جديد لى new_test.rar
هل يمكن اخفاء عمود من الجدول بالكود ؟
و ذلك تأمينا من عمليات التلصص مرافق جدول و المراد اخفاء اى عمود بالكود
شكرا لحضراتكم
• جميل أن يضع الإنسان هدفا في حياته ...والأجمل أن يثمر هذا الهدف طموحا
تفضل هذا المثال سيفيدك
سيد الاستغفار
{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}
من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري
شكرا لحضرتك استاذنا
لكنى اتساءل عن اخباء العمود فى الجدول و ليس فى الفورم
• جميل أن يضع الإنسان هدفا في حياته ...والأجمل أن يثمر هذا الهدف طموحا
في أمر في حالة فتح الجدول في عرض ورقة البيانات data sheet view أسمه أخفاء عمود Hide Column وبالتوفيق
عزوز عبداللاه
مدرب ومطور قواعد بيانات أكسس
الاهتمامات
VBA,VB.NET,ASP.NET,SQL SERVER, ORACLE
azouzeg@hotmail.com
01004147149
نعم يمكن ذلك أخي الكريم ..
ولو فرضنا ان هناك نموذج رئيسي اسمه master_form
وفي داخل النموذج الرئيسي يوجد نوذج فرعي اسمه sub_form
العمود المراد اخفاءه اسمه s11
قم بعمل زر أمر واكتب فيه الأمر التالي :
Me![sub_form].Form!s11.ColumnHidden = True
ولأظهار العمود من جديد اكتب الكود التالي :
Me![sub_form].Form!s11.ColumnHidden = False
مرفق المثال بعد التعديل
شكرا لكم على جهودكم و اسف فى تأخرى فى الرد
.
لكن ما اقصده اخفاء عمود بأكمله فى (((الجدول ))) لوجود معلومات به بالكود و عدم فتحه و ليس (( الفـــورم ))
اعتقد انه غير متاح فى الاكسس و كان غرضى عملية تأمين
دام الله فضلكم و مزيد من الشكر
• جميل أن يضع الإنسان هدفا في حياته ...والأجمل أن يثمر هذا الهدف طموحا
khaled_mmas كتب:شكرا لكم على جهودكم و اسف فى تأخرى فى الرد
.
لكن ما اقصده اخفاء عمود بأكمله فى (((الجدول ))) لوجود معلومات به بالكود و عدم فتحه و ليس (( الفـــورم ))
اعتقد انه غير متاح فى الاكسس و كان غرضى عملية تأمين
دام الله فضلكم و مزيد من الشكر
تفضل أخي ملفك بعد التعديل
ماعليك سوى فتح الجدول والنقر بالماوس على أعلى الجدول بالزر الأيسر والذهاب إلى Hide Columns تم أختار أي عمود تريد إخفاؤه.
مع تحياتي لكم
khaled_mmas كتب:شكرا لكم على جهودكم و اسف فى تأخرى فى الرد
.
لكن ما اقصده اخفاء عمود بأكمله فى (((الجدول ))) لوجود معلومات به بالكود و عدم فتحه و ليس (( الفـــورم ))
اعتقد انه غير متاح فى الاكسس و كان غرضى عملية تأمين
دام الله فضلكم و مزيد من الشكر
اخي الكريم ممكن تنفيذ نفس الأمر ولكن على الجدول مباشرة :
لاخفاء العمود (s11)في الجدول (2012) استعمل الكود التالي :
CurrentDb.TableDefs("2012").Fields("s11").Properties("ColumnHidden") = Trueولإظهار نفس العمود استخدم الكود التالي :
CurrentDb.TableDefs("2012").Fields("s11").Properties("ColumnHidden") = Falseممكن وضع هذا الكود في الشاشة الرئيسية للبرنامج او عند تنفيذ اول أمر بالبرنامج أو ممكن وضع هذا الامر في الماكرو المسمى AutoExec
وبالتوفيق
تم تعديل هذه المشاركة بواسطة adnan94 في 20 يونيو 2012 في 20:34
adnan94 كتب:هذه محاولة للاحتيال على قاعدة البيانات لاخفاء الحقل s11 في الجدول
وبالتوفيق
adnan94 أخي العزيز الرجاء
اشكر لك مجهودك و اجو من ان توضيح اين يتم حفظ البيانات s11 .
و كيف طريقة اخفائها .
السلام عليكم و رحمة الله و بركاتـــه
اوجه شكري للاخــوة المشتركين فى مساعدتى
شكري الخاص لـــ (عدنان) +1
على هذه الهدية الاكثر من غالية
هذا كل ما استطيع قوله
كود رائع و تم التعامل معـــه
والسلام عليكم ورحمة الله وبركاته
تم تعديل هذه المشاركة بواسطة khaled_mmas في 28 يونيو 2012 في 11:55
• جميل أن يضع الإنسان هدفا في حياته ...والأجمل أن يثمر هذا الهدف طموحا
Musallam alazmi كتب:adnan94 أخي العزيز الرجاء
اشكر لك مجهودك و اجو من ان توضيح اين يتم حفظ البيانات s11 .
و كيف طريقة اخفائها .
عزيزي أولا مرحبا بك..... وثانيا عذرا عن التأخير والظروف لا تخفى عليك..... ثالثا الطريقة بسيطة سأشرحها لك ولكن لا تنسى ان قوة هذه الطريقة تكمن في التمويه كون الشخص الذي يحاول قراءة حقل معين في قاعدة البيانات لا يدري ان هناك شئ تم اخفاءه وبالنتيجة هي محاولة لعمل اخفاء حقل مهم بالجدول :) .
اليك الطريقة :
1- قمنا بإتشاء جدول جديد اسمه (t2012) وسوف نخزن به البيانات الحقيقية واما الجدول (2012) فهو نسخة عن الجدول السابق وينقص الحقل (s11) المطلوب اخفائه
2- قمنا باخفاء الجدول (t2012) وبالتالي الظاهر في قاعدة البيانات فقط الجدول (2012) الذي لا يحتوي على الحقل (s11) ما شي يا عم ؟
3- في مصدر السجلات في النموذج (fomr2012)لم نصرخ على مصدر السجلات كنوع من الحماية لعدم معرفة مصدر البيانات (يعني تمويه) :wink: وانما استخدمنا الكود التالي الذي يربط الجدول الحقيقي (t2012) مع النموذج في الحدث عند الفتح :
Form.RecordSource = "t2012"
4- في الحدث بعد التحديث استخدمنا الكود التالي :
DoCmd.SetWarnings (0) DoCmd.RunSQL "SELECT T2012.l_no, T2012.s1 INTO 2012 FROM T2012;" DoCmd.SetWarnings (1
)
وهذا الكود هو( استعلام انشاء جدول جديد) اسمه (2012) مصدر بياناته من الجدول (t2012) وظيفته نقل البيانات من الجدول المخفي t2012 الى الجدول الظاهر 2012 بدون الجقل (s11).
تم ارفاق المثال مرة اخرى بعد اظهار الاستعلام (q1) الخاص بانشاء جدول جديد اسمه (2012) الذي تم تحويله الى كود في مثالنا السابق والمستخدم في نموذج (fomr2012).
ومرفق ايضا النموذج (hide) الخاص باخفاء الجداول وكلمة السر 123
تحياتي
تم تعديل هذه المشاركة بواسطة adnan94 في 30 يونيو 2012 في 06:48