ابوشفيق

تفضل اخي اليك الصورة خطوات

تفضل اخي ملفك بعد تعديل رؤوس الاعمدة.rar

تفضل اخي تم تغير كود زر امر لاتمام اجراء على جميع جداول many formHR.rar

تفضل اخي تحديث الحقل حسب تجميع IDSilling Database1HR.rar

تفضل اخي جرب التعديل المشكلة كانت في تنسيق حقل Zdate في جدولين Add_Doc و Issue_Doc وتم تغير تنسيقهما من نص الى تاريخ و تم تعديل رسالة StoreHR.rar

تفضل اخي تم تعديل على الملف S1HR.rar

طيب جرب استعلام تالي SELECT Format([Date_in],"yyyy/mm/dd") AS Fld1, Count(table2.DATE_IN) AS DATE_IN1 FROM table2 GROUP BY Format([Date_in],"yyyy/mm/dd");

تفضل اخي SELECT table2.NAME, Count(table2.DATE_IN) AS DATE_IN1 FROM table2 GROUP BY table2.NAME;

اخي العزيز في بداية موضوعك الاول عملت لك جدول لتحديد كمية مواد في الوجبات حسب الفئة من اجل تحقيق نفس الهدف ولكن المشكلة ترجع الى اختلاف وزن او الحجم في نفس مادة مثلا دجاج 900 غرام كيف يمكن تميزه من الدجاج 1000 غرام في استهلاك الوجبة!! وكذالك لحم بتلو من لحم تك…

تفضل اخي تم تعديل الملف Store.rar

اقصد ماكرو (Macro)

وعليكم السلام و رحمة الله وبركاته اذا يوجد لديك الماكو بإسم Autoexec غير اسمها الى اي اسم آخر

اخي تم تعديل على البرنامج ليعمل اجرائات التالية عند ادخال اي مبلغ الجديد يقوم البرنامج بتوزيع مجموع مبلغ على جميع شهور ثم يخصم منه الاضافي ان وجد ثم ينتقل الى الشهر الاول ويخصم متأخر هذالشهر ثم ينتقل الى الشهر التالي ..حتى نفاد المبلغ الاضافي ، و اذا كان مبلغ …

اخي العزيز من ناحية امكان المطلوب ، بالتاكيد ممكن ان شاء الله ولكن بعد توضيح نقطة التالية الدفع القسط يتم مرة واحدة في الشهر سواء قسط الشهري او متأخرات ام يمكن دفعها خلال فترات؟ مثلاً احمد دفع قسط شهري للشهر ،2 هل من الممكن احمد يقوم بالدفع 100 او 200 او اي مب…

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

نعم تفضل بيانات الحضور والانصراف2.rar

تفضل اخي تم تعديل بيانات الحضور والانصراف.rar

تفضل اخي انتباه! تم تبديل الملف بآخر جديد New_A.rar

تفضل DoCmd.RunCommand acCmdSaveRecord DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE WORK_DAY SET WORK_DAY.[DATE]='" & [DATE] & "';" DoCmd.SetWarnings True Form.Requery

وعليكم السلام و رحمة الله و بركاته في حدث بعد تحديث لحقل التاريخ الصق هذا الكود: DoCmd.RunCommand acCmdSaveRecord Dim Redate As Date Redate = [DATE] DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE WORK_DAY SET WORK_DAY.[DATE]=#" & Redate & "#;" DoCmd.SetWarnings …