اذهب الي المحتوي
أوفيسنا

Eng.Qassim

الخبراء
  • Posts

    2390
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    22

كل منشورات العضو Eng.Qassim

  1. الف مبروك حبيبنا واستاذنا @ابو جودي
  2. انا شغال معاي تمام
  3. مرحبا استاذ عمر ..حتى لا تدخل بمتاهات الحلقات التكرارية في النموذج المستمر..اليك هذا التعديل واسف عن التاخير بسبب المشاغل وبسبب ان الكيبورد تبعي (قافل معاي) حضور وانصراف موظفين_TestV31Q.accdb
  4. ولدي العزيز ... لم التفت الى الزيادة لكن من اين جئت بتلك المعادلة ؟ [الموجود]-[الملاك]*0
  5. استاذي العزيز موسى ... صاحب الموضوع هو اعرف من غيره بالحل
  6. استاذ عمر .. ممكن تبعتلي البرنامج الرئيسي ؟ بس مش اواعدك اليوم .. لاني ح نام لان بكرى عندي دوام انا حابب اكمل المشروع مع حضرتك
  7. بتعطيني خطأ ... لكن لما جربت الكود التالي اشتغل صحيح If Me.day1.Text = "Thursday" Or Me.day1.Text = "الخميس" Then
  8. احسنت استاذي @ابوخليل التفاته رائعة ... احيانا يتم التغيير بالمسميات او غيرها دون التطرق لها
  9. والله مافكرت فيها .. عفارم عليك
  10. طيب غير اسماء الخميس والجمعة للانكليزي 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
  11. 😂 طيب قارن هذا الكود بالموجود عندك 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 او غير اسم الخميس والجمعة للانكليزي
  12. لماذا ظهر لك بالسالب؟ هذا عندي الظاهر انك غيرت بالكود..بصراحة انا عملت الكود حسب فهمي للدوام
  13. تفضل استاذ عمر.. حاول ان تغير التاريخ الى يوم الخميس والجمعة OT.accdb
  14. وعليكم السلام.. جرب المرفق..بعد كل 50 رقم يكون الحقل فارغ وتعطيه رقم يبدأ من عنده في التزايد ترقيم تلقائى.accdb
  15. ان كان هو المطلوب يرجى الاشارة الى افضل اجابة
  16. ضع الكود التالي بعد تحديث السعر Private Sub price_AfterUpdate() Me.priceDate.Value = Date Me.Note.Value = "تم تعديل السعر في اليوم :" & Date End Sub
  17. استاذنا العزيز @اشرف اين الخطأ؟
  18. انظر الى Query1 .. بيعطيك مستحقات الاضافي لكل موظف وبعدها اسأل سؤالك الثاني ... اصلي ما بكمعش دفعة واحدة حضور وانصراف موظفينV2010.rar
  19. وعليكم السلام استاذ عمر .. المشكلة انك عامل تجميع في الفلترة احذف التجميع وشاهد النتيجة
  20. الرجاء منك شرح تلك المعلومة ... فنحن طلاب علم جزاك الله خيرا
  21. استاذنا العزيز @ناقل.. اعتقد هو موضوع جديد على منتدانا بدأ به استاذنا الجليل ابو ابراهيم الغامدي طرحك الجريء جعلني قبل قليل اتصفح بعض المواقع الاجنبية حول الموضوع .. لكنني لم اعرف من اين ابدأ انا اعلم بأن (حوصلتك) كبيرة كما نقولها في العراقي 😄.. وعليك طرح المواضيع في هذا الخصوص لتعطينا دعما في البحث لينتفع منه بقية اخوتنا
  22. استاذنا العزيز @الحلبي.. الموضوع الذي طرحته في غاية الاهمية لكن تبقى هناك مسألة مهمة امام المبرمج .. وهو عملية الاحصاء حسب طبيعة العمل التجاري للزبون اقصد انه ربما بعد عدة سنوات ربما تتجاوز قاعدة البيانات حجم 2 كيكابايت... هل يقوم المبرمج بعملية تصدير البيانات الى شيت اكسل بعد عدة سنوات لا فراغ قاعدة البيانات ؟
×
×
  • اضف...

Important Information