طريقة وضع الصورة في التقرير

[بلال اليامين]

السلام عليكم

لدي تقرير  فيه صورة تحتوي على قائمة الموظفين

اليك البرنامج عند فتح البرنامج يظهر لك نموذج وبداخل النموذج  زر طباعة عند الظغط على الزر يفتح التقرير الذي بداخله الصور

اريد عند اختيار اسم اي موظف يتم تلوين معلوماته 

1874978365_.rar

[رابح1999]

لسلام عليكم

لدي قائمة الموظفين على شكل صورة فيها 27 موظف

اريد عند الضغط على زر طباعة يظهر اسم الموظف الموظف الذي اخترته

تم تعديل نوفمبر 28, 2020 بواسطه رابح1999

[ابو جودي]

ممكن مرفق

[رابح1999]

اخي  ابا جودي الملف لم اسطيع رفعه ولقد تما رفع قاعدة البيانات بلال اليامين في المشاركة

اخي انني لم اسطيع رفع قاعدة البيانات وارسلته الى الاخ بلال وتما رفع في المشاركة

طريقة فتح التقرير على اسم الموظف الذي تما اختياره

اخي افتح الموضوع وسوف تجد البرنامج  وشكرا 

[بلال اليامين]

اخي اليك المرفق

525429474_.rar

[ابو جودي]

 فى حاجه غلط 

 

[بلال اليامين]

اخي اليك المرفق

1344940174_.rar

[ابو جودي]

6 دقائق مضت, بلال اليامين said:

اخي اليك المرفق

525429474_.rar 2.62 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

 

 

طيب بالله عليك انا اعمل ايه  

[بلال اليامين]

[jjafferr]

وعليكم السلام 🙂

 

ولو اني مالي علاقة بالتصميم ، ولكن سؤالي :

1. النموذج الرئيسي ،

2. ثم النموذج الفرعي1 Main2 ،

3. ثم النموذج الفرعي2 forma3

هل هناك سبب لعمل هذه النماذج الفرعية ؟

.

في ٢٦‏/١١‏/٢٠٢٠ at 02:07, بلال اليامين said:

اريد عند اختيار اسم اي موظف يتم تلوين معلوماته

اي معلومات تريد تلوينها ؟

اعطينا مثال.

 

جعفر

[ابو جودي]

حضرتك دى صورة مش سجلات 

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

هذا والله اعلم

[بلال اليامين]

اليك الشرح

[بلال اليامين]

اخي jjafferr  النموذج الرئيسي ، يوجد حقول في النموذج الرئيسي لاضافة موظف جديد

اخي وبعد اعمل زر الحاق في النموذج الفرعي لان النموذج الفرعي فيه الموظفين الذين تم انتهاء عملهم

 

[ابو جودي]

6 دقائق مضت, بلال اليامين said:

اليك الشرح

انا والله فهمت قصد حضرتك

بس انا اعرف البرنامج ازاى ان اول سطر دع يخص الموظف الفلانى وان تانى سطر يخص آخر وهكذا

وان فرضنا جدلا ده ممكن ولو انه مستحيل ازاى اخلى البرنامج يعمل هاى لايت  على السطر ده فى الصورة

 

طلبك هذا يستحيل تحقيقه سيدى الفاضل وهو اصلا طلب غير منطقى لان البرمجة هى معالجة للبيانات وهذه الصورة ليست بيانات هذه بالنسبة للاكسس جماد كائن واحد ان تم التعامل مع يتم التعامل معه جملة واحدة

[بلال اليامين]

اخي و عند وضع الحقول في التقرير و تحديد الموظف بالون الاصفر

 

[jjafferr]

هناك طريقتين:

1. اذا كانت الاسطر في الصورة متساوية ، ويمكن عمل المربع حول السطر ، وهذا المربع ينزل بعدد معين لكل سطر ، فيمكن تحريكه برمجيا / مثلا :

نضبط المربع على السطر الاول ، ثم ننزله بالاسهم (Arrow keys down) الى ان يحتوي السطر الثاني (مثلا ضغطنا على السهم الاسفل 6 مرات) ، فيجب ان نضغط 6 مرات اخرى حتى نحتوي السطر الثالث ، وهكذا (ولكن وللأسف الاسطر في الصورة غير متساوية ، فلا يمكن استعمال هذه الطريقة ،

2. ان نعمل جدول خاص ، نكتب فيه رقم السطر (المثال على السطر 15) ، ونكتب قيمة TOP المربع ،

نضع التقرير في وضع التصميم ، ثم نحركة بواسطة الاسهم ، ولما يحتوي المربع السطر ، نكتب رقم السطر وقيمة TOP ، وهنا يمكننا استخدام هذه الطريقة :

 

.

وهذه نتيجة الضغظ على "رقم التسجيل" 4 (للعلم ، جربت اللون الاصفر ولا يبرز ، فاستعملت اللون الاحمر) :

.

ولأن الصورة في قسم Page Header ، فيجب ان نعمل حدث "عند التنسيق" به :

.

و الكود في التقرير يأخذ قيمة TOP رقم التسجيل من الجدول ،

ثم نضرب الرقم (رقمي بالبوصة * 1440 ، بينما لو كان رقمك بالسنتيمتر فيكون * 567 ) :

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)

    Dim rpt_Top As Double
    Dim rpt_Name As String
    Dim myWhere As String

    rpt_Top = DLookup("[rTop]", "tbl_rpt_Rows", "rRow=" & rpt_Row)
    
    Me.Box5.Top = rpt_Top * 1440
End Sub

.

ونكون قد ارسلنا "رقم السجل" من النموذج الفرعي الى المتغير rpt_Row رقم سطر التسجيل :

Private Sub أمر180_Click()
'Call MENUFORMS1991

    Dim rpt_Name As String
    Dim myWhere As String

    rpt_Row = Me.[رقم التسجيل]
    
    rpt_Name = "تقرير1"
    myWhere = ""
    
    DoCmd.OpenReport rpt_Name, acViewPreview, , myWhere
    
End Sub

.

جعفر

1298.سجل.accdb.zip

[بلال اليامين]

بارك الله فيك الاخ جعفر على هذا المجهودات بارك الله فيك

[jjafferr]

حياك الله 🙂

 

جعفر

 

[ابو جودي]

20 ساعات مضت, jjafferr said:

هناك طريقتين:

1. اذا كانت الاسطر في الصورة متساوية ، ويمكن عمل المربع حول السطر ، وهذا المربع ينزل بعدد معين لكل سطر ، فيمكن تحريكه برمجيا / مثلا :

نضبط المربع على السطر الاول ، ثم ننزله بالاسهم (Arrow keys down) الى ان يحتوي السطر الثاني (مثلا ضغطنا على السهم الاسفل 6 مرات) ، فيجب ان نضغط 6 مرات اخرى حتى نحتوي السطر الثالث ، وهكذا (ولكن وللأسف الاسطر في الصورة غير متساوية ، فلا يمكن استعمال هذه الطريقة ،

2. ان نعمل جدول خاص ، نكتب فيه رقم السطر (المثال على السطر 15) ، ونكتب قيمة TOP المربع ،

نضع التقرير في وضع التصميم ، ثم نحركة بواسطة الاسهم ، ولما يحتوي المربع السطر ، نكتب رقم السطر وقيمة TOP ، وهنا يمكننا استخدام هذه الطريقة :

 

.

وهذه نتيجة الضغظ على "رقم التسجيل" 4 (للعلم ، جربت اللون الاصفر ولا يبرز ، فاستعملت اللون الاحمر) :

.

ولأن الصورة في قسم Page Header ، فيجب ان نعمل حدث "عند التنسيق" به :

.

و الكود في التقرير يأخذ قيمة TOP رقم التسجيل من الجدول ،

ثم نضرب الرقم (رقمي بالبوصة * 1440 ، بينما لو كان رقمك بالسنتيمتر فيكون * 567 ) :

Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer)

    Dim rpt_Top As Double
    Dim rpt_Name As String
    Dim myWhere As String

    rpt_Top = DLookup("[rTop]", "tbl_rpt_Rows", "rRow=" & rpt_Row)
    
    Me.Box5.Top = rpt_Top * 1440
End Sub

.

ونكون قد ارسلنا "رقم السجل" من النموذج الفرعي الى المتغير rpt_Row رقم سطر التسجيل :

Private Sub أمر180_Click()
'Call MENUFORMS1991

    Dim rpt_Name As String
    Dim myWhere As String

    rpt_Row = Me.[رقم التسجيل]
    
    rpt_Name = "تقرير1"
    myWhere = ""
    
    DoCmd.OpenReport rpt_Name, acViewPreview, , myWhere
    
End Sub

.

جعفر

1298.سجل.accdb.zip 353.01 kB · 8 downloads

ما شاء الله الله اكبر

 مع الاستاذ @jjafferr لا توجد فى قاموس الاكسس كلمة مستحيل