ابو جودي

يا اهلا باستاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr توجيهات المعلم دائما لها طعم مختلف لذلك اتلهف اليها وانتظرها بشوق

هذا فضل الله يؤتيه من يشاء والحمد لله تعالى ان استعملنى فجعلنى سبب فى الرزق الذى ساقه اليك يارب لك الحمد حمد كثيرا طيبا طاهرا مباركا فيه .. يارب لك الحمد كما ينبغى لجلال وجهك ولعظيم سلطانك

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

بس لا تحكى للاكسس اننا ضحكنا عليه منشان لا ييزعل منا

من خلال محرر الاكواد يتم طبع السطر الاتى DoCmd.RunCommand acCmdWorkgroupAdministrator تم استدعاءه المستخدمين من واقع الملف الناتج الذى يحمل امتداد MDW من خلال الدخول الى محرر الاكودا فى الجزء Immediate كما فى الصورة بعد الضغط من لوحة المفاتيخ على زر الادخال Enter يتم فتح مربع حوارى ومن خلال اختيار الاستعراض يتم تحديد مكان الملف دى الطريق الصعبة الطريقة التى افضلها شورت كت للقاعدة ووضع هذا السطر فى الــ Target "C:\Program Files (x86)\Microsoft Office\root\Office16\MSACCESS.EXE" "D:\xxx\zz.mdb" /WRKGRP "C:\Secur\اسم الملف.mdw" مع مراعاة التأكد من المسار لكل من نسخة الاوفيس لملف الاكسيس مساار قاعدة البيانات مسار ملف mdw شوف خذ نسخة من قاعدة لديك وقم بتغيير اللحقة فيها من Accdb الى mdb وقم بعمل كل الخطوات وانظر لترى النتيجه هههههههههههه ممكن نضحك على الاكسس يا سيدى علشان خاطر عيونك يا سلام

-- الان السؤال الهام كيف يتم تشغيل القاعدة على اى حاسوب اخر غير الذى قمنا بعمل هذه العمليه عليه وهو ما تم التطرق اليه سابقا فى موضوع الاستاذ @عبد اللطيف سلوم

شوف الاستعلام الذى هو مصدر التقرير مررت كل ما اريد تعريبه الى الكود ArbNmbr(myData) مع تغيير muData بـــ اسم الحقل الذى اريد تغير قيمه الى العربيه ArbNmbr([FildeName]) المتغير (2) .accdb

استخراج السن فى اول اكتوبر عن طريق دالة فى الاستعلام_ update.mdb

بس كده هاهاهاهاهاهاها سهله جدا جدا جدا جدا جدا لمن يملك البرنامج الذى يقوم بكسر كلمة المرور انا لا املكه لذلك لن استطيع

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

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

اتفضل http://www.boosla.com/download.php?f=programming_with_OOP.pdf

عطلة سعيدة ان شاء الله استاذى الجليل ومعلمى القدير

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

هل من توضيح اكثر

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

اتفضل كل شئ بالعربى >>---> التاريخ الميلادى - التاريخ الهجرى - الوقت دونما التقيد بلغة النظام المتغير (1).accdb

وهذا لفتح الشيفت او اغلاقه من منتديات اوفيسنا - فتح وإغلاق شفت.mdb

طيب اتفضل يا سيدى نسخة واحدة وتعمل على كل القواعد من منتديات اوفيسنا - فتح وإغلاق شفت.mdb

والان المرفق بعد ازاله الماكرو لمنع ايقاف الشيفت او الاخفاء للاطار ليسهل الاطلاع على الكائنات وهناك حيله نسيت ذكرها استخدم فى بداية اسماء الكائنات التى لا اريد اظهارها للمستخدم العادى Usys لذلك يتعامل معها الاكسس على انها كئنات تتبع النظام فتختفى لذلك لابد من اظهار ملفات النظام المخفية اولا لترى جميع الكائنات DontCopyDB.zip

السلام عليكم اولا كل الشكـر والتقدير لمن تفضل وتكرم بالمرور والتجربة اما استاذى العزيز وأخى الحبيب الاستاذ @kanory لم ادخل سباق او تحدى انه لن يستطيع احد جلب الاكواد او فتح القاعدة كلنا نعلم تمام العلم انه لايوجد حماية مطلقة فقط قدمت افكار لمنع النسخ ليس الا اخى الحبيب واستاذى الفاضل استاذ @عبد اللطيف سلوم دعنا نفكك المرفق اولا الماكرو autoexec اذا وضعت باى قاعدة ماكرو بهذا الاسم هو اول ما يتعامل معه الاكسس لينفذ الاكواد بداخلة وفى مررفقنا هذا يحتوى اولا على ap_DisableShift() هذا السطر يستدعى كود لايقاف عمل زر الشيفت الموديول الذى يحتوى على هذه الاكواد باسم UsysmodShift السطر الثانى داخل الماكرو StartForm() هذا السطر يستدعى الكود الخاص باخفاء اطار الاكسس هذا الكود موجود داخل موديول باسم UsysmodHideAccessFream وأخيرا بعد ايقاف الشيفت وبعد اخفاء اطار اكسس فتح النموذج UsysfrmSplash فى هذا النموذج تم وضع كود عند الفتح ليمنع المستخدم من تغيير اسم القاعدة If CurrentProject.Name = "DontCopyDB.mde" And Len(CurrentProject.Name) = 14 Then Else MyNo = " - : 0123456789" MyMesg "يجب عدم تغيير إسم البرنامج لتكون قادر على تشغيله" & vbCrLf _ & "لذلك سوف يتم إغلاق البرنامج حتى يتم تصحيح الإسم أو يجب عليك الإتصال بمصمم البرنامج..", vbOKOnly, "للإتصال بالمبرمج " & MyNo DoCmd.Quit End If وهنا قمت بتغيير الامتداد فقط للتمويه من mdb الى mde وعند عداد الوقت استخدمت هذا الكود Call MacAddressDon وهذاا يقوم بالنداء على كود داهل موديول باسم UsysmodGetMacAddress وهذا الكود المستهدم بداخله Public Function getMacAddress(Optional strComputer As Variant) As String Dim oWMIService As Object Dim oMacs As Object Dim oMac As Object Dim strComp As Variant 'if no computer name is passed then use the name of the computer running the code. If IsMissing(strComputer) Then strComputer = "." End If Set oWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set oMacs = oWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration") 'Win32_ComputerSystem For Each oMac In oMacs If IsNull(oMac.MacAddress) = False Then 'Debug.Print oMac.MacAddress getMacAddress = oMac.MacAddress End If Next End Function لكل جهاز بصمة مثل اصابع ايداينا والتى لا تتشابه تستخدمها الحكومات للوصول الى اجهزة الهاكرز MacAddress ان اردت القراءة اكثر عنها https://ar.wikipedia.org/wiki/عنوان_التحكم_بالنفاذ_للوسط وحتى لا اطيل عليك فقط قمت بعمل حيلة صغيرة قمت بعمل موديول باسم UsysmodDon'tCopy من خلاله انشئ جدولا مخفيا عند الفتح للقاعدة لاول مرة يتم حفظ الماك ادرسس به مما يستوجب انك لابد ان تذهب للعميل وتعطه النسخة بعد فتحها للمرة الاولى من خلالك انت وليس قبل فتحها فاذا تم تسجيل الماك ادرس تبع جهازه انتهى الموضوع لن يتم نسخها لاننى وضعت اكواد تقوم بمقارنة الماك ادرس الحقيقى مع الموجود داخل الجدول كلها حيل يا عزيزى مجرد حيل وليست تأمين بمعنى الكلمة وكل يبدع بافكاره طبعا الماك ادرس لا يتغير بعد الفورمات ولن يفرق معه مكان وجود القاعدة طالما انها على نفس الحاوسوب تعمل اما اذا رزقكم الله باحد المحترفين مثل الاستاذ @kanory فكل ما سبق ينتهى بغضون ثوان قليلة لذا ان اعجبتك افكارى وقمت بتطبيقها لابد ان تكتب على القاعدة عند الفتح الاستاذ @kanory ممنوع الاقتراب والاستخدام من فضلك اغلق القاعدة

التعديلات التى تمت والاضافات - زر امر واحد لتسجيل الدخول / تسجيل الخروج - تحويل الاوبشن جروب الخاص بالدور الى كمبوبوكس يضفى مرونة أكثر اذا ذادت الادوار -اضاقة كمبوبوكس برقم الغرفة الان يتم من داخل النموذج الفرز والتصفية بناء على الطابق - رقم الغرفة -بأخر نموذج التسكين عدد الاسرة اجمالا وتفصيلا حسب التصفية والفرز -اخفاء اطار اكسس -توسيط النماذج -تصغير القاعدة بجوار الساعة وتغيير الايقونة كما تريد -فى حالة عدم وجود الايقونة المخصصة يتم استبدالها بايقونة الاكسس دون التقييد بنسخة الاكسس ومساره - منع الدخول الى محرر الأكواد من خلال ايقاف عمل الضغط على الأزرار Alt + F11 من لوحة المفاتيح الزبدة فى حالة فتح القاعدة عند عدم اضافة الاسرة يجبر المستخدم على اضافة الاسرة تلقائيا هى دى الزبدة لا لا لا لا لا لسة الزبدة جاية نموذج اضافة الأسرة بسهولة ومرونة بتحديد الطابق اولا قم تحديد رقم الغرفة ثم كتابة عدد الأسرة إجمالا المفترض تواجدها لهذه الغرفة ويتم لو اردت وضع 99 سرير بالغرفة دفعة واحدة الزتونه ان كانت الغرفة تحتوى على 5 اسرة واريد ان يكون مجموع الاسرة 15 يعنى نريد اضافة عدد 10 من الاسرة نكتب العدد الاجمالى 15 ههههههه نعم يضيف الفارق من الاسرة بين العدد الاجمالى الحالى والعدد الاجمالى الجديد فقط دون ادنى مشكلة مع الحفاظ على الترقيم بالالية التى وضعها معلمى الجليل واستاذى القدير و والدى الجبيب الاستاذ @ابوخليل وبهذا تم تلبية طلب اخى وحبيبى الدكتور @حلبي بعمل شاشة لاضافة اجمالى الاسرة دفعة واحدة وما سبق تعديله واضافته هو هدية منى تعديل المرفق dbskn(3).zip

قبل فترة وجيزة طلب الاستاذ @عبد اللطيف سلوم عدم نسخ قاعدة البيانات من جهاز الى اخر الان خطرت ببالى هذه الحيل ولكن لا ادرى هل تعمل فعلا ام لا برداء تدربة المرفق وافيدونى بعد التجربة هل عمل بشكل طبيعى وماذا حدث معكم من واقع تجربتكم على اجهزتكم DontCopyDB.zip

جزاكم الله خيرا كثيرا كثيرا كثيرا اذا انا انتظر مثل هذه الشهادة من والدى ولن اتلقاها الا برحابة ولا تقلق انا لا اتأثر افعل معى ما شئت وكيفما شئت

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