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

وعليكم السلام ورحمة الله وبركاته جميل أستاذنا محمد وهذه مشاركتي =D4-WEEKDAY(D4;16)+1 تحديد يوم وتاريخ بداية كل أسبوع ونهايته حسب التاريخ الحالي.xlsx

السلام عليكم ورحمة الله وبركاته إخوتي الكرام: أحببت أن أشارككم موضوعاً يتعلق بتحديد تاريخ بداية كل أسبوع ونهايته، وذلك بعد أن احتجت لذلك عدة مرات توصلت إلى هذا الحل أحببت مشاركتكم به ومن كان لديه أية إضافة أو تعديل أرجو أن يتحفنا بها ...مرحباً وأهلاً.. قمت بتحديد تاريخ بداية الأسبوع ونهايته وفق المعادلتين التاليتين: تاريخ بداية الأسبوع: =MAX(DATE(YEAR(TODAY());1;1);DATE(YEAR(TODAY());1;1)-WEEKDAY(DATE(YEAR(TODAY());1;1);16)+(WEEKNUM(TODAY();16)-1)*7+1) تاريخ نهاية الأسبوع: =MIN(DATE(YEAR(TODAY())+1;1;0);DATE(YEAR(TODAY());1;1)-WEEKDAY(DATE(YEAR(TODAY());1;1);16)+WEEKNUM(TODAY();16)*7)-1 أو حسب يومي بداية الأسبوع ونهايته تقبلوا تحياتي العطرة والسلام عليكم تحديد يوم وتاريخ بداية كل أسبوع ونهايته حسب التاريخ الحالي.xlsx

بارك الله فيك وزادك الله من فضله هدية قيمة أحسنتم

تحياتى و ايام مباركه سبحان الله و بحمده مرفق برنامج بسيط جاهز للطباعه على شيكات بنك التجارى الدولى_مصر_CIB_اصدار دفاتر 2018 مميزات البرنامج يتم التفقيط تلقائى بالجنيه المصرى كود بحث و اضافه دبل كليك عن المستفيد امكانية اضافة عدد لا نهائى من البنوك مع ضبط ابعاد الشيك كود طباعه للشيك لا تنسونا من صالح الدعاء برنامج الطباعه على Check_cib_2018.rar

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

تفضل البيض.xlsx

تفضل 77.xlsm

اخي الكريم الموقع تعليمي مجاني وليس تجاري او اعلان عن برامج مدفوعة والافضل لك ان تعرض الرابط مفتوح

وعليكم السلام أرجو أن يكون هذا طلبك تعداد.xlsx

وعليكم السلام تفضل شيت مرتبات.xlsx

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

حسبي الله ونعم الوكيل قلتها سابقا وتوقعت أن ما يحدث في المنتدى هو تصرفات "جمعية" وليست فردية ولكن سامح الله أحد الإداريين الذي أخفى تلك المشاركة. هذه آخر مشاركة لي في هذا الموضوع. شرح مشكلة استعلام "ZX": - لقد اجتهد أخونا العزيز "شايب" في تشخيص المشكلة ولكن جانبه الصواب في المعالجة، فقد كان الربط سليما ولم يكن يحتاج إلى تعديل وإنما المشكلة كانت في حقل اسم الصنف حيث يجب أن يؤخذ من جدول المشتريات وليس المبيعات. ولماذا؟ ... لأن جدول المشتريات سيحتوي على كل الأصناف التي ستباع "منطقي" ولكن ليس كل الأصناف المشتراة ستجدها في المبيعات لعدم حصول أي عمليات بيع عليها. - هذا كان حلي السابق في النسخة 03 بؤخذ الاسم من جدول المشتريات ولكن حتى هذا الحل لن يصمد كثيرا للبرامج التي تعتمد مع نهاية كل سنة الترصيد وإلغاء عمليات الشراء والبيع. والحل هو أن يضاف جدولا ثالثا على الاستعلام وهو جدول الأصناف ليربط به جدولي المشتريات والمبيعات ومن ثم يؤخذ الاسم من جدول الأصناف. مرفق مثال نسخة 04 والأخيرة من جانبي. احتفظت بالاستعلام القديم كما هو وعملت التعديل على استعلام آخر بنفس الاسم ليسهل عملية المقارنة وفهم التعديل. expire date_04.accdb

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

جرب المرفق بعد اذنك اخي محمد البرناوي <><><><><><><><><> ForTest.accdb

جرب هذا الكود يعمل على الصفوف من 9 إلى 21 فقط Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 9 And Target.Row <= 21 Then ActiveSheet.Unprotect "45" Target.Locked = True ActiveSheet.Protect "45" End If End Sub يعمل هذا الكود عن طريق التحقق من الصف الذي تم تغييره. إذا كان الصف يقع بين 9 و 21 ، فسيتم فك حماية الورقة وتأمين الخلية وإعادة تأمين الورقة. إذا لم يكن الصف يقع بين 9 و 21 ، فلن يتم فعل أي شيء

جرب هذا if Target.row >=9 and target.row <=22 then .... End if

يقول معظم أهل هذا العلم أن الاصح ان يحمل كل اجراء معالج الاخطاء الخاص به شكرا

اولا ، استخدام معالج الاخطاء Error Handler يعطي رسائل موجهة و منسقة للمستخدم تشعره بحدوث خطأ و تعطيه التفاصيل المتاحة و في حال عدم استخدام معالج الاخطاء يقوم VBA بتوجيه رسائل الخطأ ، بالمتاح من المعلومات و يوجهك نحو محرر الأكواد للتعرف على موقع الخطأ لتصويبه ثانيا ، يمكن في بداية كل كود أو في أي مكان مختار ولتعطيل معالج الاخطاء و رسائل النظام ان تستخدم العبارة ( الكود ) On Error Resume Next و حين ترغب باعادة تفعيل معالج الاخطاء تستخدم مثلا On Error GoTo PROC_ERR ويكون في ذيل الكود PROC_ERR: MsgBox "Error " & Err.Number & " " & Err.Description Resume PROC_EXIT ثالثا ، لمعالجة كامل النماذج او التطبيق ، فالامر قيد البحث في مكتبتي ... و اوافيك بالرد