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

ابو ياسين المشولي

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

  • Posts

    1755

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

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

  • Days Won

    24

 نوع المحتوي 

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

  1. ابو ياسين المشولي
    بدل ما تخليه بدون طابعه في كود يغير الطابعه الافتراضيه تعمل في زر امر قبل كود فتح التقرير راجع هذا
  2. ابو ياسين المشولي
    مشاركة مع الحبايب مثال (5).accdb
  3. ابو ياسين المشولي
    غير هذا DoCmd.OpenReport ("إسم التقرير"), acViewPreview ' open report الى DoCmd.OpenReport ("إسم التقرير"), acViewNormal ' open report
  4. ابو ياسين المشولي
    من ترتيب الجدوله اجعله بعد حقل الصنف وان شاء الله يكون حسب طلبك
  5. ابو ياسين المشولي
    اذا كان رقم الفاتورة بالنموذج الرئيسي بيكون هكذا If MsgBox(" هــل تـريـد حفظ الفاتورة رقـم " & vbCrLf & " ( " & me.[idNo] & " ) ", vbYesNo, " تنبية ") = vbYes Then واذا كان بالفرعي بيكون هكذا If MsgBox(" هــل تـريـد حفظ الفاتورة رقـم " & vbCrLf & " ( " & [forms]![sell]![subform].[form]![idNo] & " ) ", vbYesNo, " تنبية ") = vbYes Then
  6. ابو ياسين المشولي
    نعم هذه انا استعملها في برنامجي وهي من خيرات الاستاذ رمهان TempVars.Add "x",[رقم النموذج].Value DoCmd.SetWarnings False DoCmd.OpenQuery "qryJudy" DoCmd.SetWarnings True
  7. ابو ياسين المشولي
    بارك الله فيك وفي الاستاذ رمهان تسلم الايادي
  8. ابو ياسين المشولي
    Barna ابا جودى كلكم حبايبي ربي يسعدكم وكلكم بتسلو على القلب
  9. ابو ياسين المشولي
    شوف هذا لعله يفي بالغرض تحل الاسم او جزء منه ودخل السنه او جزء منها Ex9-29.accdb
  10. ابو ياسين المشولي
    جرب هذا =DSum("[Amount]";"[Sand_T]";"[Sdate]Between DateSerial(year(Date()),[Forms]![SandKashf_F]![bb],1) and DateSerial(year(Date()),[Forms]![SandKashf_F]![bb]+1,0)") بيكون حقل الشهر بالنموذج [Forms]![SandKashf_F]![bb]
  11. ابو ياسين المشولي
    بارك الله فيك
  12. ابو ياسين المشولي
    بالتوفيق اخي
  13. ابو ياسين المشولي
    هو مشروط بسم العميل واسم العميل المفروض لا يتكرر واذا كان كما تقول اعمل زر اخر وبدل زايد اجعلها ناقص
  14. ابو ياسين المشولي
    انا مشيت على ملفك الاول كان الشرط الاسم مثل اسم الجدول الاخر اتفضل التعديل DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE ntak SET ntak.knaw = ntak.knaw+[Forms]![نموذج1]![end]" & vbCrLf & _ "WHERE (((ntak.esm)=[Forms]![نموذج1]![نص611]));" DoCmd.SetWarnings True Microsoft_Access_قاعدة_بيانات_جديد (1).accdb
  15. ابو ياسين المشولي
    اتفضل DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE ntak, ntak1 SET ntak.knaw = ntak.knaw +[Forms]![نموذج1]![end] " & vbCrLf & _ "WHERE (((ntak1.esm)=[Forms]![نموذج1]![نص611]));" DoCmd.SetWarnings True
  16. ابو ياسين المشولي
    للرفع
  17. ابو ياسين المشولي
    لم نقلك ارفع الملف قلت ارفع مثال يعني نموذج البحث بين تاريخ وتقرير البحث على العموم استخدم Between
  18. ابو ياسين المشولي
    للرفع
  19. ابو ياسين المشولي
    المعذرة على سوى الفهم
  20. ابو ياسين المشولي
    ارفع مثال وابشر باللي يسرك
  21. ابو ياسين المشولي
    لاجل عينك استاذ عصام BackUp.rar
  22. ابو ياسين المشولي
    بارك الله فيك اخي عبداللطيف
  23. ابو ياسين المشولي
    شكرا لمرورك اخي kanory الملف اللي بعثه لم اجد فيه اي تغير مازالت المكتبات المفقوده اريد كود يقم بازاله اي مكتبه مفقوده missing
  24. ابو ياسين المشولي
    فتحت موضوع هنا
  25. ابو ياسين المشولي
    اخواني الافاضل هل اجد عندكم حل لمشكلة المكتبات المفقودة Tailorb.accdb
×
×
  • اضف...

Important Information

  I accept