سؤال بسيط حول تقارير الاكسيس

[haiderkh]

اساتذتنا الكرام  , اعضاء منتدانا هذا

السلام عليكم ورحمة الله وبركاته

في البداية اسمحو لي ان اقول اني اعتب كثيرا عليكم ولكن هو عتب المحب

لم احصل على اجابات لأستفسارات كثيرة سابقة ولا حتى محاولات للاستيضاح ان كان المطلب غير واضح الا قليل

اتصور انكم تعذروني في ذلك لاننا في بداية الطريق

واسمحو لي ان استفسر هذه المرة عن امر اراه صعبا علي لكنه بسيطا بالنسبة لكم

في الصورة المرفقة كيف يمكن الاشارة الى الصف المحدد بالدائرة الحمراء عند عرض التقرير

هل ينفع ان نكتب

Me.ID.Value=4

هل هذا صحيح ام ان هناك طريقة اخرى وفي اي حدث

لاني اريد ان احرك هذا الصف الى مكان اخر غير الذي هو فيه

وعذرا للاطالة

[محمد أبوعبدالله]

  

وعليكم السلام ورحمة الله وبركاته

19 دقائق مضت, haiderkh said:

هل ينفع ان نكتب

Me.ID.Value=4

بهذا الشكل !!! ماذا الفائدة التي تريدها

اقصد انك في التعليمات البرمجيو لا بد ان تحدد ما تريده بالضبط

مثال للتوضيح

if Me.ID.Value=4 then
لون الحقل بلون احمر
else
اتركه كما هو
end if

برجاء توضيح المطلوب اكثر مع مثال للتوضيح اكثر

تحياتي

تم تعديل أبريل 3, 2020 بواسطه محمد ابوعبد الله

[haiderkh]

شكرا جزيلا لردك استاذنا الكريم 

الموضوع طويل استاذ

ولكن لاختصاره اقول

اريد ان احرك هذا الصف الى مكان اخر مثلا

If me.id.value=4 then

Me.id.left=3000

End if

عند استخدام هذا الكود تتحرك كل مربعات ID الى المكان المحدد وليس المربع الذي فيه ID يساوي ٤

تم تعديل أبريل 3, 2020 بواسطه haiderkh

[محمد أبوعبدالله]

تفضل اخي الكريم

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
    If ID = 4 Then
       ID.LeftMargin = 3000
    End If
End Sub

تحياتي

[haiderkh]

ساقوم بتجربته حالا شكرا جزيلا لك ولكن في اي حدث اضعه

[محمد أبوعبدالله]

3 دقائق مضت, haiderkh said:

ولكن في اي حدث اضعه

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

تحياتي

[haiderkh]

احسنت استاذ يعمل تمام

ولكن هل يمكن ان اجعله عند عرض التقرير لان الكود الحالي يعمل عند الطباعة فقط

واعتذر لاني اثقلت عليك

[haiderkh]

للرفع

[jjafferr]

او ممكن على

اذا كان اسم قسم التفصيل بالعربي
Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer)

End Sub


اذا كان اسم قسم التفصيل بالانجليزي
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)

End Sub

 

جعفر

[haiderkh]

شكرا جزيلا استاذ

jjafferr

بارك الله بك  الكود يعمل