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

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

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

  • Posts

    1,752

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

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

  • Days Won

    24

 نوع المحتوي 

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

  1. ابو ياسين المشولي
    Me.Box.RowSource = "SELECT tb1.ت, tb1.[العنوان الوظيفي], tb1.[تاريخ التعيين], tb1.الملاحظات " & vbCrLf & _ "FROM tb1;"
  2. ابو ياسين المشولي
    ارفع الجدول مع تحديد ماتريد اخفائها
  3. ابو ياسين المشولي
    جرب هكذا On Error Resume Next With CodeContextObject TempVars.Add "Zeyad", .ID End With
  4. ابو ياسين المشولي
    اتفضل هذا كود الماكرو With CodeContextObject TempVars.Add "Zeyad", .ID End With
  5. ابو ياسين المشولي
    شوف المرفق اللي رفعنه لك عند عمل تصميم للتقرير في شي اسمه تقصيل في حدث عند الطباعه هناك وضعت الكود
  6. ابو ياسين المشولي
    العفو اخي بالتوفيق نحن هنا نفيد ونستفيد والشكر لهذا المنتدى الرائع
  7. ابو ياسين المشولي
    هل هو المطلوب ام لا
  8. ابو ياسين المشولي
    انظر للملف المرفق
  9. ابو ياسين المشولي
    22.accdb انا وضعته عند الخروج وهو شغال ميه في الميه
  10. ابو ياسين المشولي
    محمد التميمي جرب هذا Me.resultant = Me.weight / Me.Length * 2
  11. ابو ياسين المشولي
    عند التصغير في الامر وليس في الاساس انت لازم تخفي التصغير الافتراضي وتعتمد على الامر
  12. ابو ياسين المشولي
    ونحن كيف نعرف ذلك لبد من رفع الملف مع شرح المطلوب التطبيق العملي خير من الاحتمالات
  13. ابو ياسين المشولي
    اخي زياد ارفع الملف اللي فيه الماكرو
  14. ابو ياسين المشولي
    final.rar
  15. ابو ياسين المشولي
    اتفضل اتمنى يكون المطلوب دعوة بظهر الغيب تكفي الكهرباء.rar
  16. ابو ياسين المشولي
    طلبك تم الرد عليه هناء
  17. ابو ياسين المشولي
    خالد سيسكو من الاحترام والاصول الرد على من يرد بطلبك لا نريد منك شي بس من الاحترام انه كما طلبت من هذا الموقع المساعده فيتوجب عليك الرد سوى كان الاجاب صحيحه ام خاطئه
  18. ابو ياسين المشولي
    وهذا مثال للشرط الثاني If Not IsNull(Me.ChooseTble) = True Then If Me.ChooseTble = "tb1" Then Me.Box.RowSource = "Table/Query" Me.Box.RowSource = "SELECT tb1.[ÇÓã ÇáãæÙÞ], tb1.[ÇáÚäæÇä ÇáæÙíÝí]" & _ "FROM tb1;" Box.Requery End If End If final.rar
  19. ابو ياسين المشولي
    اتفضل هذا بصيغه xlsx final.accdb
  20. ابو ياسين المشولي
    ارفع الملف
  21. ابو ياسين المشولي
    بالتوفيق اخي
  22. ابو ياسين المشولي
    جرب هذا الامر الاول If Not IsNull(Me.text1) Then Me.Frm1.Form!Qty_Total = Me.text1 End If الامر الثاني If Not IsNull(Me.text1) Then Me.Frm1.Form!Qty_Spece = Me.text1 End If
  23. ابو ياسين المشولي
    بالتوفيق اخي حسين
  24. ابو ياسين المشولي
    وهذا تطبيق لما اشرت نسخة اوفيسنا تنسيق التقرير.rar
  25. ابو ياسين المشولي
    الكود واضح اخي هي داله موجوده في المدويل ثم يتم استعها في حدث عند الطباعه Call DrawBoxes(Me, acDetail)
×
×
  • اضف...

Important Information

  I accept