كل الانشطه

بارك الله فيك ونفع بك

تفضل الملف حساب الفئة العمرية2.xlsx

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

وعليكم السلام ورحمة الله وبركاته .. لم يظهر أي مشكلة عند فتح المرفق وتعديل الأكواد لتعمل مع إصداري 64 .. ولكن في الإصدار 32 ، ظهرت المشكلة والسبب المعامل الثالث الذي يمرر في استدعاء الـ InpuBoxDK ، عدله ليصبح كالتالي :- str_Title = "سبحان الله وبحمده سبحان الله العظيم" strAdminPWord = InputBoxDK("Password required to proceed.", str_Title) بدلاً من :- str_Title = "سبحان الله وبحمده سبحان الله العظيم" strAdminPWord = InputBoxDK("Password required to proceed.", str_Title, "Enter Licence Code")

سلام عليكم ممكن مساعدة في حساب الفئة العمرية جدول مرفق حساب الفئة العمرية.xlsx

يوجد برامج مخازن جاهزة مثل هذا البرنامج إعداد الأستاذ رفيق أحمد و يوفر لك الوقت و الجهد كلمة السر: 1280 و برنامج آخر مفتوح المصدر للمخازن و الحساباتبرنامج ادارة المخازن والمشتريات ver.3.0.xlsb برنامج ادارة المخازن والمشتريات ver.3.0.xlsb ادارة الحسابات والمخزون .xlsm

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

الرجاء المساعدة فى عمل كود البحث كما هو فى شيت المخزن فى شيت المبيعات لإضافة الاصناف المباعة ويكون البحث من شيت المخزن وكذلك فى المشتريات لإضافة الاصناف المشتراه ويكون البحث من شيت المخزن تجربة.xls

تمام - تسلم

انظر الامثلة ..... t1.accdb t2.accdb

بارك الله فيك هذا هو الفضل وزيادة .جمعة مباركة عليك

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

تنقيح أخير، أصبح فيه الكود سطر واحد فقط 🙂 Sub Date2Text() Range("B7", "AJ23").NumberFormat = "m-d" End Sub

وعليكم السلام ورحمة الله وبركاته بالنسبة للاوقات التي خارج الاوقات في M&N لم تحدده وفي اي بصمة تسجل تم ربط المعادلات حسب الاوقات في M&N اكسل1.xlsm

استاذ عند القيام بنسخ تسخة من تم حدف حميع الجداول والنماذج

تم تنقيح الكود سابقا لو ضغطت الزر أكثر من مرة فسوف يبدل النتائج مع كل ضغطة أما الآن سيبدلها مع الضغطة الأولى فقط. Sub Date2Text() Const sRow = 7, eRow = 23 Const sCol = 2, eCol = 36 Dim Row As Integer, Col As Integer Application.EnableEvents = False Application.ScreenUpdating = False For Row = sRow To eRow For Col = sCol To eCol With Cells(Row, Col) If .NumberFormat = "d-mmm" Then .NumberFormat = "@" If .Value <> "" Then .Value = Month(.Value) & "-" & Day(.Value) End If Else .NumberFormat = "@" End If End With Next Col Next Row Application.EnableEvents = True Application.ScreenUpdating = True MsgBox "Done" End Sub

خذ نسخة منها بدون البيانات وارسلها ......................لاصلاح الرفرانس المعطوب

القاعدة توجد فيها ملف الموظفين هل استاذ تكون من وحدة نمطية

ارسل القاعدة

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

تفضل استاذ @محمد التميمي المرفق بعد التعديل بطلبك . Database-2.accdb

الف شكر يا استاذ منتصر هذا هو المطلوب بارك الله فيك - تحياتي

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

السلام عليكم احسنت استاذي الكريم هذا ما رجوته ... لكن يجود خلل بسيط هو في حال فتح نموذج Login يظهر شريط التقدم الأصفر بصورته الكاملة قبل ان ادخل الاسم والرمز هم من الممكن يكون شريط التقدم مختفي وبعد ادخال المعلومات والضغط على زر دخول يظهر ويبداْ بالعد Database-1.accdb السلام عليكم : بارك الله بك استاذي الفاضل وجعله الله في ميزان حسناتكم .... ومنكم نتعلم

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