ابو جودي

هذه صورة من واقع التجربة وايضا تم وضع المرفق بالتعديل على طريقتكم استاذى الجليل ومعلمى القدير ووالدى الحبيب استاذ @jjafferr PDF.zip

هأعمل تصوير لحضرتك حالا من جهازى

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

هات ملفات الصوت تبعك كلها 😡 عد كام مرة اطلب منك الطلب ده

استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr لقد فكرت بوضع الحل بتلك الالية ولكن ترددت لانه لابد من تنصيب الـ Acrobat Reader على الجهاز والا لن يتم استعراض الملف فبدلا من ذلك سوف يتم تحميل الملف

الحل الاول Application.FollowHyperlink CurrentProject.Path & "\" & List1.Column(1) & ".pdf" الحل الثانى Dim OpnPdf As Variant OpnPdf = Shell("explorer.exe " & CurrentProject.Path & "\" & List1.Column(1) & ".pdf", vbNormalFocus) ------------------------ لتلافى الخطأ فى حالة عدم وجود ملف الـ PDF اضافة الروتين الاتى Function IsFile(ByVal fName As String) As Boolean On Error Resume Next IsFile = ((GetAttr(fName) And 16) <> 16) End Function وفى حدث عند النقر على الـ ListBox ضع الكود الاتى Dim pdfPath As String pdfPath = CurrentProject.Path & "\" & List1.Column(1) & ".pdf" If IsFile(pdfPath) Then Dim OpnPdf As Variant OpnPdf = Shell("explorer.exe " & pdfPath, vbNormalFocus) Else MsgBox "File Not found " End If وهذا ملفك بعد التعديل pdf.zip

من عيونى الشرح هنا فى موضوع مستقل

السلام عليكم ورحمة الله تعالى وبركاته الشرح الاتى لا يخص الأكسس بصفة خاصة ولكن لحماية حذف القاعدة او اى ملف داخل مجلد او المجلد الذى يحتوى قاعدة البيانات بالخطأ اولا نقوم بعمل مجلد جديد ونعطيه الاسم الذى نريد على سبيل المثال نضع مجلد جديد داخل القطاع 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

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