ahmed draz قام بنشر يونيو 25 مشاركة قام بنشر يونيو 25 (معدل) السلام عليكم ورحة الله السادة خبراء المنتدي العريق حياكم الله لدي جدول به نص و أريد عند طباعة التقرير أن يتم استبدال النص بنص أخر اتومايكيا والمطلوب: استبدال النص (مؤجل ملف الإنجاز و المهمة) بالنص التالي : (يؤدى اختبار الجدارات الأساسية فقط و يؤجل التقييم النهائى للجدارات الفنية لحين استكمال اجتياز وحدات البرنامج) و استبدال النص : (لا يحق) بالنص التالي:(يؤدى اختبار الجدارات الأساسية فقط و لا يحق له التقييم النهائى للجدارات الفنية) وجزاكم الله خيراً Database1.accdb تم تعديل يونيو 25 بواسطه ahmed draz رابط هذا التعليق شارك More sharing options...
أفضل إجابة M.Abd Allah قام بنشر يونيو 25 أفضل إجابة مشاركة قام بنشر يونيو 25 السلام عليكم ورحمه الله وبركاته هتغير طريقه عرض التقرير للعرض العادى بعدها هتعمل زرار فالتقرير مبيظهرش غير فالعرض فقط وتحط فيه الكود التالى 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 1 رابط هذا التعليق شارك More sharing options...
ahmed draz قام بنشر يونيو 26 الكاتب مشاركة قام بنشر يونيو 26 السلام عليكم اخي الكريم M.Abd Allah أحسنت أحسنت أحسنت وجزاك الله خير كود جميل جدا قكل الحلول التي وجدتها تتعامل مع الاستعلام ولم تعجبني فشكرا جزيلا لحضرتك رابط هذا التعليق شارك More sharing options...
M.Abd Allah قام بنشر يونيو 26 مشاركة قام بنشر يونيو 26 العفو تحت امرك انا معملتش حاجه 1 رابط هذا التعليق شارك More sharing options...
ahmed draz قام بنشر يونيو 26 الكاتب مشاركة قام بنشر يونيو 26 اخي الكريم M.Abd Allah قد يظن البعض أن مساعدتهم للناس امر بسيط ولا يذكر ولكن في الحقيقة تلك المساعد البسيطة هي بالفعل كل ماتتوقف عليه منشأة كبيرة أو هيئة تخدم الآلاف و أن العمل متوقف على تلك المساعدة الصغيرة من شخص لا تعرفة أبدا يظن أنه لم يفعل شيئا ولكن في الحقيقة أنه كان سببا في تسيير مصالح آلاف الناس دون أن يعلم فجزاك الله خيراً رابط هذا التعليق شارك More sharing options...
M.Abd Allah قام بنشر يونيو 26 مشاركة قام بنشر يونيو 26 ربنا يكرمك خير ويجازيك علي كلامك الحلو ده انا تحت امرك فى اي حاجه لو اقدر مش هتأخر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان