كل الانشطه

سلام عليكم ممكن مساعدة في حساب الفئة العمرية جدول مرفقحساب الفئة العمرية.xlsx حساب الفئة العمرية.xlsxحساب الفئة العمرية.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

السلام عليكم عندي بصمات في شيت البصمة خارج اوقات المحددة في شيت المستقبل خانة m - o هذه واحدة ويحدث انه يتم تغيير الاوقات فيتم التغيير والتغيير يكون في اوقات في o- m

مشاركة مع استاذ @Foksh تفضل استاذ @محمد التميمي الشرح والمرفق بعد التعديل حسب مافهمت . ووافني بالرد . Database-1.accdb

ممتاز ما قمت به . اكمل ما تريده ل 30 جدول و نشوف النتيجة النهائية بإذن الله

ولكن مالغاية من هذا ؟؟؟ في كل الاحوال فنحن يمكننا معرفة إصدار (قاعدة البيانات فقط) عن طريق الأمر CurrentProject.FileFormat وعندها يمكننا التفريق بينها بواسطة عبارة Select التالية Select Case CurrentProject.FileFormat Case acFileFormatAccess2 dbVersion = "Microsoft Access 2.0" Case acFileFormatAccess95 dbVersion = "Microsoft Access 95" Case acFileFormatAccess97 dbVersion = "Microsoft Access 97" Case acFileFormatAccess2000 dbVersion = "Microsoft Access 2000" Case acFileFormatAccess2002 dbVersion = "Microsoft Access 2002 - 2003" Case acFileFormatAccess2007 dbVersion = "Microsoft Access 2007 - 2016" Case Else dbVersion = "إصدار غير معروف" End Select ولمعرفة إصدار أوفيس (الحالي) يمكن إستخدام الامر Application.Version ونفرق بينها بعبارة Select التالية Select Case Application.Version Case 16 officeVersion = "Office 2016 / 2019 / 2021 / Microsoft 365" Case 15 officeVersion = "Office 2013" Case 14 officeVersion = "Office 2010" Case 12 officeVersion = "Office 2007" Case 11 officeVersion = "Office 2003" Case Else officeVersion = "إصدار غير معروف" End Select لا أدري إذا ما ستساعدك هذه المعلومات للوصول للنتيجة المطلوبة