اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أبوبسمله

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    3467

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

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

  • Days Won

    33

 نوع المحتوي 

كل منشورات العضو أبوبسمله

  1. أبوبسمله
    السلام عليكم اتفضلى هل هذا ما تريديه ؟ انا قمت بادخال المعيار فالاستعلام الداخلى للتقرير لانى لا اعرف فى اى نموذج سوف يتم استدعاء التقرير بالتوفيق ايجار معدات للغير1.rar
  2. أبوبسمله
    الحمدلله الذى بنعمته تتم الصالحات والشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا بالتوفيق
  3. أبوبسمله
  4. أبوبسمله
    ولا يهمك اتفضل DateDiff("m";[AGAM1];[AGAM2]) New_Ahmed_DateDiff1.accdb
  5. أبوبسمله
    طيب راجع السجل الاول تانى المفروض ع حساباتك يبقى 13 شهر وليس 1 شهر
  6. أبوبسمله
    ؟؟؟ ده ايه ؟ لو صوره مش واضحه حملها تانى
  7. أبوبسمله
    الصوره المرفقه هى بيانات الجدول اللى بالمثال حقلى المده من والى وحقل T هو عدد الاشهر من واقع البيانات المرفقه بمثالك ده الجدول المرفق بمثالك ممكن تحسبلى كل سجل وتقلى الفرق من واقع السجلات اللى انت وضعتها بمثالك
  8. أبوبسمله
    اللهم آمين وميزان حسنات اخوانى واساتذتى ان شاء الله مش فاهم تقصد ايه ممكن تشرح انت عاوز توصل لايه ؟ شرح مفصل بخطواتك بالتوفيق
  9. أبوبسمله
    اتفضل اخى حسام وحاول تعدل علشان تتلافى المشاكل دى وخلى التسميات بالعربى فى تسميه توضيحيه Private Sub kindEsal_AfterUpdate() 'kindEsal - نوع الاصال If kindEsal = "دفع نقدى" Then If Len(Forms("البيانات الرئيسيه").Form.[ZDate] & "") = 0 Then Forms("البيانات الرئيسيه").Form![krd] = 0 Forms("البيانات الرئيسيه").Form.[numKrd] = 0 Forms("البيانات الرئيسيه").Form.[kst] = 0 End If End If End Sub بالتوفيق
  10. أبوبسمله
    الله يسلم عمرك اخى واستاذى ابومهاب وجزاك الله كل خير 💐
  11. أبوبسمله
    لم ارغب بالتنبيه لاننا ننبه ولا احد يستمع حتى وانت تسال عن الحل لا تريد التغيير نعم يوجد بانه تضعه بين الاقواس المربعه [] [نوع الايصال] بالتوفيق
  12. أبوبسمله
    واياكم اخى وجزا الله اخى خالد وجميع اخواننا واساتذتنا خيرا اتفضل ان شاء الله يكون ما تريد اول خطأ فى مصدر سجلات النموذج وضعت معيارك ثم فى حدث بعد التحديث لحقل الكمبو text3 وضعت Private Sub text3_AfterUpdate() Me.Requery End Sub بالتوفيق New Microsoft Access Database (3)(1).rar
  13. أبوبسمله
    السلام عليكم مشاركه لاخى واستاذى العزيز @أبو عبدالله الحلوانى جزاه الله خيرا محاوله منى لانى كمان تهت فشرحك @احمد حبيبه هل هذه النتيجه التى تريدها من واقع البيانات بالمثال تبعك ان لم تكن فبرجاء الشرح اكثر ع البيانات الموجوده بالمثال وان شاء الله ربنا هيسرها بالحل بالتوفيق
  14. أبوبسمله
    السلام عليكم اتفضل اخى ان شاء الله يكون ماتريد جرب ووافنا بالنتيجه فى حدث بعد التحديث لنوع الايصال Private Sub kindEsal_AfterUpdate() 'kindEsal - نوع الاصال If kindEsal = "دفع نقدى" Then With Forms!form1! If Len(.ZDate & "") = 0 Then .krd = 0 .numKrd = 0 .kst = 0 End If End With End If End Sub بالتوفيق New Microsoft Office Access Application.mdb
  15. أبوبسمله
    ومشاركتى للدعاء لاخوانى واساتذتى جزاهم الله خيرا 💐
  16. أبوبسمله
    الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐
  17. أبوبسمله
    الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐
  18. أبوبسمله
    🙂 ايوه الفنكشن بعتذر لاننى لم اوضحها
  19. أبوبسمله
    يزيد فضلك د حسنين انا اطمع بشرح بسيط منك لكل داله ان كان وقتكم يسمح
  20. أبوبسمله
    استاذى العزيز @SEMO.Pa3x جزاك الله خيرا 💐 ممكن استاذنك واطمع بشرح بسيط لكل داله حتى استزيد بشرحكم لفهم
  21. أبوبسمله
    احسن الله اليك اخى واستاذى العزيز بل اننى من يستزيد رصيده المعرفى منك ومن اخوانى واساتذتى بشروحاتكم الجميله فجزاكم الله عنا خيرا 💐
  22. أبوبسمله
    وعليكم السلام د حسنين جزاك الله خيرا 💐
  23. أبوبسمله
    مشاركه مع الدكتور حسنين جزاه الله خيرا 💐 محاوله بسيطه على قدر معرفتى [fatora1] & Left([fatora2];2) & Mid([fatora2];4;2) filed.accdb
  24. أبوبسمله
    الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا تعديل تجميع حسب لحقل التاريخ الى WHERE SELECT Table1.nom, Table1.Designation, Sum(Table1.ts) AS Sumts FROM Table1 WHERE (((DateValue([datefacture]))>=#1/8/2021# And (DateValue([datefacture]))<=#1/9/2021#)) GROUP BY Table1.nom, Table1.Designation; بالتوفيق
  25. أبوبسمله
    وعليكم السلام اخى @rey360 اتفضل ان شاء الله يكون ما تريد ويمكنك تحويل الاستعلام ل vba كما تريد بالتوفيق test.accdb
×
×
  • اضف...

Important Information

  I accept