نجوم المشاركات

السلام عليكم و رحمة الله تعالى و بركاته إخوتي الكرام حياكم الله و تقبل الله منا و منكم الصيامكم و القيام أضع بين أيديكم طريقة إنشاء نسخة تجريبية و حمايتها و قابلية تفعيلها و كل هذا بتوظيف الرجستري. خصائص البرنامج: 1- يكتشف إرجاع التاريخ 2- حتى لونزلت نسخة ثانية بعد إنتهاء التفعيل أو إنتهاء النسخة التجريبية فلن تعمل لأن الحماية مخزنة بالرجستري 3- رقم التفعيل يتغير من يوم إلى آخر حسب التاريخ 4- تستطيع تفعيل البرنامج بعد إنتهاء التفعيل بنفس النسخة 5- يحذف البرنامج الجدول الذي به رقم النسخة و كود الحماية مباشرة بعد أول تشغيل 6- يعطيك في أول تشغيل فترة تجريبية تحددها انت كما تشاء 7- رقم التفعيل مخبأة في مكان بالرجستري لا يمكن الحصول عليه هذا هو المرفق و أتمنى من الأعضاء أن يقوموا بتجربة المرفق و إعطائنا النتائج و من بعدها نقوم بشرح أكواد البرنامج: فترة تجريبية1.rar

شرح البرنامج: 1- يتعامل البرنامج مع الرجستري في حماية النسخة ( الريجستري عباره عن قاعدة بيانات في نظام التشغيل Windows .و يحتوي على معلومات أجهزة النظام و البرامج المثبتة والإعدادات، و بيانات حسابات المستخدمين على الكمبيوتر. و أي عملية تقوم بها على الجهاز تخزن بالريجستري . ) 2- عند أول تشغيل للبرنامج يقوم بحفظ تاريخ أول يوم للاستخدام و عدد أيام النسخة التجريبية و خوارزمية التفعيل كلها في الرجستري و يحذف الجدول الذي يحمل جميع البيانات بعد نقلها و حفظها بالرجستري. 3- للإطلاع على الجدول tbl الذي يشتمل المعلومات المهمة يجب عليك فتح البرنامج في وضع التصميم دون تشغيله لأنه عند أي تشغيل للبرنامج سوف يحذف الجدول و في حال لم تجد الجدول حمل نسخة أخرى من البرنامج. 4- اسم الحقل الذي يحدد مدة الفترة التجريبية هو nemberday 5- كل مرة تقوم بتشغيل البرنامج يقوم بحفظ التاريخ و الوقت الحاليين في الرجستري لمنع التلاعب بالتاريخ. 6- لحفظ قيمة بالرجستري نستخدم الكود التالي: SaveSetting AppName , Section, Key ,Setting appName اسم المجلد الرئيسي Section القسم KEY المفتاح Setting القيمة المراد تخزينها 7- لاستعادة القيمة من الرجستري نستخدم الكود التالي: dim X X = GetSetting(AppName , Section, Key) X هو الذي سوف يأخذ القيمة التي سوف نستدعيها 8- لحذف القيمة من الرجستري نستعمل الكود التالي: DeleteSetting AppName , Section, Key 9- و هذه هي الوحدة النمطية التي إستعملتها في البرنامج: Function salah(frm1 As String, frm2 As String, frm3 As String) 'On Error Resume Next Dim firstdate As Date Dim lastdate As Date Dim lasttime As Date Dim expdate As Date Dim nameschool As String Dim numschool As Double Dim khawarezmia As String Dim nember_days As Integer '-------------------------------------------------------------------- firstdate = GetSetting("aa", "bb", "firstdate", Nz(firstdate)) If firstdate = Empty Then SaveSetting "aa", "bb", "firstdate", Date End If firstdate = GetSetting("aa", "bb", "firstdate", Nz(firstdate)) '--------------------------------------------------------------------- lastdate = GetSetting("ss", "tt", "lastdate", Nz(lastdate)) If lastdate = Empty Then SaveSetting "cc", "dd", "lastdate", Date End If lastdate = GetSetting("ss", "tt", "lastdate", Nz(lastdate)) '--------------------------------------------------------------------- lasttime = GetSetting("zz", "hh", "lasttime", Nz(lasttime)) If lasttime = Empty Then SaveSetting "ee", "ff", "lasttime", Now End If lasttime = GetSetting("zz", "hh", "lasttime", Nz(lasttime)) '--------------------------------------------------------------------- nember_days = GetSetting("mm", "nn", "nember_days", Nz(nember_days)) If nember_days = Empty Then nember_days = 1 End If expdate = DateAdd("d", nember_days, firstdate) '--------------------------------------------------------------------- khawarezmia = GetSetting("gg", "pp", "khawarezmia", Nz(khawarezmia)) If khawarezmia = Empty Then numschool = DLookup("numscho", "tbl") SaveSetting "ii", "jj", "numschool", numschool khawarezmia = DLookup("khawr", "tbl") khawarezmia = Replace(khawarezmia, "numschool", numschool) SaveSetting "gg", "pp", "khawarezmia", khawarezmia nameschool = DLookup("namescho", "tbl") SaveSetting "kk", "ll", "nameschool", nameschool nember_days = DLookup("nemberday", "tbl") SaveSetting "mm", "nn", "nember_days", nember_days End If For Each ttable In CurrentData.AllTables If ttable.Name = "tbl" Then DoCmd.DeleteObject acTable, ttable.Name End If Next If Date < lastdate Then MsgBox "تاريخ الجهاز خاطئ" DoCmd.Quit Else If Date = lastdate And lasttime > Now Then MsgBox "ساعة الجهاز خاطئة" DoCmd.Quit End If If Date >= expdate Then MsgBox "إنتهاء مدة التفعيل عليك الإتصال بالمبرمج " SaveSetting "mm", "nn", "nember_days", 1 DoCmd.OpenForm frm3 DoCmd.Close acForm, frm1 Else SaveSetting "zz", "hh", "lasttime", Now SaveSetting "ss", "tt", "lastdate", Date nt = DateDiff("d", Date, expdate) MsgBox "بقي لك " & nt & " يوم على إنتهاء التفعيل" DoCmd.OpenForm frm2 DoCmd.Close acForm, frm1 End If End If End Function 10- و هذا الكود الخاص بإعادة التفعيل: numschool = GetSetting("ii", "jj", "numschool", Nz(numschool)) '--------------------------------------------------------------------- khawarezmia = GetSetting("gg", "pp", "khawarezmia", Nz(khawarezmia)) '--------------------------------------------------------------------- nameschool = GetSetting("kk", "ll", "nameschool", Nz(nameschool)) '--------------------------------------------------------------------- nember_days = GetSetting("mm", "nn", "nember_days", Nz(nember_days)) '--------------------------------------------------------------------- If Me.numero_act = Eval(khawarezmia) Then SaveSetting "mm", "nn", "nember_days", 140 nember_days = GetSetting("mm", "nn", "nember_days", Nz(nember_days)) DeleteSetting "aa", "bb", "firstdate" DeleteSetting "ss", "tt", "lastdate" DeleteSetting "zz", "hh", "lasttime" MsgBox "لقد تم تفعيل برنامجك لمدة" & nember_days & " يوما" salah Me.Name, "drm", "نموذج1" Else MsgBox "رقم التفعيل خاطئ" End If و هذا هو البرنامج مفتوح المصدر بصيغة 2010 و 2003 فترة تجريبية.rar فترة تجريبية2003.rar

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

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

تفضل اخى الكريم الفكرة فى الموضوع انك بتضع الكود الموجود بالزر فى حدث بعد التحديث لاختيارك وبالتالى يتم تنفيذ الكود بعد كل اختيار انظر المرفق genexam2.rar

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

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

بسم الله الرحمن الرحيم اولاً الشكر كل الشكر الى اساتذتى الكرام الذى بفضلهم وصل المشروع الى هذا الحد وبالاخص : استاذ : جعفر لك جزيل الشكر استاذ : ابو عبدالله لك جزيل الشكر استاذ : شيفان لك جزيل الشكر استاذ : ابو خليل لك جزيل الشكر شرح العمل ببساطة يقوم المستخدم باختيار الالوان التى يريدها من نموذج color وتطبق على جميع البرنامج فقط قم باستدعاء هذه الداله فى حدث عند التحميل Call Color_V(Me) وسوف تقوم هى بضبط الاعدادات قم بستدعاء الوحدات النمطية والجدول الخاص بالتخزين الاكواد و النموذج الى برنامجك دون تعديل ويتوفر بالاصدارين لـ2010 و لـ2003 ونتمنى من اساتذنا ان يقوموا بتعديله حتى يصبح برنامج كبرنامج مسقط التقارير او القلعة ولا اسألكم سوي الدعاء Color 2010.zip Color2003.zip

اخوتي اعضاء المنتدى كما يعلم الجميع فإنه يتم الحكم على كفاءة اي برنامج من خلال مخرجاته أي تقاريره ومن يعمل في اكسس يلاحظ جمود تقاريره مقارنة بتقارير اكسل لذا فقد اخذت الكثير من الوقت في تصميم تقارير مرنة تشمل اهم الافكار المطلوبة في التقرير وكنت قد وضعتها في تقرير واحد بهدف رفعه للمنتدى ولكني رأيت ان ذلك يمكن ان يصعب على الأعضاء فهم الطريقة . لذا قررت ان اجعل المثال يحتوي على تقريرين . الأول : يوضح طريقة رسم الحدود وتحديد سجلات الصفحة والإقفال بعد آخر سجل . الثاني : يشمل جميع الأفكار . أرجو أن ينفع الله بهذا المثال كل طالب علم ... ملحوظة : المثال يحتوي على 80 سجل وتم تحديد عدد سجلات الصفحة 20 سجل لذا عند فتح التقرير سيطلب منك تحديد عدد السجلات المطلوبة لذا للتعرف على المثال بشكل واضح جرب تحديد عدد (5 و 20 و 21 و 40 و 45) على التوالي ولاحظ كيف سيظهر التقرير في كل مرة اسأل من الله الأجر والدعاء من كل من إستفاد من هذا العمل تحياتي,,, التقارير.rar

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

rrrrrr.rar

شكرا استاذ محمد علي سعة صدرك

السلام عليكم ورحمة الله تعالى وبركاته اقدم هذا الموضوع وهذه المشاركة بناء على سؤال فى هذا الموضوع اتأخرت فى الرد على الرغم من انى كان ممكن ارد فى اقل من عشر دقائق الا اننى احببت عمل مصال شامل وكاف وواف 1- الفرز تصاعديا او تنازليا لكل حقل على حده 2- تصفية السجلات بناء على قيمة مربع تحرير وسرد 3- امكانية التصفية المتعدده بناء على اكثر من قيمة من امثر من مربع تحرير وسرد 4- الغاء تصفية السجلات وعرضها جميعا والان اترككم مع المرفق مثال شامل على طريقة الفرزتصاعديا وتنازليا والتصفيه .rar

في البداية سبب الخطأ هو القيمة Null وهي موجودة لديك في حقول مستخدمة بالمعادلة الحسابية رصيد بعد الحركة وبعد ازالتها من الحقول التالية item in out اشتغل الكود طبعا القيم السالبة في رصيد بعد الحركة نظرا للسجلات المفقودة الخاصة بالاضافة لبعض الأصناف والتي يجب أن تكون في بداية كل صنف New up2.rar

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

افعل ما يحلوا لك ولكن رجاء لو حضرتك طلبت منى شئ ارجوك لو انا نسيت فضلا وكرما وليس امرا ذكرنى

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

السلام عليكم ورحمة الله تعالى وبركاته اختنا الكريمة @ام ناصر اعتذر عن وجود خطأ فى المرفق السابق حيث كنت على عجلة من امرى تم بحمد الله تعالى الانتهاء من اعادة التكويد مرة اخرى بعد ترتيب افكارى وبفضل الله تعالى تمت التجربة بنجاح الميزات - فى حالة عدم وجود تاريخ بداية الفترة المستحقة تظهر رسالة تفيد بذلك -فى حالة عدم وجود تاريخ نهاية الفترة المستحقة تظهر رسالة تفيد بذلك -فى حالة ان التاريخ الذى تم ادخاله فى النموذج عن بداية الفترة المستحقة غير موجود فى جدول الــ Salary تظهر رساله ايضا تفيد بذلك -فى حالة ان التاريخ الذى تم ادخاله فى النموذج عن نهاية الفترة المستحقة غير موجود فى جدول الــ Salary تظهر رساله ايضا تفيد بذلك هذا فى وجود اخطاء تتعلق بتواريخ بداية وهاية الفترة المستحقة وفى حالة عدم وجود اى اخطاء تتم عمليات الاضافة بنجاح - تظهر رسالة تفيد بنجاح عملية الاضافة وعدد سجلات الاضافة -فى حالة اضافة حسب كود موظف محدد لو لم يتم اختيار كود الموظف تظهر رسالة تفيد بذلك وعندما يتم اختيار كود الموظف تظهر رسالة سؤال هل تريد اضافة بيانات الموظف باسمه اترككم مع التجربة واتمنى ان شاء الله تعالى ان تستمعوا بهذا العمل المتواضع update v2.rar

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

شكرا لك یا أخی فی الله: لقد استفدت منك كثیرا، ولكن لا تحرم أخیك الصغیر بعلمك ومعلوماتك، عندما نستزیدك. لا أعرف كیف أعبر عن شكری، ولكن یكفیك ما قاله رسول الله -صلی الله علیه واله وسلم-: إذا مات ابن آدم انقطع عمله إلا من ثلاث: صدقة جارية، أو علم ينتفع به، أو ولد صالح يدعو له، رواه مسلم عن أبی هریرة -رضی الله عنه-. أخوك: هاوڕێ أحمد گوڵ، من كوردستان العراق! واسف علی تعبیری اللغوی، لانی فقط أعرف القلیل منه.

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

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

السلام عليكم ما تريده هو تنسيق شرطي بالتقرير ويتم عن طريق اختيار كافة السجل الخاص بالموظفين في التقرير بوضع التصميم وهي مربعات نصية ثم من تبويت Format ومن المجموعة Control Formatting اختر Conditional Formatting

السلام عليكم جرب المرفق علة المطلوب ده‌رمان.rar

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

وعليكم السلام ورحمة الله وبركاته حييت ابانادر وكل عام وانتم بخير تفضل تم التعديل اتمنى ان يحقق المطلوب ejazat2.rar

السلام عليكم شكراً جزيلاً اخى ناصر على دعائك الطيب جزاك الله خيراً وجزاك خيراً اخى حسين كل عام وحضراتكم بخير

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

السلام عليكم استعمل هذا الكود في حدث بعد التحديث لمربع نص التاريخ: Dim a As Integer, b As Integer Me.äÕ6 = "01-" & Format(Me.m5s1, "mm/yyyy") a = Format(Me.m5s1, "mm") If a = 4 Or a = 6 Or a = 9 Or a = 11 Then b = 30 ElseIf a = 2 Then If Format(Me.m5s1, "yyyy") Mod 4 = 0 Then b = 29 Else b = 28 End If Else b = 31 End If Me.äÕ8 = b & "-" & Format(Me.m5s1, "mm/yyyy") و هذا هو التعديل على المرفق: fffc.rar

أولا جزاك الله خير الجزاء صديقي العزيز شفان على هذا الدعاء و على كل هذه الملاحظات ما شاء الله عليك مشيت معها كلها تمام. هنا يستطيع المبرمج تحديد مدة النسخة التجريبية من خلال الجدول tbl الموجود مع القاعدة و بالضبط في حقل nemberday و أنا هنا وضعت رقم 1 و تستطيع تغييره كما تشاء. نعم وجربت انا انا غيرت تاريخ الجهاز الى قبل ان افتح القاعدة ظهر معي رسالة بأن خطأ في تاريخ الجهاز وهذا جيد لكن .... كن معي بعد قليل " في الاسواق " بالإضافة إلى إكتشاف إرجاع التاريخ هو يكتشف أيضا إرجاع التوقيت حتى لو أنقصت دقيقة واحدة من ساعة الجهاز سوف يكتشف البرنامج ذلك. الريجستري عباره عن قاعدة بيانات في نظام التشغيل Windows .و يحتوي على معلومات أجهزة النظام و البرامج المثبتة والإعدادات، و بيانات حسابات المستخدمين على الكمبيوتر. و أي عملية تقوم بها على الجهاز تخزن بالريجستري . نعم أخي شفان أنا وضعت رقم النسخة ثابت 54321 و هذا من أجل تبسيط فهم الموضوع و التركيز على موضوع واحد و هو الحماية بالرجستري و عدم إدخال رقم الهارديسك و غيره في الموضوع. و هذه الملاحظة صديقي مهمة جدا و ممتازة شكرا جزيلا لك و بعد ما نعرف طريقة و آلية عمل هذا البرنامج نستطيع تغيير رقم النسخة من رقم ثابت إلى رقم الهارديسك مثلا لتكون حماية البرنامج مضاعفة.

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

انت عملاق حفظك الله ورعاك استاذ خالد الرشيدي وتحب الخير للجميع أحبك الله

وعليكم السلام ورحمة الله وبركاته بعد عناء كبير لحل مشكلة تحديد قيمة المخزون واكتشاف ان متوسط السعر خطأ 100% وجدت الحل والحمد لله وهو بطريقة الوارد اولا يصرف اولا وهذا الرابط به شرح وافي لتنفيذ الطريقة واعتذر لوضع رابط خارج المنتدى http://edu.arabsgate.com/showthread.php?t=631317 تخياتي

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

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

تفضل اخي العزيز ارجو ان يكون فيه طلبك سيتم اغلاق نموذج(Main) بعد دقيقة ثم بعدها بدقية ثانية سيتم اغلاق قاعدة البيانات asd.rar

هل تقصد هذا ؟ https://www.gulf-up.com/do.php?img=322660 Invoices (2).rar

تفضل المرفق التالي .. تم اضافة ملف توليد مفتاح التسجيل حماية البرنامج عن طريق رقم الهارد والمعالج واللوحة الأم_في حال نقص احدى القطع فان البرنامج يستمر بالعمل.zip

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

شاهد هذا الفيديو https://www.youtube.com/watch?v=r6KjcihBpoY

لبيك أخي ابوخليل مع اني لم استعمل واتس اب طول عمري ، ولكن لأجل عين ألف عين تُكرم ، جربت على تلفون ولدي الكود غير مكتمل ، لكنه على الطريق الصحيح: 1. يجب اتباع هذه الخطوات لجعل الهاتف يتفاهم مع الكمبيوتر ، الى الصورة التي قلت تحتها: "الآن هاتفك مهيأ للتحكم فيه من خلال البرنامج" ، 2. انزل المرفق من الرابط ، 3. في النموذج frm_Names ، اضف زر للواتس اب ، وضع الكود (الكود المرفق ، ليس الذي في الرابط) على حدث النقر وفي الكود ، بدل: "اسم او رقم الشخص" ، او اسم المجموعة ، يجب ان تكتب معلمة حقيقية ، لأن البرنامج سيعمل بحث لها ، Dim cmmd As String 'how long does it take to take the picture istart = Timer 'set BE_Path Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" Save_images_to = BE_Path & "images\" 'image capture mode cmmd = App_Location & " shell input keyevent 82" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell am force-stop com.whatsapp" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell am start -n com.whatsapp/.Main" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input text " & "اسم او رقم الشخص" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input tap 400 700" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input text " & "I am testing'" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input tap 990 1650" & "; sleep 1" Call ShellWait(cmmd, vbNormal) المفروض الكود يشتغل عن أخوي ابوخليل على طول ، لأنه جرب برنامجي في الرابط واشتغل معاه وارجو منه يعطينا النتيجة حاليا الكود عندي لا يكتب الرسالة ، ولم اجرب الارسال بعد ومضطر اترك التجربة الآن ، الى بعد حوالي 3 ساعات جعفر

جزاك الله خيرا وكما قال أستاذنا جعفر تسلم ايدك وهذه فائدة صغيرة لعلك تحتاجها بوقت ما بالإمكان استبدال أسماء أجزاء الفورم بالجملة (Section(Index)) وهذه ثوابتها : Setting Constant 0 acDetail 1 acHeader 2 acFooter 3 acPageHeader 4 acPageFooter ويتحول الكود الى هذا الشكل frm.Section(0).BackColor = Color_Bu_D frm.Section(1).BackColor = Color_He_D frm.Section(2).BackColor = Color_fo_D

اخ وائل الموضوع سهل في طلبك ولكن انا كنتافكر كيف يظهر التقرير او الاستعلام الجدولي عالعموم هذا حسب طلبك الاخير Private Sub week_1_Click() Me.from = DateSerial(Year(dat), Month(dat), 1) Me.to = DateSerial(Year(dat), Month(Date), 7) End Sub Private Sub week_2_Click() Me.from = DateSerial(Year(dat), Month(dat), 8) Me.to = DateSerial(Year(dat), Month(dat), 14) End Sub Private Sub week_3_Click() Me.from = DateSerial(Year(dat), Month(dat), 15) Me.to = DateSerial(Year(dat), Month(dat), 21) End Sub Private Sub week_4_Click() Me.from = DateSerial(Year(dat), Month(dat), 22) Me.to = DateSerial(Year(dat), Month(dat) + 1, 0) End Sub بالتوفيق

تم تجربة الفورم يعمل بدون أية مشاكل تفضل للتجربة OK_OK_OKشئون الموظفين.zip

تفضل اخي الكريم والموضوع ليس توسلا اخي الكريم ولكن اعذر الجميع فالكل يشارك حسب وقته وانت تعلم ضغوط الحياة هذه الايام فالكل يشارك هنا اخي الكريم لوجه الله فنحن اخوة في الله اخي الحيب تقبل خالص تحياتي ***** عذرا لم اري والله مشاركة الاخ الكريم / عبد الرحيم .... جزاه الله خير .. الا بعد الرد ... واظن انها تفي بالغرض ******** شئون الموظفين بالرقم القومي.rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة برنامج ادارة شؤون الموظفين و مشاركة اخرى محترفين فقط (أدخل) للزوار أحصل على (هدية) تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير مرفق الملف و الشرح ____________________3.rar ____________________________.rar و مشاركة اخرى من اعضاء المنتدى مرفق الملف و الشرح __________________________________.rar و لا تنسونا من صالح الدعاء تحياتى

لسة مصممه حالا اتفضل لو عجبك اضغط like شئون موظفين بسيط.rar

يتمثل حساب رصيد الاجازات الاعتيادية فى مجموع العناصرالاتية وعلى أخر مفردات المرتب عند الاحالة أوالوفاه (( المرتب الاساسى + الـــ 5 علاوات + العلاواتين الاجتماعة والاضافية )) ÷ 30 × عدد الايام المتبقية بعد استبعاد ال 120 يوم " المرحلة الاولى " فرضا الرصيد الكلى 820 يوم " المرحلة الثانية بحكم قضائى " مطروحا من الـــ 120 يوم " المرحلة الاولى عند الاحالة أو الوفاه " صافى الرصيد = 700 يوم الاساس = 751.29 ع 2007 = 71.90 ع 2008 = 156.61 ع 2009 = 56.44 ع 2010 = 60.85 ع 2011 = 104.53 ع اجتماعية = 4 ع اضافية = 6 الاجمالى = 1211.62 مايتوجب صرفه = 1211.62 ÷ 30 × 700 = 28271.13

اخوانى و احبابى اعضاء المنتدى الكريم السلام عليكم و رحمة الله و بركاته يسعدنى ان اقدم لكم برنامج شامل و كامل لعملية استيراد ملفات الاكسل الى قواعد البيانات اكسس خطوات عمل البرنامج 1- قم بالضغط على زر فتح الفولدر و اختر ملف الاكسل المراد استيراده و بعد اختيار الملف يمكنك فتح الملف من داخل الاكسس بالضغط على زر ( فتح ملف اكسل) 2- قم بالضغط على الكمبو بكس لاختيار ورقة العمل 3- الخطوة رقم 3 خاصة بانشاء جدول جديد لورقة العمل فيجب عليك وضع اسم للجدول ثم اضغط على زر تنفيذ ليتم استيراد ورقة العمل و لعرض بيانات الورقة بعد الاستيراد فى الجدول قم بالضغط على زر عرض و اذا اردت الدخول على وضع التصميم اضغط زر تصميم و اذا اردت حذف الجدول قم بالضغط على زر حذف 4- الخطوة رقم 4 خاصة بوجود جدول تم انشاؤه من قبل و تريد اضافة بيانات الورقة اليه قم بالضغط على الكمبو بكس و اختر الجدول المراد اضافة بيانات الورقة اليه ثم اضغط على زر تنفيذ لعرض الجدول الذى تم اختياره فى الكمبو بكس اضغط على زر عرض و لعرض الجدول فى وضع التصميم اضغط على زر تصميم و لحذف الجدول اضغط على زر حذف ** لرؤية جميع الجداول فى اطار الاكسس اضغط زر اظهار جميع الجداول ** لاخفاء جميع الجداول و اطار الاكسس اضغط على زر اخفاء جميع الجداول و فى الختام لكم منى كل تحية و تقدير اخوكم / علاء الدين محمد النكلاوى مصر - البحيرة ت: 3803009/045 neklawy1968@yahoo.com excel_to_access.rar

السلام عليكم ورحمة الله وبركاته ، اخي الفاضل tameromar ، بارك الله فيك ونفع بعلمك اخوانك المسلمين في كل مكان ... آمين الرجاء الاستمرار في الحلول الابداعية والذكية