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

السلام عليكم ورحمة الله وبركاته على الرغبة السيد @محمد عبد الشفيع من هنا https://www.officena.net/ib/topic/86775-دمج-برنامج-الحماية-مع-برنامج-الفترة-التجريبية تم فتح هذا الموضوع و ان شاء الله ساشرح خطوة خطوة حسب وقتي حتى اخلص من الموضوع وفي النهاية راح اسمع اراء و مقترحاتكم والان نحن نحتاج جدول واحد لكي نحفظ فيه تسلسل و رقم هارد و المعالج و رقم التفعيل البرامج و مدة التفعيل و تاريخ التفعيل و تاريخ اخر مرة فتح البرامج وسنسمي هكذا بالتسلسل كما مبينة في الصورة ID من نوع ترقیم تلقائی NumForMoaalic من نوع نصي NumForHard من نوع نصي NumTascil من نوع نصي Midda من نوع رقم و مصدره يكون عمودين واحد لكتابة رقم ايا عدد ايام التفعيل والاخر لكتابة مثلا يوم واحد او اسبوع واحد هكذا وهذا هو مصدره "1";"يوم واحد";"7";"اسبوع واحد";"30";"شهر واحد";"90";"ثلاث اشهر";"180";"ستة اشهر";"365";"سنة واحدة";"18250";"مدى الحياة" شوف الصورة لكي نعرف خصائص هذا الحقل جيداً و ايضا عندنا حقل باسم firstdate من نوع وقت والتاريخ واخر حقل هو EndDate من نوع وقت والتاريخ وتم تسمية الجدول باسم TblTascil ولان ليس لدي وقت اليوم ان اكون على جهاز لابتوب غدا او يوم السبت ان شاء الله راح اكمل الشرح ونبدأ بعمل النماذج والسلام عليكم ورحمة الله وبركاته

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

شكرا ليك أستاذنا @Shivan Rekany أنت تعطينا الأمل كي نواصل .. لن يكون هناك صعب مادمتم أنتم معنا

السلام عليكم ورحمة الله وبركاته تهنئكم على شجاعتكم @qathi , @Barna , @محمد عبد الشفيع کملوا موضوع وانا ان شاء الله قريبا راح افتح موضوع جديد بقاعدة جديدة انا بدأت وقريبا راح تجدون الرابط هنا

شكراً @kanory أنظمامك معنا هكذا يحلو النقاش ...

فكرة رائعة أخي @Barna وممكن كذلك رقم المعالج .. حتى تكتمل الفكرة طبعاً معلوم أن الهارد أذا أصابة عطل يتلف .. وهنا يكون أمر مؤرق عند العميل .. كما أنه يمكن نقله من جهاز الى اخر .. وهذا أمر ليس مقلق يظل البرنامج رهين الهارد لكن المعالج نادر أصابته بعطل يؤدي تلفه .. كما أنه من الصعب نقلة .. وأذا تم نقله فأنهُ يتطلب توافق الماذربورد (لوحة الام) بالمعالج .. وهذا أمر في الغالب لا يفقه العميل بهذا

هذا ما قصدته بالفعل

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

نزولاُ عند رغبة بعض الأصدقاء و متابعة للموضوع على هذا العنوان ( المراتب من 1 الى مئة) http://www.officena.net/ib/topic/84849-المراتب-من-1-الى-100/ تم زيادة النطاق لغاية الرقم 1000 و بذلك يكتب لك الاكسل مثلاً الرقم 125 (مئة وخمسة وعشرون) : الرقم 934 (تسعمئة وأربعة وثلاثون) الكود Option Explicit Function Order_Salim(cel) Dim degree$, i%, My_num1%, My_num2% Dim aHad$, Asharat$ If Not IsNumeric(cel) Then Order_Salim = "N/A": Exit Function If cel = 100 Then Order_Salim = "المائة": Exit Function End If If cel > 100 Then Order_Salim = "too Big Number": Exit Function End If cel = Int(Abs(cel)) Dim deg1$, deg2$, deg3$, deg4$, deg5$, deg6$, deg7$, deg8$, deg9$, deg10$ deg1 = "الأوّل": deg2 = "الثّاني": deg3 = "الثّالث": deg4 = "الرّابع" deg5 = "الخامس": deg6 = "السّادس": deg7 = "السّابع": deg8 = "الثّامن": deg9 = "التّاسع": deg10 = "العاشر" Dim deg01$, deg02$, deg03$, deg04$, deg05$, deg06$, deg07$, deg08$, deg09$ deg01 = "عشر": deg02 = "والعشرون": deg03 = "والثّلاثون": deg04 = "والأربعون": deg05 = "والخمسون" deg06 = "والستون": deg07 = "والسّبعون": deg08 = "والثّمانون": deg09 = "والتّسعون" If cel < 11 Then Select Case cel Case Is = 1: degree = deg1 Case Is = 2: degree = deg2 Case Is = 3: degree = deg3 Case Is = 4: degree = deg4 Case Is = 5: degree = deg5 Case Is = 6: degree = deg6 Case Is = 7: degree = deg7 Case Is = 8: degree = deg8 Case Is = 9: degree = deg9 Case Is = 10: degree = deg10 End Select Order_Salim = degree: Exit Function Else My_num1 = Mid(cel, 2, 1) '=========================== Select Case My_num1 '======================= Case Is = 1: aHad = "الحادي" Case Is = 2: aHad = deg2 Case Is = 3: aHad = deg3 Case Is = 4: aHad = deg4 Case Is = 5: aHad = deg5 Case Is = 6: aHad = deg6 Case Is = 7: aHad = deg7 Case Is = 8: aHad = deg8 Case Is = 9: aHad = deg9 End Select '====================== My_num2 = Mid(cel, 1, 1) Select Case My_num2 Case Is = 1: Asharat = deg01 Case Is = 2: Asharat = deg02 Case Is = 3: Asharat = deg03 Case Is = 4: Asharat = deg04 Case Is = 5: Asharat = deg05 Case Is = 6: Asharat = deg06 Case Is = 7: Asharat = deg07 Case Is = 8: Asharat = deg08 Case Is = 9: Asharat = deg09 End Select If My_num1 = 0 Then Order_Salim = Right(aHad & " " & Asharat, Len(aHad & " " & Asharat) - 2) Else Order_Salim = aHad & " " & Asharat End If End If End Function Function OrdeUP100(cel) If Not IsNumeric(cel) Or Int(cel) <> cel Or Int(cel) <= 0 Then OrdeUP100 = "ERROR": Exit Function End If If cel = 1000 Then OrdeUP100 = "الألف": Exit Function If cel > 1000 Then OrdeUP100 = "Too Large Integer": Exit Function Dim Mi3at, Free, Martab1 If cel <= 99 Then OrdeUP100 = Order_Salim(cel): Exit Function Select Case Left(cel, 1) Case Is = 1: Mi3at = "مئة" Case Is = 2: Mi3at = "مئتين" Case Is = 3: Mi3at = "ثلاثمائة" Case Is = 4: Mi3at = "أربعمئة" Case Is = 5: Mi3at = "خمسمئة" Case Is = 6: Mi3at = "ستممئة" Case Is = 7: Mi3at = "سبعمئة" Case Is = 8: Mi3at = "ثمانمئة" Case Is = 9: Mi3at = "تسعممئة" End Select If Mid(cel, 2, 1) = 0 Then Free = Right(cel, 1) Select Case Free Case 0: Martab1 = "" Case 1: Martab1 = " وواحد" Case 2: Martab1 = "وإثنين" Case 3: Martab1 = "وثلاثة" Case 4: Martab1 = "وأربعة" Case 5: Martab1 = "وخمسة" Case 6: Martab1 = "وستة" Case 7: Martab1 = "وسبعة" Case 8: Martab1 = "وثمانية" Case 9: Martab1 = "وتسعة" End Select OrdeUP100 = Mi3at & " " & Martab1: Exit Function End If OrdeUP100 = Mi3at & " و" & Order_Salim(Mid(cel, 2, 2) * 1) End Function الملف مرفق order_up_to_1000.xlsm

تسلم يدك والف الف شكر وتقدير

تمام استاذي الكريم شفان بارك الله فيك وجزاك الله خيرا

اتفضل database1 (1) (1).accdb

والسلام عليكم ورحمة الله وبركاته انا فتحت الموضوع جديد و ان شاء الله ساشرح خطوة خطوة وهذا رابطه لكن لان ليس لدي وقت كثير سيكون على عدد اجزاء اي كل مرة ساشرح بعض حتى نخلصه وهذا هو الرابط الشرح https://www.officena.net/ib/topic/86855-شرح-كيفية-حماية-القاعدة-البيانات-بواسطة-رقم-هارد-مع-المعالج-و-اختيار-مدة-التفعيل/

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

السلام عليكم ورحمة الله وبركاته تم تنزيل المرفق لكن لم ارى اي باركودات بهذا الشكل في قاعدة بياناتك على الرقم كل شي جرب التغيير في هذا السطر غيره الى هذا xSalesPrice = Format(Mid([ProductID], 7), "##0.00")

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

تسلم أخي kanory بارك الله فيك

تم إضافة شرط للمعادلة وهو إذا كانت قيمة الخلية التي أسفل 2014 فارغة وفي نفس الوقت قيمة الخلية التي أسفل 2018 فارغة لا يعطي نتيجة ترقيات.xlsx

السلام عليكم بعد اذن الاستاذ خلف اخي محمد اليك الحل بتغير خاصية هيدر test 5000.mdb

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

اخى الكريم دعنا نجرب فكرة اخرى ما المانع اذا قمنا اولا بحذف النموذج المراد استبداله ثم قمنا بنقل النموذج الجديد الى قاعدة البيانات عن طريق الكود السابق يعنى حذف القديم ثم نقل الجديد بنفس اسم النموذج الجديد مبدئيا هذا كود حذف النموذج القديم Dim objAcc As Access.Application Set objAcc = GetObject("C:\myOldDB.mdb") objAcc..DoCmd.DeleteObject acForm, "frmBad" objAcc.Application.Quit Set objAcc = Nothing ثم انقل الجديد بهذا الكود DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\myOldDB.mdb", acForm, "formName", "FormName", False

ماذا تقصد اخى

🤔🤔🤔🤔

تم عمل المطلوب ولكن بطريقة أخرى 2018-10-1.xlsm

هل ممكن أن نحاول نحن في وضع بعض النقاط كعصف ذهني للموضوع

تفضل ... password.accdb

البرنامج مفتوح المصدر وانا تحت امرك لو عايز تعرف تستخدمه ازاى @وائل يونس سلامي

ربما كان المطلوب الاسماء تضاف تلقائيا الى الكومبو و ترتب ابجدياً بدون تكرار form1.rar

أسعد الله أوقاتكم بكل خير فيما يلي الدرس العاشر من دورة "إكسيل 2013 المستوى المتقدم" بعنوان دوال قواعد البيانات- الجزء الثاني الدرس العاشر - دوال قواعد البيانات 2 أتمنى لكم مشاهدة ممتعة ومفيدة يمكنكم تحميل ملفات التمارين الخاصة بهذه الدورة من خلال الرابط التالي: http://www.4shared.com/rar/QvwJQLddce/_-__.html لمتابعة الموضوع الرئيسي للدورة يمكنكم فتح الرابط التالي حيث جميع الدروس موجودة: دورة اكسيل 2013 المستوى المتقدم دمتم بخير أخوكم م/نضال الشامي Google+

ارجو ان يكون هذا هو طلبك اخى البطاقة المدرسية.rar

أخي الكريم تحية طيبة وبعد أليك هذا الرابط لقاعدة بيانات خاصة بالموظفين الذين يعملون بنظام الساعة حيث يتم تسجيل الموظف ساعة الحضور وساعة الانصراف ويتم طرح الوقتين وضربهم في سعر الساعة وحيث لكل موظف سعر مختلف عن الآخر وهو من تصميمي ومفتوح المصدر. http://www.arabteam2000-forum.com/index.php?showtopic=157438 مع أطيب تحياتي للجميع