كود تقارير اكسس

[Alaa Malk]

السلام عليكم 

 

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

 

[Barna]

ممكن توضيح اكثر ... ماهو هذا الكود

[Alaa Malk]

 

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

يوجد على الصفحة 5 مربعات اختيار (ممتاز ,جيد جدا , جيدا , مقبول , ضعيف 

وبناء على التقدير يقوم التقرير باختيار المربع المناسب

 

لكنه لا يعمل الا على الصفحة الاولى 

 

احتاج كود لتمرير هذا الامر لكل صفحة بشكل منفصل

Private Sub Report_Load()
    Me.Degree1.SetFocus
Me.TXTEDARI = DLookup("EMP_NAME", "AllEmpInfTbl", "job_title='رئيس القسم الإداري'")

If Me.Degree1 = "ممتاز" Then
Me.CK1.Value = True
Me.CK2.Value = False
Me.CK3.Value = False
Me.CK4.Value = False
Me.CK5.Value = False
ElseIf Me.Degree1 = "جيد جدا" Then
Me.CK1.Value = False
Me.CK2.Value = True
Me.CK3.Value = False
Me.CK4.Value = False
Me.CK5.Value = False
ElseIf Me.Degree1 = "جيد" Then
Me.CK1.Value = False
Me.CK2.Value = False
Me.CK3.Value = True
Me.CK4.Value = False
Me.CK5.Value = False
ElseIf Me.Degree1 = "مقبول" Then
Me.CK1.Value = False
Me.CK2.Value = False
Me.CK3.Value = False
Me.CK4.Value = True
Me.CK5.Value = False
ElseIf Me.Degree1 = "ضعيف" Then
Me.CK1.Value = False
Me.CK2.Value = False
Me.CK3.Value = False
Me.CK4.Value = False
Me.CK5.Value = True

End If

  
End Sub

[Alaa Malk]

تفضل الملف المرفق

rep.rar

Just now, Alaa Malk said:

تفضل الملف المرفق

rep.rar 96.04 kB · 0 downloads

يقوم باختيار ممتاز لكل الصفحات

[jjafferr]

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

 

في التقرير :

1. قبل ان تضع الكود على اي حدث ، تأكد ان تضعه في القسم الصحيح ، والكائنات موجودة عندك في هذا القسم :

.

2. الحدث الصحيح لعمل التنسيق المطلوب هو ، إما حدث "عند التنسيق" او "عند الطباعة" ،

عليه ، يصبح كودك هكذا :

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
'    Me.Degree1.SetFocus
'Me.TXTEDARI = DLookup("EMP_NAME", "AllEmpInfTbl", "job_title='رئيس القسم الإداري'")

        Me.CK1.Value = False
        Me.CK2.Value = False
        Me.CK3.Value = False
        Me.CK4.Value = False
        Me.CK5.Value = False
        
    If Me.Degree1 = "ممتاز" Then
        Me.CK1.Value = True
    ElseIf Me.Degree1 = "جيد جدا" Then
        Me.CK2.Value = True
    ElseIf Me.Degree1 = "جيد" Then
        Me.CK3.Value = True
    ElseIf Me.Degree1 = "مقبول" Then
        Me.CK4.Value = True
    ElseIf Me.Degree1 = "ضعيف" Then
        Me.CK5.Value = True
    End If
    
End Sub

 

جعفر

[Alaa Malk]

شكرا اخ جعفر

قمت بتجريبها مسبقا 

تنجح ولكن تحتاج للنقر على كل صفحة ليتم تفعيل النتيجه

وانا احتاج ان تظهر النتائج صحيح بمجرد اصدار التقرير 

😀

[jjafferr]

7 دقائق مضت, Alaa Malk said:

ولكن تحتاج للنقر على كل صفحة ليتم تفعيل النتيجه

ما فهمت قصدك !!

[Alaa Malk]

شكرا جعفر كلامك مزبوط 

تم التجريب بنجاح

كان بس سوء فهم للصوره .. اعتذر

 

وشكر لك كل الشكر على الحل😍

[jjafferr]

🙂