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

معليش اخي ... قم بتجربة البرنامج مرة اخرى ... وارجع التاريخ ... هناك لبس في الموضوع

الله المستعان

السلام عليكم ورحمة الله وبركاته جمعت لكم 30 اختصار مهم جدا اثناء تعاملك مع مايكروسوفت وورد مرفق ملف العمل اختصارات وورد.xlsx

زرنامة تدرج كل التواريخ بين تاريخين (من اختيارك) مفصلة حسب كل شهر في عامود مع حرية حذف يوم او يومين او ثلاثة ايام (من اختيارك ايضاً) او عدم حذف اي يوم Date_without_days_by_colums_and_month2.xlsm

اخواني واستاذتي الكرام السلام عليكم ورحمة الله وبركاته بناء علي طلب احد الاخوة بعمل قاعدة بيانات لادارة العقود بالشركة الخاصة به تحتوي علي بيانات العامليين مع شاشة ادخال ونموذج لعقد العمل حسب قانون مكتب العمل السعودي وكذلك عرض عمل قمت بعملها واحببت ان اهديها لكل اخواني بالمنتدي عسي ان يكون فيها نفع لاحد منهم وردا للمعروف مع اني اعرف اني مشاركتي هذه نقطة في بحر عمالقة المنتدي واهدي شكري لاخي الكريم الفضيل / احمد فضيلة لاني اخذت الكثير من افكاره كلمة السر للدخول 111 employment contracts.rar

للاسف اخي @ابو زاهر لم اتوصل للمشكلة لانها لا تظهر لدي .. قد يكون بسبب قلة البيانات 🤔

أخي أشكرك لسعة صدرك

ان شاء الله

أخي @عبد اللطيف سلوم وجدت مثالا أكوادة مأخوذه من مثال أخي جعفر والله أعلم ... البرنامج مفعل حسب الكود ليومين ... حاول ارجاع أو زيادة تاريخ جهازك وشاهد.. Database.mdb

السلام عليكم لم اتمكن من فتح الملف ممكن حفظ الملف افيس 2007

نعم للاسف يمكن خداع الكود ......

أخي @عبد اللطيف سلوم جربت المثال مغ برامج الغاء الشفت عمل من دون كلمة السر أخي @ابو ياسين المشولي كيف العمل لو المستخدم تلاعب بتاريخ الجهاز

احب اشارك معكم وهذة طريقه في حدث عند الفتح On Error Resume Next Dim x As String If date > #6/6/2018# Then x = MsgBox(" تـم انـتـهـاء فـــــــــــترة الـصـلاحــيـة للـبـرنـامـج الـرجـاء الاتـصـال بـالـمـصـمـم", vbInformation, " انـتـهـاء فـــــــــــترة الـبـرنـامـج") DoCmd.Quit Else x = MsgBox(" الـفـتـرة الـمـتـبـقـي " & Str(#6/6/2018# - date) & " يـوم هـل تـريـد الاسـتـمـرار", vbYesNo, " الـفـتـرة الـمـتـبـقـي عـلـى الـبـرنامـج ") If x = vbNo Then DoCmd.Quit End If End If

password : younes

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

جزاك الله خير استاذنا بالنسبة لمستخدمين الاصدار الانجليزى هيحصل مشكلة وتم حلها فى المرفق dbArEn.mdb

ان شاء الله تعالى ...

جزاك الله خير

جزاك الله خيرا تم حل المشكلة شكرا لمتابعتك 👍

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

بارك الله فيك يالغالي من ناحيه ممتاز ولكن بيعمل اهتزاز للسجلات عندما تكون كثيره باذن الله تجد الحل بارك الله فيك

أخي الكريم @ابو زاهر وجدت لك حل أنظر للمرفق ...... اخفاء خلفيه الحقل (1).accdb

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

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

أخي الكريم @ابو زاهر بالتوفيق أخي الفاضل .....

ممتاز بارك الله فيك وزاداك الله علما شكرا اليك

أخي الكريم @ابو زاهر السلام عليكم ورحمة الله وبركاته تريد أخفاء اللون الاسود انظر الصورة

تفضل أخي @محمد سلامة بالنسختين ... Kanory.rar

بارك الله فيك استاذنا العزيز @ابوخليل وكل عام وانت واسرتك بخير وصحة وسعادة تقبل منا ومنكم صالح الاعمال

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

عمل فني و قناة رائعة بوركت بوركت

أخي @تامر خليفه سوف ابحث لك عنه وارفقه لاحقا لأانه موجود في المنتدى ....

الله يعطيك العافيه شي جميل تشكر عليه

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

وعليكم السلام ورحمه الله وبركاته Sub Click3() On Error GoTo 1 Dim ws As Worksheet: Set ws = Sheets("add") Dim N, C2 As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual ' On Error Resume Next For Each N In ws.Range("H6:H" & ws.Range("B" & Rows.Count).End(xlUp).Row) If N.Value = "محمود" Or N.Value = "احمد" Then Range(N.Offset(0, 111), N.Offset(0, 116)).ClearContents ' N.Offset(0, 117) = "" N.Offset(0, 118) = Format(Round(N.Offset(0, 171) + N.Offset(0, 172) + N.Offset(0, 173) + N.Offset(0, 174), 2)) Range(N.Offset(0, 119), N.Offset(0, 163)).ClearContents ' N.Offset(0, 164) = "" N.Offset(0, 165) = Format(Round(N.Offset(0, 180) + N.Offset(0, 181), 2)) Range(N.Offset(0, 166), N.Offset(0, 169)).ClearContents Range(N.Offset(0, 175), N.Offset(0, 179)).ClearContents ' N.Offset(0, 180) = "" '' ' N.Offset(0, 181) = "" '' N.Offset(0, 182).ClearContents ' N.Offset(0, 183) = "" '' Range(N.Offset(0, 184), N.Offset(0, 256)).ClearContents End If Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic 1 End Sub

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

تم تعديل المطلوب المصنف1(3)(1).xlsx

السلام عليكم تفضل اخي الكريم ملفك بعد التعديل وان شاءالله يكون هذا المطلوب تحياتي Mail.rar

كلك ذووق

السلام عليكم و رحمة الله و بركاته ممكن نعمل نسخة تجريبية و عداد يومي مثلا 30 يوم أو 100 عملية من نوع محدد كما يمكن نختار مفتاح المنتج و مؤلف من أكثر من حرف و رقم و رقم نسخة أيضاً . كما يمكن ان نقوم بتسجيل النسخة على الانترنت و لمرة واحدة فقط ( مثل مفاتيح نسخة مضاد الفيروس ) و هذه كانت لي تجربة فيها تحياتي لكم

السلام عليكم ورحمة الله وبركاته الدرس السادس 8-Loop الحلقات التكراريه وسوف نتناول فى هذه الدرس الاتى لماذا نستخدم الحلقات التكراريه انواع الحلقات التكراريه الخروج من الحلقه التكراريه كيفية استخدام اكثر من حلقه داخل الكود ......................................................................... لماذا نستخدم الحلقات التكراريه انا شخصيا بعتبر الحلقات التكراريه واحده من اهم المواضيع التى يجب معرفتها حينما يتم الدخول الى عالم vba يتم استخدام الحلقات التكراريه لتنفيذ اكثر من امر فى وقت واحد مما يوفر الوقت ولتوضيح ذلك راجع المثال الاتى نفترض اننا لدينا مجموعه من الارقام مثلا 7 ارقام (1-2-3-4-5-6-7) ونريد ادخال هذه الارقم فى السطر الثامن بداية من العمود الخامس اى العمود e فكيف سنقوم بعمل ذلك طبعا الى معندوش فكره عن كيفية استخدام الحلقات التكراريه هيستخدم الكود الاتى Sub enterdata() [e8] = "1" [f8] = "2" [g8] = "3" [h8] = "4" [i8] = "5" [j8] = "6" [k8] = "7" End Sub اى سيقوم بالاشاره الى كل خليه على حده واعطاء كل خليه قيمتها كما هو متضح من الصوره وبالتالى بعد كتابة هذه الكود وتخصيص زر لتنفيذه او بالوقوف داخل الكود بالماوس ثم الضغط على f5 سوف يتم ملئ الخلايا بالبيانات كما فى الصوره دعونا الان نتطرق الى كيفيه تنفيذ ذلك بالحلقات التكراريه انواع الحلقات التكراريه 1- FOR 2- WHILE 3- DO ................................................................................................................................................................................................................................................................ الحلقه الاولى for …next هذه الحلقه تبدأ بكلمة FOR وتنتهى بكلمة NEXT وفيما بين الكلميتن هو ما سوف يتم تنفيذه للتوضيح اكتر For بداية الحلقه = اسم الحلقه To طريقه تنفيذ الحلقه] نهايةالحلقه] [ماسيتم تنفيذه داخل الحلقه] [Exit For] الخروج من الحلقه Next استكمال الحلقه حت النهاية وهنا يجب ان نشير الى ان اى حلقه تكراريه لابد ان يكون لها اسم يعبر عنها وليكن مثلا H ثم يجب ان يكون لها بدايه ولها نهايه وليكن ستبدأ من 1 وتنتهى فى 10 ثم سيكون هناك ما ينفذ داخل الحلقه والمقصود بطريقة تنفيذ الحلقه اى هل سيتم تنفيذها خطوه بخطوه وهذا هو الشائع فى الاستخدام ام كل خطويتن ام كل ثلاث خطوات وهكذا ولتطبيق ذلك سنتعرف على كيفية استخدام الحلقه for فى ادخال البيانات فلو اننا نريد ادخال الارقام من 1 الى 4 فى السطر 26 بداية من العمود 8 كيف سنقوم بعمل ذلك 1-نعطى الحلقه اسم معين FOR H H 2-نحدد البدايه 8 ونحدد النهاية 11 FOR H =8 TO 11 لاحظ ان عدد الحلقات هنا 4 عباره عن 8و9و10و111 3-ماسيتم تنفيذه Cells(26, h) = h - 7 4-استكمال الحلقه NEXT وبالتالى سيكون شكل الكود كالاتى Sub enterdata_for() For h = 8 To 11 ' h----- متغير تم تعريه على انه يبدأ من 8 وينتهى عند 11 ' اى ان عدد حلقاته هى 4 عباره عن 8ثم9ثم10ثم11 Cells(26, h) = h - 7 ' هنا يتم تنفيذ الكود ' هنا نقول ان الخليه التى تقع فى السطر26 وفى العمود من8الى11 ' مطروحا منه 7 ارقام ليصبح قيمة المتغير تساوى1hتساوى قيمة المتغير ' Cells(26, H)--- الرقم26هنا يدل على رقم السطر الذى سينفذ فيه الكود ' Cells(26, H)--- عباره عن العمود الذى سينفذ فيه الكود وبذلك يتضحh ' hلنا ان الكود سوف ينفذ على الاعمده من 8الى11 لانها تساوى قيمة المتغير ' h-7 يبدأ من الرقم8وينتهى عند الرقم11 فحينما ينم طرحhبما ان المتغير ' الرقم7 من المتغير بذلك تصبح قيمة المتغير تبدأ من الرقم1وتنتهى عند الرقم4 'وبذلك يكون تنفيذ الكود كالاتى ' الخليه فى السطر26وفى العمود5تساوى الرقم1ثم ' الخليه فى السطر26وفى العمود6تساوى الرقم2ثم ' الخليه فى السطر26وفى العمود6تساوى الرقم3ثم ' وهكذا حت نصل الى اخر الحلقه التكراريه اى العمود11 Next ' hتكرار عمل الكود حتى نهاية المتغير ' next---- forاقفال الحلقه التكراريه End Sub

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