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

السلام عليكم و رحمة الله تعالى و بركاته إخوتي الكرام حياكم الله و تقبل الله منا و منكم الصيامكم و القيام أضع بين أيديكم طريقة إنشاء نسخة تجريبية و حمايتها و قابلية تفعيلها و كل هذا بتوظيف الرجستري. خصائص البرنامج: 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

بارك الله فيك اخي صالح مبارك عليك الشهر

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

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

rrrrrr.rar

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

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

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

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

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

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

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

وعليكم السلام ضع السطر التالي Range("a" & x + 1).Value = Range("a" & x + 1).Row - 1 بعد السطر التالي x = Range("b" & Rows.Count).End(xlUp).Row في كود زر الأمر CommandButton1 Private Sub CommandButton1_Click()

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

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

* يتم الفصل بين المتغيرات بـ ( & vbcrlf & ) * معامل الربط ( & ) يستخدم للربط بين السلاسل النصية * الثابت الحرفى ( vbcrlf ) يستخدم لإضافة رمز مفتاح الإدخال وسطر جديد. * علامة الشرطة السُفلى (_) تستخدم لكتابة الكود على أكثر من سطر إذا كان سطر الكود طويل وذلك لتسهيل قراءة الكود بمعنى ان السطر التالى هو استكمال للسطر الحالى . * Dim dcou_befor As Integer الاعلان عن متغير بهذا الاسم وذلك لمعرفة عدد السجلات قبل الضغط على الزر وتحديث الجدول باضافة سجلات عن طريق الكود التالى dcount_befor = DCount("*", "T2") - dcou_befor اسم المتغير الذى تم الاعلان عنه مسبقا DCount("*", "T2") عدد كل السجلات الموجوده فى الجدول T2 *Dim dcou_after As Integer مثل ما سبق شرحه ولكن هذه بعد الضغط على الزر وتحديث الجدول باضافة سجلات اعتذر عن وجود خلل فى طريقة حساب عدد السجلات فلم اقم بالتجربة جيدا لانى كنت على عجلة من امرى الان ان شاء الله تعالى احاول اعادة التطبيق بطريقة أخرى

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

مشاركة مع الاستاذ صالح وللاثراء لبداية الشهر اكتب التعبير في المربع الاول بداية اشهر =DateSerial(Year([m5s1]),Month([m5s1]),1) ولنهاية الشهر =DateSerial(Year([m5s1]),Month([m5s1])+1,0) بالتوفيق

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

شكري وتقديري لكم جميعا ولمروركم

اولا : ادعوا من الله العظيم ان يشفي ابوك بشفاء ليس بعده سقم ابدا اللهم البسه ثوب الصحة والعافية عاجلا غير اجل يا ارحم الرحمين اللهم اشفه اللهم اشفه اللهم اشفه اللهم امين يا رب العالمين ثانيا : اهلا بك مجددا وفرحتنا بمشاركتك وشكرا على هذه الهدية والان مع الموضوع نعم وجربت انا انا غيرت تاريخ الجهاز الى قبل ان افتح القاعدة ظهر معي رسالة بأن خطأ في تاريخ الجهاز وهذا جيد لكن .... كن معي بعد قليل " في الاسواق " 1 هذه النقطة خذت درجة ممتاز نعم وجربت بعد تفعيل النسخة قمت بتغير اي اضافة في تاريخ الجهاز ظهر معي رسالة ان انتهى مدة النسخة ويجب ان تتصل بمبرمج وقمت بادخال نفس الرقم التسجيل السابق ما قبل ذلك لان تم تغيير في تاريخ الجهاز 2 تم التجربة على ذلك وممتاز تم تأكيد على ذلك وممتاز عطيتني اوتوماتيكيا يوم واحد فقط لا اعلم شيء عن ريجيستري شكرا لك وهذا هو ملاحظاتي : 1 / عند تقديم التاريخ اي اضافة على التاريخ بخطأ وفي ذلك الوقت فتحت القاعدة .. ان الريجيستري سيأخذ من التاريخ الجهاز وعند تعديل التاريخ وفتح القاعدة بعد ذلك سيظهر الرسالة بأن تاريخ الجهاز خطأ وهذا سيؤدي الى المشاكل للمستخدم لأن * احتمال ان يتم تغيير التاريخ عن طريق الخطأ او يكون خلل في الجهاز ويتم تغير التاريخ اذن لا نقدر بعد ذلك ان نفتح القاعدة بتاريخ صحيح 2/ لان عندي الان جهاز واحد والقاعدة هو بسيغة اي سي سي اس اي لذا ما اقدرت ان اشوف الاكواد هل استخدمت رقم اخر مثلا رقم هاردديسك او معالج او لوحة الام مع العملية لان اذا ما استخدمت معه اي يعني سيكون رقم التسجيل لكل الجهاز في يوم واحد سيكون مثل البعض وهذا خطأ حسب فهمي والعلاج 1/ استخدام شرط لكي يأخذ التاريخ من قبل الريجيستري عدا اول مرة اي مثلا اذا يكون تاريخ السابق يكون اقل من تاريخ اليوم + رقم محدد من الايام حينيئذ يأخذ التاريخ من قبل الريجيستري واذا اكبر من ذلك بيظهر رسالة لتأكيد التاريخ الجهاز هل التاريخ مضبوطة ام لا اذا نعم بيأخذ التاريخ واذا لا سيغلق القاعدة حتى يتم التعديل في تاريخ هذا سيقلل من الحدوث المشاكل للمستخدم 2/ استخدم احد ارقام هارد ديسك ام معالج ام لوحة الام او مع البعض مع تاريخ هذا والله يعلم تقبل تحياتي

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

وعليكم السلام و رمضان كريم اخي الكريم في النموذج لديها مرتيين مربعيين لل (Cpu serial)و (Bios serial) الحقليين في الاسفل ليس بأمكانك ان يغيره لان هذه الارقام للكومبيوتر ستجده تلقائيا بواسطة الاكواد والمعادلة هي :- نسخ الارقام في الحقليين الاسفل ولصقهم في الحقليين الاعلى كل واحد في مكانه

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

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

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

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

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

تفضل اتمنى هذا يفيدك Cpu.rar

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

جزاك الله خيرا وكما قال أستاذنا جعفر تسلم ايدك وهذه فائدة صغيرة لعلك تحتاجها بوقت ما بالإمكان استبدال أسماء أجزاء الفورم بالجملة (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

save_user_options.rar

اخ وائل الموضوع سهل في طلبك ولكن انا كنتافكر كيف يظهر التقرير او الاستعلام الجدولي عالعموم هذا حسب طلبك الاخير 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 بالتوفيق

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

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

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

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

الاستاذ محمد معروف وجودها في 2003 ولكن في 2016 لا اعلم ؟ حبذا ذكر تجربتك او رابط للمعلومة مشكورا والحقيقة المواضيع مكررة ولا اعلم لماذا لا نبحث اولا ؟ وللاسف انه الاجابات احيانا تاتي من مشرفين وبل من اعضاء الفريق الاداري وهنا تتكرر المواضيع بل قد يكون الجديد ركيكا مقارنة بالمشاركات القديمة ومن خبراء ! كما انه حبذا ان يكون عنوان الموضوع يدل على المحتوى والمناقشات ! فعنوان الموضوع حذف القاعدة عند تاريخ معين والمحتوى اصبح يناقش الحماية بالفلاش وهنا روابط لموضوع الحماية امل الاستفادة منها https://www.officena.net/ib/topic/62024-ممكن-طريقة-تمنع-نقل-البرنامج-من-فلاش-ميموري-لاخر-الا-بموافقتي/ https://www.officena.net/ib/topic/41572-تطبيق-الحماية-بأسلوب-الدنكل-الا-شوي/ https://www.officena.net/ib/topic/67834-هدية-إحمل-برامجك-داخل-قاعدة-بياناتك/ https://www.officena.net/ib/topic/68490-كيف-أجعل-البرنامج-لا-يعمل-إلا-على-فلاش-ميموري/?page=1 https://www.officena.net/ib/topic/41572-تطبيق-الحماية-بأسلوب-الدنكل-الا-شوي/?page=2 http://arabteam2000-forum.com/index.php?/topic/229696-حماية-اكسس-بالفلاشة/&page=1 http://arabteam2000-forum.com/index.php?/topic/56706-حماية-قاعدة-البيانات-برقم-الهارد-دسك/&page=1 بالتوفيق

لسة مصممه حالا اتفضل لو عجبك اضغط 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 ، بارك الله فيك ونفع بعلمك اخوانك المسلمين في كل مكان ... آمين الرجاء الاستمرار في الحلول الابداعية والذكية