ابو جودي

السلام عليكم ورحمة الله تعالى وبركاته الشرح الاتى لا يخص الأكسس بصفة خاصة ولكن لحماية حذف القاعدة او اى ملف داخل مجلد او المجلد الذى يحتوى قاعدة البيانات بالخطأ اولا نقوم بعمل مجلد جديد ونعطيه الاسم الذى نريد على سبيل المثال نضع مجلد جديد داخل القطاع D ونعطى المجلد اسم BackDB نقوم بتحديد المسار ونقوم بنسخه فيكون D:\Test\BackDB ولو كان اسم المجلد من مقطعين مثل Back DB سوف يكون المسار نسخ المسار الى ملف نصى ونقوم بتعديله ليكون D:\Test\Back_DB بعد ذلك نقوم بفتح موجه الاومر DOS ونقوم بكتابة او لصق الامر الاتى cacls D:\Test\BackDB /P everyone:n ولو اسم المجلد من مقطعين يكون cacls D:\Test\Back_DB /P everyone:n ثم نضغط على المقتاح Enter من لوحة المقاتيح ثم نضغط على المفتاح Y من لوحة المفاتيح كما هو موضح فى الصورة بعد ذلك نغلق موجه الاوامر DOS ونذهب الى المجلد ونقوم بالضغط عليه كليك يمين ونختار Properties تظهر لنا النافذة الاتية نحدد التبويب Security ثم نضغط بعد ذلك على Advanced كما هو موضع بالصورة ثم بعد ذلك تظهر لنا النافذة الاتية نقوم بالتحديد اولا كما هو فى الخطوة رقم 1 بالصورة ثم بعد ذلك كما هو بالخطوة رقم 2 نقوم بالضغط على Edit ثم بعد ذلك تظهر لنا النافذة الاتية نقوم بالضعط على Show Advanced Permissions ثم بعد ذلك تظهر لنا النافذة الاتية 1- فى الـ Type نختار Allow 2- فى اختيارات الـ Permissions نقوم بإزالة التأشير من على الاتى Delete Delete Subfolders and files لتصبح الاعدادت كما بالشكل الاتى ثم نضغط OK الان انسخ قاعدة البيانات داخل المجلد او اى ملفات تخاف من فقدانها جرب حذف الملفات لن يتم حذفها حاول حذف القاعدة كذلك لن يتم حذفها كذلك اقتح القاعدة واضف اليها بيانات او عدل او احذف منها اى بيانات سوف تعمل القاعدة بشكل طبيعى جدا لو اردت حذف المجلد او اى شئ بداخلة فقط استخدم الامر الاتى فى موجه اوامر الـ DOS cacls D:\Test\BackDB /P everyone:f وبعد حذف ما تريد يمكنك اعادة الخطوات ان اردت ارجاع الحماية مرة اخرى انتهى الشرح دمتم فى امان الله...

اانا فعلا بحثت عن عمل ذلك بالاكسس ولم اوفق فى شئ وخطر على بالى تلك الفكرة يا دكتور

لا طبعا علشان تعمل ده بقه لازم من خلال الاعدادت تخلى المجلد للقراء والتعديل فقط وقتها تقدر تضيف ملفات وتعدل ملفات وتشتغل بقاعدة بيانات خلفية لكن تحذف اى شئ لا لو عاوز اعمل لك شرح مصور ماشى بس هتدفع حق الشرح اومااااااااااااااااال

بس فعلا انا فى العمل قاعدة البيانات تم حذفها بالخطا ذات مرة وبقليل من البحث توصلت لتعديل اعدادت امان المجلد ليصبح قابل للقراءة والتعديل فقط دون الحذف وبذلك لا يتم حذف القاعدة الا ان قمت بتعديل اعدادات الامان مرة اخرة وبعدين يا سيدى هزر براحتك على قلبى زى العسل ولو عاوز تعمل مجلد لا يتم حذف ما بداخلة ابدا بكل سهولة اذهب لموجه اوامر الدوس اكتب لامر الاتى cacls D:\Moh3ssam /P everyone:n مع تعديل D:\Moh3ssam بمسار المجلد وان كان اسم المجلد يتكون من اكثر من مقطع تعامل معه مثل ما تتعامل مع الاسماؤ فى محرر الاكواد يعمى لو عندنا مجلد على القطاع D باسم Amr Ashraf يكتب الامر فى موجه اوامر الدوس بهذا الشكل cacls D:\ Amr_Ashraf /P everyone:n ثم اضغط من لوحة المقاتيح على زر الـ Enter تأتى لك رسالة تخبرك ان اردت الاستمرار اضغط على حرف الـ y من لوحة المفاتيح وان اردت عدم الاستمرار اظغط على حرف الـ N وبمجرد الضغط على حرف الـ Y يتم تعديل اعداد الامان للمجلد لن تستطيع حذف او اضافة اى شئ اليه ولفتح الاعدادت مرة اخرى للمجلد ليقبل الكتابة او الحذف cacls D:\ Amr_Ashraf /P everyone:f انا مجلد البرامج بأقوم بعمل تلك الخطوة للحفاظ عليها من الحذف او التعديل عليها من قبل الفيروسات

ممكن ذلك من خلال عمل مجلد خاص وبالتعديل على اعدادات الامان لهذا المجلد فيكون للقراء والتعديل فقط لما يحويه المجلد

طيب هو الكلام كان واضح من العنوان تأمين السجلات من تعديل او حذف البيانات بالخطأ لم اقصد حذف السجل نفسه ولكن البيانات داخل احد العناصر فى النموذج للسجل الحالى ولكن على كل حال زيادة فى الخير ومن اجل عيون صاحب السؤال الحل كالاتى .AllowDeletions = عند التأمين = False فلا يتم حذف السجل وعند الغاء التامين وفى وضع التعديل تكون = True Securing records(2).accdb

السلام عليكم ورحمة الله تعالى وبركاته وردنى السؤال الآتى عند فتح نموذج او تصفح بيانات من استعراض السجلات من خلال نموذج فى حالة التركيز على عنصر تحكم ما قد يتم اضاقة شئ بالخطأ الى البيانات او حذف شئ من البيانات هل ممكن تأمين جميع الحقول بحيث لا يمكن التعديل او حذف او اضافة بيانات بالخطأ الاجابة نعم ممكن ذلك بكل سهولة من خلال الفكرة الاتية بترتيب الخطوات إنشاء زر امر ونسمى زر الامر cmdEdit نقوم بتسمية زر الامر بـ Edit نضع الكود الاتى فى حدث الحالى للنموذج If Me.NewRecord Then With Me .cmdEdit.Caption = "Edit" .cmdEdit.ForeColor = 0 .cmdEdit.FontBold = False .AllowEdits = True .cmdEdit.Enabled = False End With Else With Me .AllowEdits = False .cmdEdit.Caption = "Edit" .cmdEdit.ForeColor = 0 .cmdEdit.FontBold = False .cmdEdit.Enabled = True End With End If نضع الكود الاتى فى حدث عند النقر لزر الامر Select Case Me.cmdEdit.Caption Case "Edit" With Me .AllowEdits = True .cmdEdit.Caption = "Lock" .cmdEdit.ForeColor = 255 .cmdEdit.FontBold = True .Refresh End With Case "Lock" With Me .AllowEdits = False .cmdEdit.Caption = "Edit" .cmdEdit.ForeColor = 0 .cmdEdit.FontBold = False .Refresh End With End Select المرفق Securing records.accdb

هو مش عارف انت مين واللا ايه علشان يقول لك كده المرفق اهون ياسيدى ToolTip.mdb

حلوة جدا الفكرة للعلم بالأصالة عن نفسى ومن وجهة نظرى المتواضعة.. الفكرة أكثر من رائعة لعدة اسباب من يريد التعلم لابد أن يبذل الجهد ليس المقصود أن يكون عذابا أو كبرا من المعلم أو شئ من هذا القبيل هذا توضيح صريح حتى لا يظن أحد بى سوء ولكن أنا مؤمن أن ما يتم الحصول عليه إن ذهب يذهب كما أتى فما تتعلمه بسهولة قد تفقده بنفس السهولة التى تعلمته بها لكن ما تتعلمة بشئ من الصعوبة والعناء ببذل الجهد فى التفكير والبحث والتمحيص والتجارب لا تفقدة بسهولة واثناء البحث عن شئ قد تتعلم طرق واساليب جديدة لم تكن تعرفها وهذا عن تجربة شخصية لذلك انا احبذ الفكرة فبطرح الاسئلة فى موضوع متجدد على هيئة QUIZ تبدأ من ادنى مستوى تحصد الاتى تنشيط الأفكار والملعلومات لدى من يعرفها مسبقا قد تجنى ومن ورائها افكار مختلفة وآساليب تعطى نفس النتيجة لم تكن تعلم عنها شيئا إجبار طلبة العلم على بذل الجهد فى البحث عن الحل هنا وهناك وسبق وأوضحت الفائدة من ذلك الإرتقاء باساليب التفكير لوضع الحلول المختلفة الإرتقاء بمستوى معرفة طلبة العلم تدريجيا

الفكرة دى تقريبا فكرتنى بإيــــــــــــــه ... اممممم وعلى رأى اخى الحبيب الاستاذ @Moosak وانا كنت فاضى حبتين وللتجربة المرفق >--->> هنا

كنت متأكد ان التفعيل الغير قانونى هو السبب

بسم الله ماشاء الله الله اكبر

طيب ياريت بعد ما تجرب تعرفنا النتيجة

المشكلة من التقعيل الغير قانونى استخدم اداة تفعيل اخرى غير المستخدمة حاليا وبعد التفعيل قم بعمل تحديث اونلاين للاوفيس

يا استاذ @أبو أحمد اتفضل المرفق الاتى يقوم بتشغيل الملفات ذات الامتداد mp3 , wav بدون مشاكل ان شاء الله انا مش فاهم قصد حضرتك ياريت توضح اكثر Braille V.0.2.zip

تم تعديل الموضوع باضافة الاصدار الثانى من قاعدة البيانات والذى لا يعتمد على كائن أو مكتبات ميديابلاير

وهذا تعديل للكود السابق داخل الموديول للاستغناء عن استخدام المكتبة التى سبق واشرت اليها فى الرد السابق Function CollectFields(pstrSQL As String, Optional pstrDelim As String = ", ") As String Dim db As DAO.Database Dim rs As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset(pstrSQL) Dim strConcat As String With rs If Not .EOF Then .MoveFirst Do While Not .EOF strConcat = strConcat & .Fields(0) & pstrDelim .MoveNext Loop End If .Close End With Set rs = Nothing Set db = Nothing If Len(strConcat) > 0 Then strConcat = Left(strConcat, Len(strConcat) - Len(pstrDelim)): CollectFields = strConcat End Function Downtime (3).accdb

وعليكم السلام ورحمة الله تعالى وبركاته سلم يارب سلم اللهم إنا نعوذ بك من عمى البصيرة اللهم لا تزغ ابصارنا وثبت قلوبنا على طاعتك وخشيتك والوجل والخوف منك والرجاء فيك يا ارحم الراحمين

مشاركة مع اساتذى العظماء.... واثراء للموضوع هذا حل آخر يعتمد على الكود الاتى داخل الموديل ولاكن لابد من تفعيل المكتبة الاتية Microsoft ActiveX Data objects 2.1 library Function CollectFields(pstrSQL As String, Optional pstrDelim As String = ", ") As String Dim rs As New ADODB.Recordset rs.Open pstrSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic Dim strConcat As String With rs If Not .EOF Then .MoveFirst Do While Not .EOF strConcat = strConcat & .Fields(0) & pstrDelim .MoveNext Loop End If .Close End With Set rs = Nothing If Len(strConcat) > 0 Then strConcat = Left(strConcat, Len(strConcat) - Len(pstrDelim)): CollectFields = strConcat End Function بعد ذلك نقوم بعمل استعلام تجميعى ومصدر الاستعلام الجدول TblDowntime لانه به كل البيانات ولاننا نريد تجميع البيانات التى تخص كل Machines سوف نقوم بادارج الحقل الدال على ذلك وهو Machine لانه الذى يمثل العامل المشترك الذى يتم تجميع البيانات بناء عليه والان نريد تحميع كل البيانات التى تخص الـمدة Duration من كل السجلات نضع الجملة الاتية والتى نستدعى بها الكود من داخل الموديول لكل حقل نريد تجميع بياناته CollectFields("SELECT x1 FROM x2 WHERE x2='" & [x3] & "'" & " ORDER BY x3") x1--- اسم الحقل الذى نريد تجميع بياناته x2--- اسم الجدول او الاستعلام والذى هو مصدر البيانات x3--- اسم الحقل الذى يمثل العامل المشترك الذى يتم تجميع البيانات بناء عليه Downtime (2).accdb

شكرا لكم استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل انا لم اكن اعلم اى شئ مما سبق ولكن لما دعت الحاجة لتصميم تلك القاعدة هذا ما استطعت فهمه بقليل من البحث عبر صفحات الانترنت حول تلك الطريقة فعلا الموضوع صعب ولكن ادركت وقتها نعمة البصر والاكثر منها البصيرة ... عند البحث وجدت هذا البيت واثر فى وجدانى كثيرا مِسكينٌ هوَ لا يَرى الألوانَ الرائِعَة بَل مسكينٌ أنتَ عيونٌ لكَ ونظراتُها ضائعَة

تقصد بالتعقيد الاكواد المستخدمة فى قاعدة البينات ام طريقة برايل ؟!

حظه كده هههههههههه

نعم هو ذلك فعلا المعلم المبصر هو من سوف يستخدم هذا التطبيق فى التعليم وهو من سوف ينقر ازرار الحروف والمتلقون للعلم هم من سوف يستمع لحركة كل حرف ترجمة الحرف هذه هى طريقة برايل تعتمد الطريقة على ان كل الحروف تتكون من خلية من ست نقاط وعدد النقاط بترتيب معين داخل الخلية يدل على كل حرف وهذا شكل الخلية وتتم قراءة النقاط البارزة من خلال معرفة رقم موضعها طبقا للخلية الاتية من خلال اللمس وجدل برايل اجمالا يعنى عندما يتحسس غير المبصر ويجد النقطة البارزة طبقا للترتيب فى الخلية الاتية رقم 1 اى ان هذا حرف الاف وهندما يتحثث النقاط البارزة ويجدها حسب موضعها 2 ، 3 ، 4 ، 5 فهذا حرف التاء

الف مبروك .... مزيد من التألق .... زادك الله علما

جزاكم الله خيرا ورزقكم من فضل ما دعوتم اضعافا مضاعفة اتمنى التجربة والرد ان كان هناك اى خلل وابداء الرأى ان كان هناك تعديل او افكار افضل