Eng.Qassim

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

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

طيب غير اسماء الخميس والجمعة للانكليزي 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

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

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

استاذنا العزيز @ناقل.. اعتقد هو موضوع جديد على منتدانا بدأ به استاذنا الجليل ابو ابراهيم الغامدي طرحك الجريء جعلني قبل قليل اتصفح بعض المواقع الاجنبية حول الموضوع .. لكنني لم اعرف من اين ابدأ انا اعلم بأن (حوصلتك) كبيرة كما نقولها في العراقي 😄.. وعليك طرح المواضيع في هذا الخصوص لتعطينا دعما في البحث لينتفع منه بقية اخوتنا

استاذنا العزيز @الحلبي.. الموضوع الذي طرحته في غاية الاهمية لكن تبقى هناك مسألة مهمة امام المبرمج .. وهو عملية الاحصاء حسب طبيعة العمل التجاري للزبون اقصد انه ربما بعد عدة سنوات ربما تتجاوز قاعدة البيانات حجم 2 كيكابايت... هل يقوم المبرمج بعملية تصدير البيانات الى شيت اكسل بعد عدة سنوات لا فراغ قاعدة البيانات ؟

اعتقد المفروض Select Case Me.Combo30 لكن بصراحة لم افهم كيف يعمل البرنامج

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

بالتوفيق ان شاء الله

حرب المرفق اخي واعطنا النتيجة autoNum every day.accdb

ممكن شرح تفصيلي لمطلبك؟

ربما المحاسبين افضل مني في ذلك ..لكني تتبعت المتوالية لديك هذا ما طلع معي: Select Case moTr Case 0 To 20000: IRG_New = 0 Case 20010 To 40000: IRG_New = (moTr - 20000) * 0.23 Case 40001 To 80000: IRG_New = 10000 + (moTr - 20000) * 0.27 Case 80001 To 160000: IRG_New = 26200 + (moTr - 80000) * 0.3 Case 160001 To 320000: IRG_New = 50200 + (moTr - 160000) * 0.33 Case Is > 320000: IRG_New = 103000 + (moTr - 320000) * 0.35 End Select

شكرا لك استاذ موسى ..و مزيد من العطاء