Eng.Qassim

استاذ عمر ... هناك مشاركات كثيرة لاستاذنا العزيز @jjafferr وهي مفيدة جدا .. وان اصبح لي الوقت اجمعها لفائدة الجميع لكني اصبح كسولا في بعض الاحيان لان البرمجة عندي هواية وليس مصدر للكسب

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

الف مبروك حبيبنا واستاذنا @ابو جودي

انا شغال معاي تمام

مرحبا استاذ عمر ..حتى لا تدخل بمتاهات الحلقات التكرارية في النموذج المستمر..اليك هذا التعديل واسف عن التاخير بسبب المشاغل وبسبب ان الكيبورد تبعي (قافل معاي) حضور وانصراف موظفين_TestV31Q.accdb

ولدي العزيز ... لم التفت الى الزيادة لكن من اين جئت بتلك المعادلة ؟ [الموجود]-[الملاك]*0

استاذي العزيز موسى ... صاحب الموضوع هو اعرف من غيره بالحل

استاذ عمر .. ممكن تبعتلي البرنامج الرئيسي ؟ بس مش اواعدك اليوم .. لاني ح نام لان بكرى عندي دوام انا حابب اكمل المشروع مع حضرتك

بتعطيني خطأ ... لكن لما جربت الكود التالي اشتغل صحيح If Me.day1.Text = "Thursday" Or Me.day1.Text = "الخميس" Then

احسنت استاذي @ابوخليل التفاته رائعة ... احيانا يتم التغيير بالمسميات او غيرها دون التطرق لها

والله مافكرت فيها .. عفارم عليك

طيب غير اسماء الخميس والجمعة للانكليزي If Me.day1.Text = "Thursday" Then Me.txtOT = DateDiff("n", [txtStanderTimeOut2], [txtDwamOut]) \ 60 & ":" & DateDiff("n", [txtStanderTimeOut2], [txtDwamOut]) Mod 60 ElseIf Me.day1.Text = "Friday" Then

😂 طيب قارن هذا الكود بالموجود عندك Me.day1.SetFocus If Me.day1.Text = "الخميس" Then Me.txtOT = DateDiff("n", [txtStanderTimeOut2], [txtDwamOut]) \ 60 & ":" & DateDiff("n", [txtStanderTimeOut2], [txtDwamOut]) Mod 60 ElseIf Me.day1.Text = "الجمعة" Then Me.txtOT = DateDiff("n", [txtDwamIn], [txtDwamOut]) \ 60 & ":" & DateDiff("n", [txtDwamIn], [txtDwamOut]) Mod 60 Else Me.txtOT = DateDiff("n", [txtStanderTimeOut1], [txtDwamOut]) \ 60 & ":" & DateDiff("n", [txtStanderTimeOut1], [txtDwamOut]) Mod 60 End If او غير اسم الخميس والجمعة للانكليزي

لماذا ظهر لك بالسالب؟ هذا عندي الظاهر انك غيرت بالكود..بصراحة انا عملت الكود حسب فهمي للدوام

تفضل ايها المدلل.. 1.rar

تفضل استاذ عمر.. حاول ان تغير التاريخ الى يوم الخميس والجمعة OT.accdb

وعليكم السلام.. جرب المرفق..بعد كل 50 رقم يكون الحقل فارغ وتعطيه رقم يبدأ من عنده في التزايد ترقيم تلقائى.accdb

ان كان هو المطلوب يرجى الاشارة الى افضل اجابة

تفضل الصنف.accdb

ضع الكود التالي بعد تحديث السعر Private Sub price_AfterUpdate() Me.priceDate.Value = Date Me.Note.Value = "تم تعديل السعر في اليوم :" & Date End Sub

استاذنا العزيز @اشرف اين الخطأ؟

عفارم عليك استاذي بش مهندس @ابو جودي

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

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

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