سامر محمود

أخي الكريم @عمر ضاحى تحياتي لحضرتك انا كتب دي في القيمة الافتراضية =DateAdd("yyyy";[7];[تاريخ الاصدار]) بس بدون نتيجة

الاخوة الكرام الافاضل السلام عليكم ورحمة الله وبركاته عندي فورم فيع 2 تكست واحد لتاريخ اصدار القومي والاخر لتاريخ الانتهاء عايز اعرف ازاي لما اكتب تاريخ الاصدار يكتب تاريخ الانتهاء بشكل تلقائي علما بأن المدة بين الاصدار والانتهاء 7 سنوات اشكركم علي الدعم والافادة المستمرة

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

اتفضل اخي @عمر ضاحى

هو الرفق لما نزلته علي الجهاز بيطلع المسج بوكس لكن مفيش حاجة بتنزل خالص دورت علي الملف في الجهاز كله لكن بدون جدوي اخي @Foksh فعلا اخي @عمر ضاحىمعاك حق انا تعبت الاستاذ @Fokshوالله انت فكرت في كلامك لكن المشكلة ان الكود شغال في تقارير وتقارير لا بيطلع رسالة خطا ٣٠١١ حاولت والله وعملت كل اللي حضرتك قولت عليه

للاسف واضح ان المشكلة عندي انا بس بحاول اعرفها مش عارف اوصلها

للاسف مش شغال بردو تخطي الخطا مش مش بيظهر رسالة الخطا لكن التقرير نفسه مش بينزل علي سطح المكتب استاذ @Foksh

الاخ @Fokshالكريم بشكرك جدا علي تعبك وطولت بالك معايا جزاك الله خيرا هو تمام بس الموديول كده لتقرير معين يعني اعمل لكل تقرير موديول صح

اخي العزيز @Foksh بعتذر عن التاخير كنت خرجت من الشغل foksh.accdb

لا للاسف بس هحاول في الكود القديم الاول

الاخ الكريم @عمر ضاحى الاخ الكريم @murady بشكركم علي الدعم ومعلش تعبتكم معايا انا بجد محظوظ بيكم خالص تحياتي

اخي @murady انا جربت اللي حضرتك ساعدتني بيه والله وبردو نفس المشكلة مع ان نفس المكتبات اللي حضرتك بعتها عملتها بالظبط

البرنامج كبير والله مش عارف اقطعه او ابعته بس بعت حاجة مصغرة لحضرتك يمكن نلاقي حل New Microsoft Access Database.accdb

اخ @عمر ضاحى انا عملتها بس رسائل الخطا مازلت موجودة شوف الصور كده

والله يا استاذ عمر راجعتهم سطر سطر مش موجودة @عمر ضاحى

في Failedialog مش عندي حاولت فيه مش موجود

بشكرك جدا اخي @عمر ضاحى علي المساعدة الكريمة بس للاسف الكود مش ظابط معايا خالص مع اني عدلت فيه ورجعت للكود بتاعي بس طلع اخطاء كما في الصور اكون شاكر لحضرتك لو تعرفني الخطا فين

الاخوة الكرام الافاضل السلام عليكم ورحمة الله وبركاته بين ايديكم كود استخراج التقرير اكسل بس في غلطة مش عارفها اسم التقرير المفروض يطلع قبل التاريخ للاسف بيعمل Error ياريت تساعدوني اكون شاكر جدا Dim reportname As String Dim filenamepath As String reportname = "jop_r" filenamepath = CreateObject("wscript.shell").specialfolders("desktop") & "\" & Format("jop_r", Date, "dd-mm-yyyy") & ".xlsx" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, reportname, filenamepath, True MsgBox "exported successfully"

اخ @Foksh بحاول بس حجم البرنامج كبير للاسف

الاخوة الكرام الافاضل السلام عليكم ورحمة الله وبركاته من فضلكم كنت محتاج مساعدتكم في شئ مهم عندي استعلام بطله تقرير مدخلات اليوم الجديدة للموظفين لكن في موظفين بيتم اعادة تعيينهم مرة اخري عن طريق افعيل شاشتهم ( يعمل ) دول مش بيظهروا في تقرير نهاية اليوم هل في طريقة لمعرفة ذلك في الاستعلام

اخي الكريم ابن الاكرمين @عمر ضاحى عجزت الكلمات ان توفيك حقك وشكرك مش عارف اشكرك ازاي والله انا بجد عاجز عن شكرك اشكرك اشكرك اشكرك جزاك الله خيرا

Vacation total

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

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