ابو جودي

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

السلام عليكم ورحمة اللة تعالى وبركاته تم طرح الموضوع مسبقا >>----> هنا ولكن بدأ باستفسار من الاستاذ @أبو أحمد عن مجرد ادراج ملفات الصوت للاستماع اليها ثم تطرق بعد ذلك لسؤال عن شكل التصميم وطلب بعض التعديلات ولأهمية العمل من وجهة نظرى المتواضعة لكل من يريد استخدامه فى تعليم اخواننا ممن ابتلاهم الله بفقد البصر اولا اسال الله تعالى ان ينير بصيرتهم وايانا وكل امة محمد صل الله عليه وسلم ثانيا اسأل الله تعالى ان يتقبل هذا العمل المتواضع فيكتب بعد مماتى فى موازين اعمالى باب علم ينتفع منه وأخيرا المرفق الاصدار الثانى لا يعتمد على كائن مديا بلاير ولا على المكتبات التى تخصة لمن يواجه مشكلة مع الاصدار الاول ... وهو ما انصح به Braille.zip Braille V.0.2.zip

هات مرفق

أخر تعديل Braille.mdb

استخدم دالة Dmax or DLast اسهل طريقة اعمل استعلام تجميعى واعمل معيار للرقم العميل ليقوم بالقلترة على العميل فقك وفى حقل التاريخ استخدم فى التجميع Last or Max ولو الاوفيس عندك عربى مش عارف هيكون اسمهم ايه

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

وذاك مثال رائع كذلك من مكتبتى وناطق باللغتين العربية والانجليزية القاعدة ليست من تصميمى حصلتها من احد المنتديات الاجنبية Translate&Speak_v3.accdb

سوف اقوم بالبحث عن ذلك ان شاء الله

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

لا يمكن العمل على القاعدة من اى جهاز به انترنت فقط تحميل واعادة رفع مرة اخرى ان اردت لكن يمكن العمل عليها من مجلد المزامنة فى حالة وجود شبكة محلية على نفس الـ NetWork ولكن سوف تكون ابطأ نسبيا بسبب المزامنة التلقائية الا إن قمت بعمل ايقاف للمزامنة وجعلتها تعمل فى اوقات محددة من خلال الـ schedule ولكن هناك مواقع تقوم بتقديم خدمة سحابة الكترونية يمكنك العمل من خلالها على قاعدة البيانات من اى مكان ولكن بمقابل مادى وباهظ التكاليف مثل https://www.accessdatabasecloud.com/pricing اما جوجول ودروب بوكس سحابة الكترونية تخزينية فقط ------- وهاكم نبذة عن خدمة الموقع Use Your Microsoft Access Database on Cloud Desktops! Microsoft Access Databases can now run faster on cloud desktops than they do on office networks and are also much more secure and stable. You and your team can now use your MS Access database on any of your own devices from anywhere in the world that has an internet connection! Recent improvements in cloud computing technology have made cloud desktops so fast that you might forget you are not working on your own computer. Your Access database can be moved "as-is" to cloud desktops, with no changes, and used anywhere, all the time. Request a free 7-day trial of Microsoft Access on cloud desktops to see how it works on your own devices, from anywhere. الترجمـــــــــــــــــــة استخدم قاعدة بيانات Microsoft Access على أجهزة كمبيوتر سطح المكتب السحابية! يمكن الآن تشغيل قواعد بيانات Microsoft Access بشكل أسرع على أجهزة سطح المكتب السحابية مقارنة بشبكات المكاتب ، كما أنها أكثر أمانًا واستقرارًا. يمكنك الآن أنت وفريقك استخدام قاعدة بيانات MS Access الخاصة بك على أي من أجهزتك الخاصة من أي مكان في العالم به اتصال بالإنترنت! جعلت التحسينات الأخيرة في تقنية الحوسبة السحابية أجهزة سطح المكتب السحابية سريعة جدًا لدرجة أنك قد تنسى أنك لا تعمل على جهاز الكمبيوتر الخاص بك. يمكن نقل قاعدة بيانات Access "كما هي" إلى أسطح المكتب السحابية ، دون أي تغييرات ، واستخدامها في أي مكان وطوال الوقت. اطلب نسخة تجريبية مجانية لمدة 7 أيام من Microsoft Access على أجهزة سطح المكتب السحابية لترى كيف يعمل على أجهزتك الخاصة ، من أي مكان.

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

انا اسف انا فعلا نسيت وايضا نسيت ان المطلوب ان تكون القاعدة بتنسيق 2003 هذه المرحلة الثانية من التعديل لم اهتم بموضوع العمل على الامتدادات حتى الان باقى نقطتان فقط وان شاء الله يكتمل العمل كما ينبغى 1- امكانية العمل على الامتدادات المختلفة للملفات الصوتية 2- تطبيق قاعدة برايل مع كل حرف اثناء نطق الحرف عند الضغط عليه بالفأرة فعلا انا تعبت جدا ولن استطع اكمال العمل اليوم ان شاء الله ان كان فى العمر بقية وعندما يأذن ربى سبحانه وتعالى اكمل ما بقى فى اقرب وقت مممكن المرفق فقط يقوم بنطق الأحرف بدأ من الألف وحتى حرف الـذال لم اكمل الباقى طبعا يتم نطق الاحرف عند الضغط بالماوس على كل حرف واتمنى ان سمح وقت اساتذتى الكرام و والدى الحبيب واستاذى القدير ومعلملى الجليل الاستاذ @jjafferr و والدى الحبيب واستاذى القدير ومعلملى الجليل الاستاذ@ابوخليل واستاذى القدير ومعلمى الجليل الاستاذ @Hamdi Edlbi-khalf واستاذى القدير ومعلمى الجليل @د.كاف يار النظر الى المرفق لابداء الرأى فى الافكار وتقديم النصح والارشاد ليكتمل العمل ان شاء الله بأفضل نتيجة مع اطيب الامانى بتجربة ممتعة وفريدة من نوعها Braille.zip

طيب المحاولة الاولى ان شاء الله اولا : بحثت على الانترنت عن الطربقة لانى لا اعلم عنها شئ ولذلك لم استطع الفهم من الشرح النظرى ووجدت الفيديو الاتى ثانيا : قمت بتحويل المقطع الى ملف صوتى وقمت بقطع كل حرف بما يناظره من طربقة برايل ووضعت الاحرف على هيئة مقاطع صوتية بامتداد wav بجوار القاعدة وانظر الى التجربة فى المرفق اعتذر عن التاخير بسب ظروف قهرية .. واعتذر عن فقر التصميم فى التنسيق لضيق وقتى الان ونظرا ايضا لنفس الظروف التى كانت سبب فى انقطاعى المفاجى فى الايام المنصرمة ان شاء الله لى عودة عن قريب ان اذن الله تعالى ونكمل ما تبقى اتمى لكم تجربة ممتعة والى لقاء قريب ان شاء الله ويمكنكم تحميل المرفق من هنا https://drive.google.com/file/d/1-XthQGPIB4yIFwO1aqEPcSkVKfLaMQUv/view

ممكن ملفات الصوت لو تكرمت

تمام اولا عليك بتنصيب جوجل درايف على الجهاز من خلال الرابط الاتى https://dl.google.com/drive-file-stream/GoogleDriveSetup.exe بعد تنصيب التطبيق سوف يقوم بإنشاء مجلد باسم google drive التطبيق يقوم بالمزامنة تلقائيا لما يوجد بداخل المجلد الى السحابة كل ما عليك تحديد مسار عمل النسخ الاحتياطى الى المجلد فقط سوف اقوم بازالة التنصيب من جهازى واقوم بعمل شرح مصور تفصيلا لو تعذر عليكم الامر

السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ @ابوخليل من فضلك ممكن توضيح اكثر ؟ يعنى تريد مجرد مزامنة البيانات مع قاعدة بيانات موجودة على جوجل درايف ام تريد استخدامها من اكثر من شخص و اكثر من جهاز من خلال جوجل درايف ؟

وبهذا يا اصدقائى نكون قد تأكدنا وتيقنا من البخور العمانى وعمايله

اتفضل Property Sheet.mdb

طيب رجاء فك ضغط الملف المرفق فى الرابط الاتى وقم بالتجربة واخبرنى ان عملت معك المفروض انها تعمل مع كل من mp3 , wav 1142117426_api_PlayMusic.zip

من عيونى يا باش مهندس شرح الاكواد بالوحدة النمطية تفصيلا اولا اسم الجدول ولانه سوف يتم استخدامه كثيرا ولاننى احببت تصعيب الامر قليلا استخدمت الـ Unicode Public Function tblUUID() tblUUID = Chrw("85") & Chrw("115") & Chrw("121") & Chrw("115") & Chrw("83") & Chrw("101") & Chrw("99") & Chrw("117") & Chrw("114") & Chrw("101") & Chrw("100") End Function فلو قمنا بقرائته فى نافذة immediate من خلال ?tblUUID() لتنتج لنا اسم الجدول UsysSecured كما فى الصورة الاتية 2- التأكد من وجود الجدول فى قاعدة البيانات من عدمه Public Function ifTableExists(tblName As String) As Boolean If DCount("[Name]", "MSysObjects", "[Name] = '" & tblName & "'") = 1 Then ifTableExists = True End Function 3- السطر الاول انشاء الجدول من خلال استعلام السطر الثانى تشغيل الـ Function الاتى ChckUUID ,وسيتم شرحه لاحقا Public Function CrtTblUUID() DoCmd.RunSQL "CREATE TABLE " & tblUUID & "([ID] counter," & "[UUIDPC] text," & "[ApprovedNo] text," & "CONSTRAINT [Index1] PRIMARY KEY ([ID]));" ChckUUID End Function 4- التأكد من وجود قيم فى الجدول Public Function CountRec() As Boolean If DCount("*", tblUUID) = 1 Then CountRec = True End Function 5-التأكد من صلاحية مقتاح التسجيل الذى ارسلته لكم عند التجربة من خلال استخدام عدد 2 Function - ToGetAprv - GetUUID() وسيأتى شرحهم تباعا Public Function ChkApprovedNo() As Boolean If DLookup("ApprovedNo", tblUUID) = ToGetAprv(GetUUID()) Then ChkApprovedNo = True End Function ملاحظة عند الشرح الان وحدتنى قمت بعمل function باسم اخر لنفس الوظيفة وسوف اقوم بحذفه اسم ال function هو Public Function validat() As Boolean اعتذر على ذلك الخطأ 6- هذا ال Function للخثول على معرف فريد للجهاز يدعى UUID وببساطه هو هو اختصار للمعرف الفريد العالمي ، وهو معرف فريد يتم إنشاؤه آليًا ضمن نطاق معين يتم إنشاؤها بواسطة خوارزمية معينة تحدد المواصفات والعناصر بما في ذلك عنوان MAC لبطاقة الشبكة والطابع الزمني ومساحة الاسم (Namespace) والرقم العشوائي أو العشوائي الزائف والتوقيت والعناصر الأخرى وخوارزمية إنشاء UUID من هذه العناصر تعني الخصائص المعقدة لـ UUID أنه لا يمكن إنشاؤها إلا عن طريق الكمبيوتر مع ضمان تفردها Public Function GetUUID() Dim strComputer As String Dim objWMIService, colItems, objItem strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct", , 48) For Each objItem In colItems GetUUID = objItem.UUID Next End Function 7- اغلاق جميع النماذج المفتوحة ما عدا نموذج FrmNotReg ولعدم تسهيل الامر على العابثين تم استخدام الـ unicode فى كتابة اسم النموذج Public Function DoCloseForms() Dim F As Access.Form Dim i As Long For i = Forms.Count - 1 To 0 Step -1 Set F = Forms(i) If F.Name <> _ Chrw("70") & Chrw("114") & Chrw("109") & Chrw("78") & Chrw("111") & Chrw("116") & Chrw("82") & Chrw("101") & Chrw("103") _ Then DoCmd.Close acForm, F.Name End If Next i End Function فى النقطة رقم 5 فى الشرح قلت سوف يأتى لاحقا شرح الـ 2 function الاتى ذكر اسمائهم - ToGetAprv - GetUUID() GetUUID -- تم شرحة فى النقطة رقم 6 الـ ToGetAprv هو function يتم تمرير قيمة GetUUID() الجهاز الحالى اليه ليقوم بتحويله الى unicode يعنى من ظهر لهم هذا الرقم الخاص بالنسخة فى نموذج التسجيل 46364331-3536-4638-3344-4232FFFFFFFF طبعا كما سبق هذا هو معرف الـ UUID وبعد ان يتم تمريره الى الـ function ToGetAprv ليتم تحويله الى unicode المفروض انه يظهر على الشطل التالى ولكن قمت ببعض التعديلات على الكود الذى يقوم بالتجويل الى الـ unicode بحيث يتم الابقاء على الارقام فقط من دون Chw("") & ولذلك كانت النتيجة كالاتى 525451545251514945515351544552545156455151525245525051507070707070707070 ولذلك فان ال Public Function ChkApprovedNo() As Boolean If DLookup("ApprovedNo", tblUUID) = ToGetAprv(GetUUID()) Then ChkApprovedNo = True End Function يقوم بالوصول الى الرقم ذلك وان كان يساوى الرقم الذى يتم عمل لصق له فى نموذج التسجيل يتم فتح النموذج الرئيسي 8- الكود الاخير لاخر روتين فى الموديول يقوم بعمل كل ماسبق يتأكد من وجود الجدول لو مش موجود ينشئ الجدول ولو الجدول موجود يتأكد من عدد السجلات لو 0 سجل يتم انشاء سجل ويضع به رقم UUID فى الحقل الخاص به ولو السجلات تساوى 1 يقوم بالتأكد من قيمة رقم UUID ان كان المكتوب فى الجدول = الخاص بهذا الجاز يكمل باقى الخطوات والا يوقم بعمل تحديث له للرقم فى الحقل داخل الجدول بما يساوى رقم رقم UUID للجهاز وبعد ذلك يتم تحويل الـ رقم UUID الى unicode مع االبقاء على الرقام فقط ويتأكد من تلك القيمة فى الحقل الخاص بها للتأكد فان كانت يتم فتح النموذج الرئيسي والا يعود الى نموذج التسجيل ولذلك هذا هو المستخدم فى الحدث عند الفتح ويمكن وضعه بنموذج البدء بسهولة من خلال اسمه ChckUUID , او Call ChckUUID بس خلاص Public Function ChckUUID() If ifTableExists(tblUUID) Then Else: CrtTblUUID If DLookup("UUIDPC", tblUUID) <> GetUUID Then DoCmd.SetWarnings False: DoCmd.RunSQL "UPDATE UsysSecured SET UsysSecured.UUIDPC = GetUUID();": DoCmd.SetWarnings True DoEvents If CountRec() Then If DLookup("UUIDPC", tblUUID) = GetUUID Then If ChkApprovedNo Then _ DoCmd.Close acForm, _ Chrw("70") & Chrw("114") & Chrw("109") & Chrw("78") & Chrw("111") & Chrw("116") & Chrw("82") & Chrw("101") & Chrw("103") _ : DoCmd.OpenForm Chrw("70") & Chrw("114") & Chrw("109") & Chrw("77") & Chrw("97") & Chrw("105") & Chrw("110"), , , , , acDialog _ Else: DoCloseForms: DoCmd.OpenForm Chrw( _ "70") & Chrw("114") & Chrw("109") & Chrw("78") & Chrw("111") & Chrw("116") & Chrw("82") & Chrw("101") & Chrw("103"), , , , , acDialog Exit Function End If Else DoCmd.SetWarnings False: DoCmd.RunSQL "INSERT INTO UsysSecured ( UUIDPC ) SELECT GetUUID() AS UUID;": DoCmd.SetWarnings True End If End Function بس ممكن بدل الذهاب الى نموذج التسجيل اغلاق القاعدة نهائيا لمن يريد وطبعا للوصول للحماية القصوى وضع كلمة مرور على محرر الاكواد وكلمة سر لتشفير قاعدة البيانات عند الفتح واغلاق الشيفت واخفاء الاطار وعمل قاعدة ريموت لتمرر كلمة المرور الى القاعدة الحالية عند فتحها وطبعا تلك القاعدة سوف يتم تحويلها الى accde وهذا ما سوف اطرحه لاحقا بس الان انا متعب ملاحظة تم تعديل المرفق الرئيسي بالتعديل الأخير الذى تم تدارك الاخطاء به وسوف يتم حذف كل المرفقات بالموضوع تخفيفا على سيرفر المنتدى اجمل الامانى بكده ينتهى موضوع العبث ويتم تأمين القاعدة بأقصى درجات الأمان لمن يريد

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

وذلك مفتاح تفعيل خاص بالجهاز الحالى فقط 484848484848484845484848484548484848454848484845484850524968505167565267 ولو نقلت نفس القاعدة لجهاز آخر لن تعمل ولو استخدمت نفس مفتاح تفعيل

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

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

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