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

أبوبسمله

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

  • Posts

    3463

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

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

  • Days Won

    32

 نوع المحتوي 

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

  1. أبوبسمله
    طيب راجع السجل الاول تانى المفروض ع حساباتك يبقى 13 شهر وليس 1 شهر
  2. أبوبسمله
    ؟؟؟ ده ايه ؟ لو صوره مش واضحه حملها تانى
  3. أبوبسمله
    الصوره المرفقه هى بيانات الجدول اللى بالمثال حقلى المده من والى وحقل T هو عدد الاشهر من واقع البيانات المرفقه بمثالك ده الجدول المرفق بمثالك ممكن تحسبلى كل سجل وتقلى الفرق من واقع السجلات اللى انت وضعتها بمثالك
  4. أبوبسمله
    اللهم آمين وميزان حسنات اخوانى واساتذتى ان شاء الله مش فاهم تقصد ايه ممكن تشرح انت عاوز توصل لايه ؟ شرح مفصل بخطواتك بالتوفيق
  5. أبوبسمله
    اتفضل اخى حسام وحاول تعدل علشان تتلافى المشاكل دى وخلى التسميات بالعربى فى تسميه توضيحيه 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 بالتوفيق
  6. أبوبسمله
    الله يسلم عمرك اخى واستاذى ابومهاب وجزاك الله كل خير 💐
  7. أبوبسمله
    لم ارغب بالتنبيه لاننا ننبه ولا احد يستمع حتى وانت تسال عن الحل لا تريد التغيير نعم يوجد بانه تضعه بين الاقواس المربعه [] [نوع الايصال] بالتوفيق
  8. أبوبسمله
    واياكم اخى وجزا الله اخى خالد وجميع اخواننا واساتذتنا خيرا اتفضل ان شاء الله يكون ما تريد اول خطأ فى مصدر سجلات النموذج وضعت معيارك ثم فى حدث بعد التحديث لحقل الكمبو text3 وضعت Private Sub text3_AfterUpdate() Me.Requery End Sub بالتوفيق New Microsoft Access Database (3)(1).rar
  9. أبوبسمله
    السلام عليكم مشاركه لاخى واستاذى العزيز @أبو عبدالله الحلوانى جزاه الله خيرا محاوله منى لانى كمان تهت فشرحك @احمد حبيبه هل هذه النتيجه التى تريدها من واقع البيانات بالمثال تبعك ان لم تكن فبرجاء الشرح اكثر ع البيانات الموجوده بالمثال وان شاء الله ربنا هيسرها بالحل بالتوفيق
  10. أبوبسمله
    السلام عليكم اتفضل اخى ان شاء الله يكون ماتريد جرب ووافنا بالنتيجه فى حدث بعد التحديث لنوع الايصال 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
  11. أبوبسمله
    ومشاركتى للدعاء لاخوانى واساتذتى جزاهم الله خيرا 💐
  12. أبوبسمله
    الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐
  13. أبوبسمله
    الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐
  14. أبوبسمله
    🙂 ايوه الفنكشن بعتذر لاننى لم اوضحها
  15. أبوبسمله
    يزيد فضلك د حسنين انا اطمع بشرح بسيط منك لكل داله ان كان وقتكم يسمح
  16. أبوبسمله
    استاذى العزيز @SEMO.Pa3x جزاك الله خيرا 💐 ممكن استاذنك واطمع بشرح بسيط لكل داله حتى استزيد بشرحكم لفهم
  17. أبوبسمله
    احسن الله اليك اخى واستاذى العزيز بل اننى من يستزيد رصيده المعرفى منك ومن اخوانى واساتذتى بشروحاتكم الجميله فجزاكم الله عنا خيرا 💐
  18. أبوبسمله
    وعليكم السلام د حسنين جزاك الله خيرا 💐
  19. أبوبسمله
    مشاركه مع الدكتور حسنين جزاه الله خيرا 💐 محاوله بسيطه على قدر معرفتى [fatora1] & Left([fatora2];2) & Mid([fatora2];4;2) filed.accdb
  20. أبوبسمله
    الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا تعديل تجميع حسب لحقل التاريخ الى 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; بالتوفيق
  21. أبوبسمله
    وعليكم السلام اخى @rey360 اتفضل ان شاء الله يكون ما تريد ويمكنك تحويل الاستعلام ل vba كما تريد بالتوفيق test.accdb
  22. أبوبسمله
    جزاك الله خيرا اخي ومعلمنا العزيز @jjafferr جعله الله في ميزان حسناتك إن شاء الله 💐
  23. أبوبسمله
    اذا اردت المساعده ساعد نفسك اولا اخى فالصوره غير واضحه بالمره ارفق مثالك حتى يتم التعديل عليه من قبل اخوانك واساتذتنا جزاهم الله خيرا بالتوفيق
  24. أبوبسمله
    وعليكم السلام راجع هذه المشاركه عالرابط التالى لاخى واستاذى العزيز خالد جزاه الله خيرا بالتوفيق
  25. أبوبسمله
    وما احلى التوسع اخى ومعلمنا العزيز جعفر نعم صحيح ما ذكرت استاذى العزيز وتعلمت هذا الدرس يوم ذكرها الاخ هاوى ولكن زحمه الراس بتنسينى جزاك الله خيرا اخى ومعلمى العزيز جعفر
×
×
  • اضف...

Important Information

  I accept