abdul_algalal

السلام عليكم ورحمة الله اخواني ارجو المساعدة في هذا الكود التالي الذي ينفذه زر 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 ولكم جزيل الشكر

تمت العمليه بنجاح حفظك الله اخي واستاذنا محمد ايمن

العفو منك استاذنا محمد ايمن لم انجح في تطبيق المثال الذي جبت فهذا المثال لدي في المرفق وانا اشكرك لاهتمامك جزاك الله خير الجزاء مثال مربع السرد.rar

تسلم يالغالي بارك الله فيك شكراً

السلام عليكم ورحمة الله وبركاتة ارجوا منكم كود عند الرجوع للنموذج يظهر اخر عمليه في مربع التحرير والسرد طبعاً مصدر السجلات في المربع الاول من الاستعلام والمربع الثاني من قائمة مخصصة ولكم جزيل الشكر والتقدير

تفضل المثال بعد التعديل وانا شاكرلك كل الشكر والتقدير اخي ابا جودى . الله يعطيك العافيه والله ماقصرت معي واعذرني للتقصير في المثال الجمع حسب لون الرقم في التقرير2.rar

شكراً على اهتمامك اباجودى المطلوب جمع الرقم بحسب اللون وليس بحسب قيمة اصغر من او اكبر من وشكراً للجميع

الرجاء المساعدة في جمع الارقام في تقرير اكسس بحسب لون الرقم مرفق المثال وشكراً لكم الجمع حسب لون الرقم في التقرير.rar

شكراً الف شكر على الافاده واقدم اعتذاري على المخالفه لكوني لا ادري

المعذره المقصود لون النص يعني لون الرقم 1+1=2

استاذ عبدالفتاح ارجو منك الافاده اريد جمع الحقل الذي يحتوي على لون النص اسود في التقرير (اكسس) هذا الكود تم استخراج النص باللون الاسود باقي اريد جمع النص باللون الاسود فقط ( في تفاصيل التقرير) 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 ,,,,,,,,,,,,,,,,ولك جزيل الشكر والتقدير,,,,,,,,,,,,,,,,,,

الله يعطيك العافيه تمت الطريقه بنجاح الف الف شـــكــــر لاستاذنا القدير عبدالفتاح

السلام عليكم استاذ عبدالفتاح لقد استفدنا من شروحاتك الكثير . الله يجعلها في ميزان حسناتك (آمين يارب) لدي سؤال اذا تكرمت هو كيف اقارن بين عمودين في استعلام اكسس مثل هذه الداله في الاكسيل اريدها في الاستعلام =IF(ISNUMBER(MATCH(B1;A1;0));"موجود";"غير موجود") (المطلوب الكود الذي اكتبه في العمود الجديد"المقارنه") المثال عمود1 عمود2 المقارنه 9999 9999 موجود 9998 9999 غيرموجود ولك جزيل الشكر والتقدير. ؛؛؛؛؛؛؛؛؛؛؛؛