أبو عبدالله الحلوانى قام بنشر فبراير 19, 2015 قام بنشر فبراير 19, 2015 الإخوة اﻷفاضل السلام عليكم ورحمة الله وبركاته هل يوجد كود لعمل zoom in و zoom out للتقرير فى وضع معاينة قبل الطباعة وشكرا للجميع
يوسف أحمد قام بنشر فبراير 20, 2015 قام بنشر فبراير 20, 2015 (معدل) و عليكم السلام و رحمة الله و بركاته اخي العزيز ابو عبد الله لم اجرب هذا و لكن ما اعلمه هو ان الضغط على الحرف Z بلوحة المفاتيح يقوم بعمل الزوم. و ايضاً بالامكان في حدث عند الفتح للتقرير تحديد الزووم كالتالي : DoCmd.RunCommand acCmdZoom100 يمكنك تغيير الرقم لتحصل على الزوم المناسب. ارجو ان اكون قد افدتك. بالتوفيق تم تعديل فبراير 20, 2015 بواسطه yousef
أبو عبدالله الحلوانى قام بنشر فبراير 20, 2015 الكاتب قام بنشر فبراير 20, 2015 جزاك الله خيرا أستاذ يوسف على الاهتمام ولكن لم يعمل اختصار لوحة المفاتيح z معى مع العلم أنى استخدم اصدار افس 2010 وكذلك الكود الذى تفضلت به اعطانى رسالة أن الأمر غير متاح اﻵن فهل من حل آخر علما أن البرنامج يعمل مع تصغير واجهة اﻷكسس
علي المصري قام بنشر فبراير 20, 2015 قام بنشر فبراير 20, 2015 مع الزر المصمم لفتح التقرير استخدم الامر التالي مع تغيير اسم التقرير center8 إلى اسم التقرير لديك جرب ووافني بالنتيجة DoCmd.OpenReport "Center8", acViewPreview DoCmd.RunCommand acCmdZoom150
أفضل إجابة يوسف أحمد قام بنشر فبراير 21, 2015 أفضل إجابة قام بنشر فبراير 21, 2015 بارك الله فيك اخي العزيز ابو عبد الله و جزاك خير الجزاء اضع لك مثال بطريقة اخرى .. لاحظ استخدام الخاصية ZoomControl بالوحدة النمطية ضع قيمة للزوم الذي تريده ما بين 25 و 200 فقط بمربع النص الخاص بالزوم قبل عرض التقرير ثم اعرض التقرير . ارجو ان يكون هو المطلوب بالتوفيق للجميع zoom .rar
أبو عبدالله الحلوانى قام بنشر فبراير 21, 2015 الكاتب قام بنشر فبراير 21, 2015 جزاك الله خيرا أستاذ على عمل الكود بشكل جيد ولكن تمت الفائدة بما تفضل به اﻷستاذ يوسف جزاك الله خيرا أستاذ يوسف جعله الله فى موازين حسناتكم والاستاذ على وسائر الاخوة فى المنتدى أرجو من أستاذ يوسف لو سمح وقت حضرتك بشرح الكود بالوحدة النمطية لتعم الفائدة وأكرر شكرى للجميع
يوسف أحمد قام بنشر فبراير 21, 2015 قام بنشر فبراير 21, 2015 (معدل) و اياك جزى و فيك بارك اخي ابو عبد الله Function reportZoom(ReportName As String, ZoomValue As Integer)With DoCmd .OpenReport ReportName, View:=acViewPreview .MaximizeEnd WithReports(ReportName).ZoomControl = ZoomValueEnd Function الشرح : السطر الاول : انشاء دالة بإسم reportZoom بها بارمترين ( وسيطين ) الاول هو ReportName من نوع نص (string) و هذا الباراميتر يمثل اسم التقرير بالدالة. و الباراميتر الثاني هو ZoomValue من نوع Integer و هذا الباراميتر يمثل قيمة للخاصية zoomControl بالدالة. السطر الثاني : With DoCmd الكلمة with تستخدم للإختصار عند التعامل مع كائن معين بحيث لا يتكرر اسمه بالكود و هنا نستخدمها مع الكائن DoCmd . السطر الثالث : امر فتح تقرير في وضع المعاينة ، و سوف يحدد التقرير عند استدعاء الدالة بتمرير اسم التقرير المراد فتحه للوسيط الاول ReportName . السطر الرابع : امر تكبير التقرير Maximize السطر الخامس : انهاء الامر With السطر السادس : قيمة الخاصية ZoomControl للتقرير ReportName ( الوسيط الاول و الذي يمثل اسم التقرير و سوف يستبدل بإسم التقرير الفعلي عند استدعاء الدالة ) ضمن مجموعة التقارير Reports تساوي ZoomValue .... و بإختصار تحديد قيمة للخاصية ZoomControl وهي الوسيط الثاني ZoomValue السطر السابع : انهاء الدالة. بالنسبة للإستدعاء فهو كالتالي حسب المثال : reportZoom "rpt1", Me.txtZoom حيث reportZoom هو اسم الدالة rpt1 هو اسم التقرير ممرر كوسيط اول ( ReportName ) للدالة بحيث يتم فتحه في وضع العرض . txtZoom هو اسم مربع النص على النموذج و الذي نحدد به قيمة الزووم المراد عرض التقرير به .. و هو الوسيط الثاني ( ZoomValue ) للدالة . ارجو ان يكون الشرح و اضح بالتوفيق تم تعديل فبراير 21, 2015 بواسطه yousef
أبو عبدالله الحلوانى قام بنشر فبراير 21, 2015 الكاتب قام بنشر فبراير 21, 2015 جزاك الله خيرا أستاذ يوسف ونفع الله بك أينما حللت الشرح واضح جدا لى طلب أخير اطلبه على استحياء كنت أحاول تغير الزوم أثناء فتح التقرير أى التقرير مفتوح بالفعل ثم أفتح الفورم الذى أنشئته ووضعت به الدالة التى أفدتها من شرح أستاذ يوسف فتعطينى رسالة خطأ حاولت التعديل بالوحدة النمطية وأزلت منها أمر with docmd فلم يفلح اﻷمر كذلك وأعطانى رسالة خطأ أيضا مفادها أن المرجع معطل للخاصية zoomcontrol أرجو توجيهى للتعديل الصحيح بدون أمثلة جاهزة ولا اريد ألاثقال على حضراتكم
يوسف أحمد قام بنشر فبراير 21, 2015 قام بنشر فبراير 21, 2015 بارك الله فيك اخي العزيز ابو عبد الله لم افهم المطلوب بالضبط و الافضل ان تضع مثال من طرفك و تشرح عليه.... هل تريد ان يكون النموذج و التقرير معروضين و تتحكم بالزووم من النموذج ؟ اذا كان كذلك فأنت لديك تقرير منبثق و مكبر لأن شاشة الاكسس مخفية و عند عرض التقرير سيكون فوق نموذج العرض.. فكيف يكون هذا التحكم ؟ . الرجاء توضيح هذه النقطة. مرفق نفس المثال مع الغاء امر تكبير التقرير و فيه يتم التحكم بتغيير الزوم من النموذج .. فهل هذا ما تقصده؟ مع الشكر zoom .rar
أبو عبدالله الحلوانى قام بنشر فبراير 23, 2015 الكاتب قام بنشر فبراير 23, 2015 (معدل) أسف على تأخرى فى الرد جزاك الله خيرا أستاذ يوسف لقد توصلت للحل الموضح بالصور - أعتذر عن عدم قدرتى على ارفاق ملف- ولعل هذه الصور تفى بالغرض يسعدنى سماع رأي حضرتك والأستاذ على أيضا تم تعديل فبراير 23, 2015 بواسطه أبو عبدالله الحلوانى
أبو عبدالله الحلوانى قام بنشر فبراير 24, 2015 الكاتب قام بنشر فبراير 24, 2015 أسف هذا الملف الصور بصيغة rar حول الصيغة ثم قم بفك الملف أكواد أداة الزوم.bmp يسعدنى تقيم حضراتكم لهذا العمل المتواضع
يوسف أحمد قام بنشر فبراير 24, 2015 قام بنشر فبراير 24, 2015 بارك الله فيك اخي العزيز ابو عبد الله الصورة تعطي خطأ ( Invalid Image ) و لا يمكن استعراضها مع الشكر
أبو عبدالله الحلوانى قام بنشر فبراير 25, 2015 الكاتب قام بنشر فبراير 25, 2015 أستاذ يوسف غير امتداد الملف المرفق بعد تحميله الى .rar ثم قم بفك ضغط الملف لأنى لم استطع ارفاق ملف الرار فحولت امتداده الى bmp.
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.