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

abdul_algalal

عضو جديد 01
  • Posts

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

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

السمعه بالموقع

7 Neutral

عن العضو abdul_algalal

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    malik
  1. السلام عليكم ورحمة الله اخواني ارجو المساعدة في هذا الكود التالي الذي ينفذه زر command0 من النموذج form1 واسم التقرير من combobox لفتح التقرير في وضع التصميم لدي مايقارب 50 تقرير المشكله في تغيير ارتفاع مربع النص وتباعد مربع النص انو اكتب كل اسم التقارير كما في الكود ادناه والمطلوب اريد ان يأخذ اسم التقرير من ال combobox كما يأخذه لعرض التصميم بدلاّ من هذا التالي Report_Report1.Name.Height = Text2 Report_Report1.Detailing.Height = 0 Report_Report2.Name.Height = Text2 Report_Report2.Detailing.Height = 0 الى اخره الكود لدي Private Sub Command0_Click() Dim stDocName As String stDocName = Me!ComboBox DoCmd.OpenReport stDocName, acViewDesign Report_Report1.Name.Height = Text2 Report_Report1.Detailing.Height = 0 ولكم جزيل الشكر
  2. العفو منك استاذنا محمد ايمن لم انجح في تطبيق المثال الذي جبت فهذا المثال لدي في المرفق وانا اشكرك لاهتمامك جزاك الله خير الجزاء مثال مربع السرد.rar
  3. السلام عليكم ورحمة الله وبركاتة ارجوا منكم كود عند الرجوع للنموذج يظهر اخر عمليه في مربع التحرير والسرد طبعاً مصدر السجلات في المربع الاول من الاستعلام والمربع الثاني من قائمة مخصصة ولكم جزيل الشكر والتقدير
  4. تفضل المثال بعد التعديل وانا شاكرلك كل الشكر والتقدير اخي ابا جودى . الله يعطيك العافيه والله ماقصرت معي واعذرني للتقصير في المثال الجمع حسب لون الرقم في التقرير2.rar
  5. شكراً على اهتمامك اباجودى المطلوب جمع الرقم بحسب اللون وليس بحسب قيمة اصغر من او اكبر من وشكراً للجميع
  6. الرجاء المساعدة في جمع الارقام في تقرير اكسس بحسب لون الرقم مرفق المثال وشكراً لكم الجمع حسب لون الرقم في التقرير.rar
  7. شكراً الف شكر على الافاده واقدم اعتذاري على المخالفه لكوني لا ادري
  8. استاذ عبدالفتاح ارجو منك الافاده اريد جمع الحقل الذي يحتوي على لون النص اسود في التقرير (اكسس) هذا الكود تم استخراج النص باللون الاسود باقي اريد جمع النص باللون الاسود فقط ( في تفاصيل التقرير) Private Sub ÊÝÕíá_Print(Cancel As Integer, PrintCount As Integer) Dim RetColor As Long If [mm] = "abdul" Or [mm] = "algalal" Then [w].ForeColor = vbBlack Else [w].ForeColor = vbWhite End If End Sub ,,,,,,,,,,,,,,,,ولك جزيل الشكر والتقدير,,,,,,,,,,,,,,,,,,
  9. الله يعطيك العافيه تمت الطريقه بنجاح الف الف شـــكــــر لاستاذنا القدير عبدالفتاح
  10. السلام عليكم استاذ عبدالفتاح لقد استفدنا من شروحاتك الكثير . الله يجعلها في ميزان حسناتك (آمين يارب) لدي سؤال اذا تكرمت هو كيف اقارن بين عمودين في استعلام اكسس مثل هذه الداله في الاكسيل اريدها في الاستعلام =IF(ISNUMBER(MATCH(B1;A1;0));"موجود";"غير موجود") (المطلوب الكود الذي اكتبه في العمود الجديد"المقارنه") المثال عمود1 عمود2 المقارنه 9999 9999 موجود 9998 9999 غيرموجود ولك جزيل الشكر والتقدير. ؛؛؛؛؛؛؛؛؛؛؛؛
×
×
  • اضف...

Important Information