kanory

ارفعها لاي موقع رفع وادرج الرابط هنا .......

طبعا الشيئ نفسة في الاستعلام .... انظر ....

واذا تريدها في التقرير بدون استعلام انظر الصورة ....

هل هذه الصورة المطلوبة ..... تفضل ..... Expr2: Round([t]/[tt]*100;2) & "%" استخدم هذا في الاستعلام

وعليكم السلام ورحمة الله وبركاته معوض خير ..... هذا ما تم استيراده ...... برنامج سلف العاملين 2022 (AccessFIX).mdb

الاكواد موجودة في المنتدى لعلك تبحث عنها .... أو ان ان وجدت فرصة اقتطعها من برنامجي لادرجها هنا .... لانها تصبح غير قابلة التعديل وخاصة للنماذج والتقارير ..... اما الجداول فممكن التعديل عليها .... السائل كان يسأل عن النماذج ..... والافضل دائما في حالة البرامج اجعلها قاعدتين ( امامية - خلفية ) ليسهل التعامل معها سواءا كانت MDE أ MDB

طلبنا المرفق حتى لا تطول الاستفسارات والتعديلات .... تفضل ........... Forms![Customers]![Address].ColumnWidth = -2 وانا اتوقف عند هذا الحد !!!

ممكن تزودنا بمرفق بسيط للفكرة وماذا تريد ان تعمل ... بارك الله فيك

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

وعليكم السلام ورحمة اله وبركاته .... اذا كانت نسخ البرنامج تم توزيعها بصيغة ( MDB أو ACCDB ) يمكن ارسال برنامج صغير فيه النماذج المعدلة .... وظيفة هذا البرنامج حذف النماذج القديمة من البرنامج لدي المستخدمين ثم اضافة النماذج المعدلة الى برامج المستخدمين ... ( لكن يجب عمل نسخ احتياطية قبل ذلك ) طبعا هناك طرق اخرى ... لو استخدمت البحث في المنتدى كان أفضل لاثراء افكارك بافكار أخرى ... ..............................................................................................................

أو جرب هذا الكود ..... DoCmd.OutputTo acReport, "rpt1"

طيب حاول البحث في المنتدى تجد العديد من المواضيع منها هذا الشرح .....

ليش ما تحولها PDF وتريح نفسك .... عشان التنسيق ....

الكود شغال عندي يطبع نسختين ( نسخة كاملة ثم نسخة كاملة اخر ) أي مرتبة ........

ضع الزر في النموذج وليس في التقرير .... ثم انسخ الكود السابق والصقة في حدث عند النقر .... واخبرنا بالنتيجة ...

ما فهمت عليك .... كيف نسخة واحدة ؟؟؟؟؟ والزرار ظاهر ؟؟؟؟؟ وضح !!!!

جرب هذا ...... DoCmd.SelectObject acReport, "اسم التقرير", True DoCmd.PrintOut , , , , 2

نعم تفضل >>>>>>>>>>>>>>>>>> M_L - Copy.mdb

استخدم هذا الكود بدل الموجود في زر الطباعة ....... DoCmd.OpenReport "print1", acViewNormal, , "[رقم أمر العمل]=" & Forms![نموذج1]![rr]

وعليكم السلام ورحمة الله وبركاته أيش المطلوب وضح ......

تفضل >>>>>> M_L - Copy.mdb

اذا كان تقصد ان هناك تقرير اخر وتريد استخدام نفس الكود ... طبق نفس الطريقة .. وبنعدل بسيط في الارقام وبالمحاولة والخطأ حتى تصل للمطلوب لان كل تقرير يختلف عن الاخر من حيث حجم السجلات به Me.PageHeaderSection.Height = 36 * 287

استخدم الكود بهذه الطريقة مع اكمال بقية الكائنات بنفس الطريقة .................. If (Me.Page / 2) = Int(Me.Page / 2) Then Me.PageHeaderSection.Height = 36 * 287 Me.id_تسمية.Visible = False Me.date1_تسمية.Visible = False Else Me.PageHeaderSection.Height = 0 Me.id_تسمية.Visible = True Me.date1_تسمية.Visible = True End If

تفضل .... 2.accdb

طيب فكرة على فكر اساتذتنا الكرام نقوم بزيادة ونقصان رأس الصفحة كما يلي .... ضع هذا الكود في حدث عند التنسيق .... If (Me.Page / 2) = Int(Me.Page / 2) Then Me.PageHeaderSection.Height = 36 * 287 Else Me.PageHeaderSection.Height = 0 End If جرب واعلمنا بالنتيجة .....