تغيير نص في التقرير اتوماتكيا

[ahmed draz]

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

السادة خبراء المنتدي العريق حياكم الله

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

والمطلوب: استبدال النص (مؤجل ملف الإنجاز و المهمة) 

بالنص التالي : (يؤدى اختبار الجدارات الأساسية فقط و يؤجل التقييم النهائى للجدارات الفنية لحين استكمال اجتياز وحدات البرنامج)

 و استبدال النص : (لا يحق) 

بالنص التالي:(يؤدى اختبار الجدارات الأساسية فقط و لا يحق له التقييم النهائى للجدارات الفنية)  وجزاكم الله خيراً

Database1.accdb

تم تعديل يونيو 25 بواسطه ahmed draz

[M.Abd Allah]

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

هتغير طريقه عرض التقرير للعرض العادى 

بعدها هتعمل زرار فالتقرير مبيظهرش غير فالعرض فقط

وتحط فيه الكود التالى

Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sql As String

    Set db = CurrentDb
    sql = "SELECT * FROM [كشف مناداه - التقييم المعرفي]"
    Set rs = db.OpenRecordset(sql, dbOpenDynaset)

    Do While Not rs.EOF
        If rs![ملاحظات] = "مؤجل ملف الإنجاز و المهمة" Then
            rs.Edit
            rs![ملاحظات] = "يؤدى اختبار الجدارات الأساسية فقط و يؤجل التقييم النهائى للجدارات الفنية لحين استكمال اجتياز وحدات البرنامج"
            rs.Update
        ElseIf rs![ملاحظات] = "لا يحق" Then
            rs.Edit
            rs![ملاحظات] = "يؤدى اختبار الجدارات الأساسية فقط و لا يحق له التقييم النهائى للجدارات الفنية"
            rs.Update
        End If
        rs.MoveNext
    Loop

    rs.Close
    Set rs = Nothing
    Set db = Nothing

    DoCmd.OpenReport "التقييم المعرفي", acViewPreview

 

الان, M.Abd Allah said:

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

هتغير طريقه عرض التقرير للعرض العادى 

بعدها هتعمل زرار فالتقرير مبيظهرش غير فالعرض فقط

وتحط فيه الكود التالى

Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sql As String

    Set db = CurrentDb
    sql = "SELECT * FROM [كشف مناداه - التقييم المعرفي]"
    Set rs = db.OpenRecordset(sql, dbOpenDynaset)

    Do While Not rs.EOF
        If rs![ملاحظات] = "مؤجل ملف الإنجاز و المهمة" Then
            rs.Edit
            rs![ملاحظات] = "يؤدى اختبار الجدارات الأساسية فقط و يؤجل التقييم النهائى للجدارات الفنية لحين استكمال اجتياز وحدات البرنامج"
            rs.Update
        ElseIf rs![ملاحظات] = "لا يحق" Then
            rs.Edit
            rs![ملاحظات] = "يؤدى اختبار الجدارات الأساسية فقط و لا يحق له التقييم النهائى للجدارات الفنية"
            rs.Update
        End If
        rs.MoveNext
    Loop

    rs.Close
    Set rs = Nothing
    Set db = Nothing

    DoCmd.OpenReport "التقييم المعرفي", acViewPreview

 

وده المثال اللي تم التعديل عليه 

draz_example.accdb

[ahmed draz]

السلام عليكم اخي الكريم M.Abd Allah

أحسنت أحسنت أحسنت 

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

فشكرا جزيلا لحضرتك

[M.Abd Allah]

العفو تحت امرك انا معملتش حاجه 

[ahmed draz]

اخي الكريم M.Abd Allah 

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

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

فجزاك الله خيراً

[M.Abd Allah]

ربنا يكرمك خير ويجازيك علي كلامك الحلو ده انا تحت امرك فى اي حاجه لو اقدر مش هتأخر