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            غيرموجود

                                                                                            ولك جزيل الشكر والتقدير. ؛؛؛؛؛؛؛؛؛؛؛؛