أبو آدم

نتمنى عليك اخي العزيز ان تبدأ بشيئ يستطيع الاخوة البناء عليه وتقديم المساعدة او المقترحات شكرا

قيد العمل حسب التفرغ أعذرني

لا فضل لنا ، الفضل كله لله وما نسعى الا لأجر من الله ومثوبة من عنده

أحسن الله اليك ابو صلاح ............. صحيح مسلم / كتاب الوصية / باب ما يلحق الإنسان من الثواب بعد وفاته - 1631

لعموم الفائدة : زراعة ملف ( مخفي ) في الجهاز لأغراض الحماية ..... http://www.officena.net/ib/index.php?showtopic=54499

عند تحميل النموذج الرئيسي تتم الاجراءات التالية إظهار الملف المخفي ، كي يتمكن التطبيق من البحث عنه HideUnhideFile "C:\Program Files\AccTxt\123.txt", True اذا كان الملف غير موجود سواء أكان السبب عدم وجوده أصلا أو تغيير اسمه او تغيير اسم المجلد تظهر رسالة بذلك ويتم اغلاق التطبيق If Len(Dir("C:\Program Files\AccTxt\123.txt")) = 0 Then MsgBox " التطبيق ضمن مسار غير مصرح به من مدير النظام" & vbNewLine & " أتصل بمدير النظام ", vbCritical, "خطأ في مسار النظام " DoCmd.Quit وحال وجوده يتم تشغيل النظام و إشعار المستخدم ( إن شئت ) بذلك يتم إعادة إخفاء الملف HideUnhideFile "C:\Program Files\AccTxt\123.txt", False

الكود الذي يتحكم باخفاء واظهار الملف المزروع Sub HideUnhideFile(strFilespec As String, blnShowFile As Boolean) '**************************************** 'By Nart Lebzo ... www.officena.net 'compiled at 24/06/2014 : Amman - Jordan '**************************************** On Error GoTo Errhandler Dim fso As Object Dim fi As Object Set fso = CreateObject("Scripting.FileSystemObject") Set fi = fso.GetFile(strFilespec) If blnShowFile Then fi.Attributes = fi.Attributes And (Not vbHidden) Else fi.Attributes = fi.Attributes Or vbHidden End If Errhandler: Select Case Err Case 53: ' Error 53: "file not found" ' MsgBox "The specified path is not found." Case 0: Case Else: ' An error other than 53, 0 has occurred. ' Display the error number and the error text. MsgBox "Error # " & Err & " : " & Error(Err) End Select End Sub

بعد اجراء اللازم وتشغيل النظام وتجاوز الحماية ، يظهر النموذج ، جعلت خلف زر الامر Show Hidden كود لإظهار الملف ، وبعد النقر عليه ، يمكنك الذهاب للمجلد الهدف لتجد ملف 123 قد أصبح ظاهرا وليس مخفيا . HideUnhideFile "C:\Program Files\AccTxt\123.txt", True

ارفق لكم التطبيق مع التأكيد على ضرورة نقل المجلد المرفق بالتطبيق للمسار المحدد كي يعمل بشكل صحيح ويمكن لكل منكم تعديل الكود ونقل الملف للمسار الذي يراه مناسباً ، وحسب رغبته ، ولكنني آثرت استخدام هذا المسار كونه يحقق الغايات المرجوة منه فعند اعادة التنصيب سيفقد هذا الملف ، ومعظم المستخدمين لا يقتربون من المجلد المختار Program Files جربوا ووافوني بالنتائج والله من وراء القصد ... NA_HiddenTextFile.rar

حياك الله أخي عبدالرحمن هاشم نسعى دوماً للأجر والثواب من رب العباد ، ومن ثم عموم الفائدة لكافة إخوتنا و ابنائنا الطيبين ......

إخوتي الفضلاء كانت لي مساهمة مع الاخ حسين العربي بخصوص مسار التطبيق وحماية التطبيق بقراءة هذا المسار بالكود ... http://www.officena.net/ib/index.php?showtopic=54485 وتطور النقاش لنصل لمحور حماية جديد يتمثل بالطريقة المعروفة بزراعة ملف في الجهاز وفي مكان محدد ، للبحث عنه وتفقده قبل تشغيل النظام وفي حال العثور عليه يتم تشغيل النظام ، وخلاف ذلك يتم اشعار المستخدم بوجود خطأ رئيسي يتمثل بخلل يتعلق بفقدان هذا الملف وبالتالي الخروج من التطبيق واشعرنا الاخ حسين بانه قد هدي لتطبيق الفكرة بفضل من الله وحيث انني كنت قد بدأت بالتطبيق لأجيب على تساؤله ، رأيت ان اعدل به قليلاً بفكرة راودتني تتمثل باخفاء ملف text في مكان ما من الجهاز وتحريك مسألة الحماية حول هذا الملف ( المخفي ) ، وفكرة الاخفاء تهمني لغايات ابعاد هذا الملف عن الايدي العابثة ، او الخطأ المتمثل بحذف الملف ، وتنحصر الامور هنا غالبا بما بقي من الاحتمالات القائمة لضرورة الحماية ، ومنها إجراء اعادة تنصيب لنظام التشغيل ( الويندوز - فورمات ) ، ومنها أيضا نقل التطبيق بدون علم المبرمج او مدير النظام لجهاز آخر ، وحيث ان المستخدم لا يعلم بشأن هذا الملف المخفى ، ولا يراه بالعادة ، فلن يقوم بنقله و التعامل معه وبالتالي يتوقف النظام عن العمل ، ويضطر المستخدم للرجوع لمدير النظام او المبرمج سيحمل المرفق ملف التطبيق و مجلد باسم AccTxt يحتوي على ملف مخفي باسم 123 يتم نسخ هذا المجلد او قصه ولصقه على القرص c في المجلد Program Files وبذلك يصبح مسار ملفنا المخفي هو C:\Program Files\AccTxt\123.txt وللحديث بقية ... ...........

الحمد لله الذي بفضله تقضى الحاجات عموماً سارفق تطبيقا به فكرة خطرت ببالي وهي قيد التطبيق تقريبا انتهيت من التطبيق و سأجعله في موضوع جديد إن شاء الله ......

هل تود تجربة طريقة زراعة ملف في الجهاز ؟

أخي حسين يمكن استخدام نفس الفكرة ( من باب الحماية ) بحصر امكانية تشغيل النظام حال وجوده في مسار محدد وقرص محدد ، وحال تغيير المسار او القرص يعترض النظام ويتم اغلاق التطبيق وحسب المرفق ضع التطبيق المرفق مباشرة على القرص c وجرب التشغيل انقل التطبيق للقرص d او ضمن اي مجلد في القرص c وجرب التشغيل جرب ووافني بالنتيجة والله من وراء القصد NA_Rootexample.rar

أخي حسين حسب ما فهمت الكود فهو ليس لتحديد مسار البرنامج ، وانما هو للبحث عن ملف مزروع في مكان محدد من الجهاز ( لغايات الحماية ) نقوم باستدعاء الملف و البحث عنه ، وحال العثور عليه يتم تشغيل النظام ، وخلافا لذلك يتم الخروج من النظام

لم يتيسر لنا أن نجد لهذه الحكاية أي أثر في كتب العلماء المعتبرين ، ولم نقف لها على سند معتبر أو غير معتبر، ولا نعلم حقيقة مصدرها ، ولكنها إنتشرت على كثير من المواقع الإلكترونية . وهي عموما مجرد حكاية على كل حال ، تروى فلا تصديق ولا تكذيب ، وغالب ظني ( والله أعلم ) أنها من الإسرائيليات التي جاز لنا حكايتها مع عدم الجزم بوقوعها من عدمه . أما إن حكيت قصصاً بقصد العبرة ، وأريد بها أن الله تعالى يُقدّر الخير للمؤمن من حيث لا يحتسب ، ومن حيث يظن العبد - بالأمر- شراً له ، فهذا المعنى وارد و صحيح ، وله كثير من الشواهد من الكتاب والسنة ، ومنها قوله تعالى : (وَعَسى أَنْ تَكْرَهُوا شَيْئاً وَهُوَ خَيْرٌ لَكُمْ وَعَسَى أَنْ تُحِبُّوا شَيْئاً وَهُوَ شَرٌّ لَكُمْ وَاللَّهُ يَعْلَمُ وَأَنْتُمْ لا تَعْلَمُونَ) البقرة/216 والله أعلم

هناك أمثله كثيرة في المنتدى ومنها مثلا ( لا حصراً ) ... http://www.officena.net/ib/index.php?showtopic=49019

أخي العزيز هذا من خصائص الحقل ولا يلزم استخدام اي حدث يجرى تنظيم التسلسل الرقمي وفق خاصية running sum للحقل

حقل غير منضم في التقرير في خصائص الحقل : control source ( = 1 ) و running sum ( over all) يعطيك تسلسل كما وصفت باذن الله

قيد النظر

اخي حسين حبذا لو تشارك اخوتك بالحل عموما للفائدة

أمثلة تطبيقية ترتيب الأحداث لعناصر التحكم في النماذج نقل التركيز إلى عنصر تحكم عند نقل التركيز إلى عنصر تحكم في نموذج ، أوعن طريق فتح نموذج يحتوي على واحد أو أكثر من عناصر التحكم النشطة ، أو عن طريق نقل التركيز إلى عنصر تحكم آخر في نفس النموذج ، فإن أحداث Enter و GotFocus ، تحدث بالترتيب التالي : Enter > GotFocus عند فتح النموذج ، الأحداث Enter و GotFocus تحدث بعد الأحداث المتوافقة مع فتح النموذج (مثل فتح ، وتنشيط ، والحالي -- Open, Activate, and Current) ، على النحو التالي : Open (form) > Activate (form) > Current (form) > Enter (control) > GotFocus (control) عندما يفقد عنصر تحكم في نموذج التركيز ، أو عن طريق إغلاق نموذج يحتوي على واحد أو أكثر من عناصر التحكم النشطة ، أو عن طريق نقل التركيز إلى عنصر تحكم آخر في نفس النموذج ، فإن أحداث Exit و LostFocus ، تحدث بالترتيب التالي : Exit > LostFocus عند إغلاق النموذج ، الأحداث Exit و LostFocus تحدث قبل الأحداث المتوافقة مع إغلاق النموذج (مثل إلغاء، تنشيط، وإغلاق -- Unload, Deactivate, and Close)، على النحو التالي: Exit (control) > LostFocus (control) > Unload (form) > Deactivate (form) > Close (form)

ترتيب الاحداث الإجراء الواحد ، مثل الانتقال من عنصر تحكم في كائن إلى عنصر تحكم آخر ، يستطيع إطلاق عدة أحداث مختلفة ، والتي تحدث في تسلسل معين . معرفة متى تحدث الأحداث وبأي ترتيب تحدث أمر مهم ، لأنه يمكن أن يؤثر على " كيف ؟ " و " متى ؟ " يتم تشغيل وحدات الماكرو أو إجراءات الأحداث. ملاحظة : يعرض برنامج Microsoft Office Access أسم الحدث بشكل مختلف قليلا في محرر Visual Basic مما هو عليه في صفحة الخصائص ومنشئ الماكرو . على سبيل المثال ، حدث On Got Focus في صفحة الخصائص للنموذج وفي منشئ الماكرو يسمى GotFocus في محرر Visual Basic. وفي الأمثلة القادمة ( بإذن الله ) هنا نستخدم فيها تنسيق أسماء الحدث في المستخدمى في Visual Basic for Applications VBA

تنويه : يتم تعديل العنوان لبيان الدلالة ، بعد توثق السائل من النتيجة ، وتحقيق الغاية .

أخي سيف لديك : استعلام لاحصاء المعلمين استعلام لاحصاء الطلاب استعلام لاظهار المجاميع للاستعلامين أقترح : استبدال الاستعلامات الثلاثة باستعلام واحد مبني على الجدول ، في العامود الأول للاستعلام الجديد ، أكتب Students: Count(IIf([I01_Name]="طالب",0)) في العامود الثاني أكتب Teachers: Count(IIf([I01_Name]="معلم",0)) جرب ووافني بالنتيجة ملاحظة : تم الرّد بعد التجربة و التنفيذ استخدام iif مع count والله من وراء القصد