عمر ضاحى

السلام عليكم اساتذتي الكرام @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") مع انى جربت اعملها كده بس فى الاول ما ظبطة معايا الحين تعمل كويس

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

الحمد لله عرفت اوصل لاصل المشكله وحليتها لكن باقى معايا انى اطلع ارقام اضافى صحيحه مثلا اذا كان الاضافى اقل من 1 ساعه مثل يعطينى القيمه صفر 0 عاوز اعمل عمود تكون قيمته 8 او 9 حسب الايام ( يوم الخميس 8 و يوم الجمعه 9) علشان اقدر اطرح هذا الرقم من اوقات العمل واكمل باقى العمليات الحسابيه مرفق الملف بعد حل المشكله التى كنت واقع فيها حضور وانصراف موظفينV2010.rar

تم بحمد الله اعادة بناء البرنامج على اوفيس 2010 علشان باقي الاعضاء وبالنسبه للاستعلام الذى كنت اتحدث عنه هو موجود فى هذا البرنامج المرفق باسم PrintDowam1 ؛ فانا بحاجة الى اصلاح الداله الموجوده او ايجاد طرق تكون ايسر لى علشان اقدر استفاد من الاستعلام فى امور اخري حضور وانصراف موظفينV2010.rar

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

طيب هو بداية الاسبوع عندك يوم ايه ؟

اولا باشكر حضرتك بس مش عارف ليه مش شغاله جربت انى احط رقم اخر غير رقم 5 برضه مفيش تغير هو انا لما غيرت الرقم الى 2 اشتغل بس ليه !! كيف يوم الخميس عندي هو رقم 2

استاذي @ناقل ممكن بعد اذن حضرتك اذا لم اثقل عليك اريد ان اضيف شئ فى الكود ان يراجع تسجيل الانصراف اذا كان اليوم الخميس يسجل مثلا انصراف للجميع الساعه 3 عصرا اما باقي الايام يسجل 4 بعد العصر كيف ممكن اعمل ده

هذا هو المطلوب الله يبارك فيك وفى جميع احبابك واهلك والمسلمين جميعا

انا حاليا جاري اعادة بناء البرنامج من جديد على اصدار 2010

هل فى طريقة لتحويلها الى 2010 ؟

اولا باشكر حضرتك على الرد ثانيا بالفعل انا عامل كده انا هرفع المشروع كامل علشان الباقى يستفاد منه حضور وانصراف موظفين.rar