عمر ضاحى

طيب شاركوني افكاركم فيها يعنى حاجه زي كده ممكن تتنفذ ازاى

ارفع نموذج للعمل عليه

@ابوخليل استاذنا الجليل مقدرش اطمع فى حل لهذا الموضوع منك ^_^

الله يعطيك الف عافيه ويبارك لنا فيك وما يحرمنا من كرمك علينا

هذه فاتتني لكن لم تفت على مثلك طيب الان الكود شغال كويس و بالنسبه لنقطة التاريخ ال بيتجاهله مش مشكله ممكن ابقى اعدلها يدوي وخلاص لك جزيل الشكر والعرفان استاذى الجليل ابو خليل ❤️❤️❤️❤️❤️❤️ خطوات العمل 1- اتأكد من ان ال فى اجازة مازال لسه فى اجازة من تفعيل الاختيار الخاص بهم اتأكد من انى علمت على الغائبين ثم اقوم بعمل تحضير للجميع طبعا الملف لسه ناقصه اكود لكن احب ان ابحث عنها اولا واحاول ايجاد حل لها وفى حال انى عجزت مثل ما حدث الان اعمل موضوع لها

الكود المفترض يعطينى اخر الدوام الساعه 15:00 لان هذا التاريخ هو ليوم الجمعه بالنسبه لاسم الحقل موجود فى هذا الكود Dday = Weekday(Date) If Dday = 5 Then Me.Dwam_Date = Me.txtDatetest.Value Me.txtTimeIn.Value = "07:00" Me.txtTimeOut = "15:00" ElseIf Dday <> 5 Then Me.Dwam_Date = Me.txtDatetest.Value Me.txtTimeIn.Value = "07:00" Me.txtTimeOut = "16:00" Me.txtDatetest استاذى الجليل ابو خليل اعتقد عرفت ليه كود يوم الخميس لم يعمل وهذا بسبب انه بيستعلم عن تاريخ اليوم وليس تاريخ المسجل فى الشيت Dday = Weekday(Me.txtDatetest.Value) If Dday = 5 Then Me.Dwam_Date = Me.txtDatetest.Value Me.txtTimeIn.Value = "07:00" Me.txtTimeOut = "15:00" ElseIf Dday <> 5 Then Me.Dwam_Date = Me.txtDatetest.Value Me.txtTimeIn.Value = "07:00" Me.txtTimeOut = "16:00" Dday = Weekday(Me.txtDatetest.Value)

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

واعتقد ان هذا الكود Dday = Weekday(Date) If Dday = 5 Then Me.Dwam_Date = Date txtTimeIn.Value = "07:00" Me.txtTimeOut = "15:00" ElseIf Dday <> 5 Then Me.Dwam_Date = Date txtTimeIn.Value = "07:00" Me.txtTimeOut = "16:00" اصبح لا يعمل ايضا

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

وايضا عند اخر سجل لا يعطي قيمه مثل باقى السجلات

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

السلام عليكم اساتذتي الكرام @jjafferr @Eng.Qassim @abouelhassan @ابوخليل والى الجميع عندي مشكله هذا الكود كان المهندس قاسم @Eng.Qassim ساعدني بيه فى موضوع كنت عملته On Error GoTo Errw Dim i As Integer DoCmd.GoToRecord , , acFirst For i = 1 To Me.Recordset.RecordCount If (Me.Emp_ABSCENT = False) Or (Me.Vacation = False) Then Dim Dday As Integer Dday = Weekday(Date_today) If Dday = 5 Then Me.Dwam_Date = Me.txtDatetest txtTimeIn.Value = "07:00" Me.txtTimeOut = "15:00" Else Me.Dwam_Date = Me.txtDatetest txtTimeIn.Value = "07:00" Me.txtTimeOut = "16:00" End If Else Me.txtTimeIn.Value = "" Me.txtTimeIn.Value = "" End If DoCmd.GoToRecord , , acNext Next i Exit Sub Errw: MsgBox "لقد تم اعتماد الانصراف بنجاح", vbOKOnly عاوز اعرف فين الغلط هنا (انا قمت بعمل تعديلات بسيطه (ضمين اكثر من زرار معه الكود كان شغال تمام لحد ما انا عدلت بعض التعديلات واضفت خانه للاجازات اذا كان الموظف غائب او فى اجازة لا يتم اضافة وقت حضور وانصراف له وعلشان اقدر اعدل فى التاريخ علشان اسجل الايام السابقه من اول السنه اضفت مربع نص وحطيت فيه التاريخ وضميته فى الكود وهو يعمل جيدا لكن المشكله ان شكلى اخطأت فى مكان OR فى الداله If (Me.Emp_ABSCENT = False) Or (Me.Vacation = False) Then هل فعلا التركيبه هذه خطأ ؟ لان بيسجل لكله الان حاضر غائب اجازة كله جربت طرق كثيره للتغير بمساعدة استاذي ابوالحسن @abouelhassan If (Me.Emp_ABSCENT) Or (Me.Vacation) = False Then If Me.Emp_ABSCENT = False Or Me.Vacation = False Then If Not (Me.Emp_ABSCENT) = True Or (Me.Vacation) = False Then If Not (Me.Emp_ABSCENT) Or (Me.Vacation) = True Then لكن للاسف مره تعمل على شرط واحد ومره تعمل على الاخر ومره لا تعمل اطلاقا ايضا هرسل لحضرتك نسخه من البرنامج https://www.mediafire.com/file/l8oyy6wi91zg9sq/%D8%AD%D8%B6%D9%88%D8%B1_%D9%88%D8%A7%D9%86%D8%B5%D8%B1%D8%A7%D9%81_%D9%85%D9%88%D8%B8%D9%81%D9%8A%D9%86V2010_v030.rar/file واسم النموذج هو frm_DwamToday هذه صورة النموذج الذي به المشكله

@jjafferr استاذي الكبير هل يوجد برنامج مثل هذا لكن يقوم بالاستيراد وليس تصدير ؟

السلام عليكم ورحمة الله وبركاته كما هو واضح من العنوان اريد ان اعمل مولد سجلات بناءا على بيانات يتم تعبئتها فى النموذج وللتوضيح الشرح فى الصورة التاليه باقى البيانات هي بيانات ثابته هل من الممكن انشاء هذا المولد ؟ مرفق ملف البرنامج توليد سجلات.rar

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

اولا باشكر كل من ساعدني فى انهاء مشاكل البرنامج ولله الحمد عرفت فين الخطأ (بالصدفه) واحب اشكر المهندس قاسم @Eng.Qassim وباقية اساتذتي الكرام فلقد انتهيت تقريبا من عمل البرنامج للحضور والانصراف وكما وعدت سوف اقوم بنشره هنا حتى يستفاد منه الجميع البرنامج يعمل على اصدار 2010 انتهيت تقريبا من كل ما فكرت فيه للبرنامج باقى ان اقوم بعمل تصميمات رسوميه جيده للبرنامج لكنى ضعيف فى هذا للاسف فاذا تطوع احد الكرام بعمل هذا نكون له شاكرين وختاما نسألكم الدعاء لى ولوالدتي رحمة الله عليها وان يشفي والدي وشكرا جزيلا حضور وانصراف موظفينV2010.rar

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

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

up

تمام بس هناك بعض الاعمدة لا يفترض بها ان تجمع مثل قيمة الساعه هو رقم ثابت حسب قيمة الراتب ف بالتالى المفترض مثلا عند المثال عمر المفترض ان قيمة الساعه 15.6 مش 62.4 هناك اعمدة اريد ان يظهر لى قيمة واحده لانها تكرار لكل يوم ----------------------------------- واريد ايضا ان اجمع الغياب كله كام يوم لكل موظف (ويجب ان يظهر عمود التاريخ علشان اقدر افلتر منه فترات معينه ) ----------------------------------- هذا والباقى لما اعرف كيف احلها 😚

يا هلا يا هلا يا هلا بالمهندس قاسم @Eng.Qassim شرف لى انك ترد على مشكلتى انا عاوز اعمل ملخص للاضافى علشان هضرب القيمه فى الراتب علشان يطلعلى النتيجه وعاوز اطلع الغياب علشان اخصمه فيما بعد وايضا اظهره فى التقرير (لانى عاوز اعمل تقرير اوضح فيه كل موظف غاب كام واشتغل كام وليه اضافى كام كل هذا فى تقرير ) ف انا قولت اعمل استعلام اجمع فيه البياانات كلها واخذ ال محتاجه للتقرير وهكذا ف ايه راي حضرتك هل هناك طريقه افضل

up

الاستاذ Barna اول حاجه هو عملها انه حول نظام التاريخ بهذه الدالة D: Format([date1];"dd/mm/yyyy") ثم قام بوضع الشرط Between #01/01/2021# And #10/01/2021# للتصفيه واظهار النتائج طبعا انت ممكن تستبدل التاريخ باسم حقل فى نموذج عندك علشان تقدر تغير فى التواريخ لكن انتبه من التاريخ الاصغر والاكبر فى الترتيب فانت لما تقوم بالنقل قم بنقل الدالة والمعيار معا

السلام عليكم اساتذتي الكرام كما هو موضع من عنوان الموضوع طلب عمل استعلام لجمع اوقات الاضافى للموظفين وحساب مستحقاتهم من الاضافى اريد ان اعرف ليه مش قادر اعمل كده انا جربت اعمل استعلام جمع لكن معرفتش اوصل للنتيجه من الممكن اكون باعمل استعلام خطأ انا اريد ان اوصل للحل (اسم الاستعلام المراد تعديله هو SumOTandAppsent ) مرفق برنامج مع اخر تعديل تم فيه حتى الان حضور وانصراف موظفينV2010.rar

ربنا هداني للصيغه دي واستطعت حل مشكلة الاضافى فى الاستعلام OTH: IIf([T_WHours]-9>0.8 And [T_WHours]-9>0;[T_WHours]-9;"0") مع انى جربت اعملها كده بس فى الاول ما ظبطة معايا الحين تعمل كويس