Aliko

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

@Shivan Rekanyمن رخصتك اخي شيفان حاولت ارفع قاعدة البيانات لكن حجمها كبير جدا غير مسموح لكن اذا تقدر تعدل على هذا الش البسيط مثال اخفاء شاشة الاكسس.rar

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

استاذ شفان @Shivan Rekany تحياتي لك والله ابداع الله يحفظك سؤال هل يمكن ان احصل على رقم المذربورد فقط من دون حروف انكليزية ؟

يجب ان تفتح قاعدة البيانات بوضع التصميم اخي

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

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

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

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

في اي حل حتى اقدر ان اظهر الاستعلام استاذ @Shivan Rekany ؟ او ما رأيك هل توجد طريقة اخرى ؟ تحياتي لك ولاستاذ ابو خليل

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

تحياتي لك استاذ @ابوخليل انا طبقت الكود هذا ولكن التقارير لاتظهر والاستعلامات ايضا تظهر النماذج فقط ؟

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

اخي يمكنك اضافة زر حفظ بصيغة بي دي اف على التقرير اللي عملته برأيي ستساعدك بعض الشي تحياتي

اساتاذتي @صالح حمادي @Shivan Rekany في حال اردت ان ادخل كود الهارد ديسك فما هي الطريقة من فضلك هذا ماوجدته حول استخراج رقم الهارديسك لمعرفة السيريال نمبر الخاص بالهاردسك Dim obj_FSO As Object, obj_Drive As Object Set obj_FSO = CreateObject("Scripting.FileSystemObject") Set obj_Drive = obj_FSO.GetDrive("c:\") 'MsgBox obj_Drive.SerialNumber SerialNumber = obj_Drive.SerialNumber Set obj_FSO = Nothing Set obj_Drive = Nothing End Sub تحياتي لكم جميعا

شكرا جزيلا لردك اخي الفاضل جاري التجربة ,,,

ممكن تجربه عليه وتعطيني رأيك فيه لانه اول ما اشتغلت عليه حدثت معي نفس المشكله وعملت ريستارت للحاسوب وبعدها رجعت شغلت البرنامج من جديد ؟

هذا برنامج الحماية والاكواد كامله

بشكرك على استجابتك لسؤالي يعني المشكلة من هذا الكود او من كود الحماية ممكن يعني ؟ سأحاول ان اغيره

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

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

استاذ @صالح حمادي اشكرك على ردك اخي الفاضل ولكني لست ذو خبره قوية جدا بحيث استطيع ان اضع كود رقم الهارد ديسك بدل رقم النسخة الثابت الموجود ضمن برنامج الحماية الخاص بحضرتك كل اللي تمكنت من الحصول عليه هو هذا الكود ولكن لا اعلم ان كان صحيح ام لا ' لمعرفة السيريال نمبر الخاص بالهاردسك Dim obj_FSO As Object, obj_Drive As Object Set obj_FSO = CreateObject("Scripting.FileSystemObject") Set obj_Drive = obj_FSO.GetDrive("c:\") 'MsgBox obj_Drive.SerialNumber SerialNumber = obj_Drive.SerialNumber Set obj_FSO = Nothing Set obj_Drive = Nothing End Sub فماذا افعل وانا اطع بمكانتك العلمية استاذي ومساعدة كل الاخوه لكي نستفاد كل الطالبين من حماية قاعدة البيانات وايضا اطلب من كل اخواني المتواجدين المساعدة بوضع بدل رقم النسخةالثابت رقم الهارد ديسك لكي تكون بالصعوبة نقترب ان نسميها حسب رأي بالجيده جدا تحياتي لكم جميعاً اخواني

دمت فخرا شكرا لردك تمت التجربه جميل جداً

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

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