ابو جودي

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

طيب تريد الاعتماد على اى صيغة >>---> wav or mp3

كيف يحدث ذلك من المفروض الا يفتح وان ينقلك الى النموذج FrmNotReg هل قمت بفتح النموذج بشكل طبيعى ام انك تعديت الخطوات المنطقية لالية العمل ؟!

اين هى المقاطع الصوتية ؟

ممكن مرفق القاعدة مع المقطع الصوتى الذى تريد اضافته

شكرا على الدعم باش مهندس @Eng.Qassim رجاء اخبرنى هل حاولت فتح النموذج FrmMain وما النتيجة ؟

طيب تلميح أخر يبدو اننى لم اضع الوصف المناسب حتى تعمل القاعدة بشكل طبيعى لابد ان يتم فتح نموذج FrmMain فعند نسخ القاعدة لاى جهاز اخر سوف تقوم بفتح نموذج FrmNotReg بدلا من النموذج الرئيسيى واعتقد ان هذا ما حدث معكم اساتذتى الكرام منتظر رد حضراتكم تلميح آخر لم يتم وضع القاعدة بتلك الطريقة كنوع من تحدى او اثبات استحالة الفتح.. فقط تجربة الفكرة ببساطة يسهل كسر الحماية فى هذه الاونة بكل سهولة للمحترفين وفى النهاية اعلم انه ليست هناك حماية مطلقة.. ولكن هذا الجزء الأول وسوف ارتقى فى الافكار بناء على نجاح التجارب تدريجيا للوصول الى درجة احترافية ان شاء الله تناسب من يريد تأمين عملة بالقدر الكافى فى انتظار رد اساذتى الكرام استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr استاذى الجليل ومعلمى القدير الباش مهندس @Eng.Qassim

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

السلام عليكم ورحمة الله وبركاته بناء على طلب احد الاحباب هذا العمل للتجربة اولا برجاء فتح القاعدة وموافتى بالاتى هل تم فتح القاعدة بشكل طبيعى أم أنه طلب منكم وضع رقم ترخيص لتشغيل القاعدة طيب فى حالة طلب رقم الترخيص من فضلك انسخ رقم الـ Activation Number من النموذج من خلال زر الامر Copy وقم بلصقه هنا فى مشاركة للتأكد من فاعلية الفكرة سوف أرسل لكم رقم ترخيص License Number لفتح القاعدة وبعد ذلك سوف تعمل بنجاح الى ان يتم نقلها لجهاز اخر وستتوقف عن العمل ولن يتم فتحها بنفس الرقم السابق والذى أرسلته اليكم ملاحظة رقم الترخيص يتغير من جهاز لاخر يعنى الشخص الذى سوف ارسل لع رقم الترخيص يخص جهازه الحالى فقط ولن ينفع مع شخص غيره ممكن نجرب سويا Anti Copy 3.zip

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