امل المساعدة في فتح النموذج حسب المرفق في ملف الورد علماً باني حاولت كثير ولم انجح ولعلى اجد لديكم حل
وتقبلوا مني خالص التحية
اريد مساعدتي في فتح النموذج حسب المرفق
اخي الفاضل : هرمان
السلام عليكم ورحمة الله وبركاته
اتمنى في المرات القادمة بارك الله بك عندما تضع سؤالا في المنتدى ان تبين الفكرة والمقصود من السؤال بالتوضيح والشرح التفصيلي حتى تصل فكرتك لمن سوف يقوم بالإجابة عليك
الآن انت وضعت قاعدة بيانات وبها نموذج فارغ وايضا وضعت ملف وورد به صورة للنموذج !!!!
هل افهم من سؤالك انك تريد وضع نموذج قاعدة البيانات كما هو طبق الأصل في ملف الوورد ؟؟؟؟؟؟؟؟؟؟
اذا كنت تريد هذا فعلا فإسمح لي ان اقول لك : لو بقيت مليون سنه على جميع محاولاتك واستعنت بجميع خبراء العالم فلن تجد اجابه لهذا السؤال والسبب بارك الله بك انه من سابع المستحيلات ان تضع نموذج قاعدة بيانات في ملف وورد .
ولكن يا سيدي الكريم يوجد شيء اسمه دمج المراسلات بين برنامج الأكسيس وبين برنامج الوورد
بحيث تقوم بعمل نموذج في ملف وورد ثم تستدعي البيانات من قاعدة البيانات لتكون موجوده في حقول نموذج ملف الوورد هذه هي الطريقة الصحيحة لعمل ذلك وعدى ذلك لن تجد اي اجابه .
عموما ابحث في المنتدى عن دمج المراسلات وستجد الإجابه على هذا السؤال .
بالتوفيق
تم تعديل هذه المشاركة بواسطة zahrah في 11 مايو 2013 في 18:00
اولاً : اشكرك على الرد
ثانياً : الصورة الموجودة في ملف الورد مجرد مثال لما اريده واعتذر لعدم توضيح اكثر للمطلوب .
-اريد النموذج الفارغ في قاعدة البيانات المرفقة ان يفتح مثل شكل الصورة المرفقة يعني تمدد النموذج داخل الخلفية الرصاصية للاكسيس فقط .
طيب يا أخي الكريم
ما كان تقول من الأول انك تريد عمل تمدد وتكبير للنموذج بحجم الشاشة
عموما تفضل ضع هذا الكود في حدث الحالي للنموذج
Private Sub Form_Current()DoCmd.MaximizeEnd Sub
بالتوفيق
عفواً ليس هذا المطلوب
المطلوب يتمدد مثل الصورة الموجودة في ملف الورد
تفضل اخي الكريم
استخدم هذا الكود لزيادة او انقاص العرض او الإرتفاع حتى يتناسب مع الشاشة الخاصة بك
Private Sub Form_Open(Cancel As Integer) Me.Move Left:=0, Top:=0, Width:=21500, Height:=10990 End Sub
العرض
Width:=21500
الارتفاع
Height:=10990
بالتوفيق
عفواً محاولة جيدة ولكن
مشكلة Height والـ width العرض والطول غير مضبوط طبعاً الحل على جهازك اكيد انه اوكيه ولكن على الاجهزة الاخرى لايعمل بالشكل المطلوب
مع العلم باني شاهدت هذه الحركة في برنامج ياقوت 2 في التقارير واريد تطبيقها على النماذج وهذا موقع http://www.omarisoft.com/yakoot.htm
علماً ان هذه الحركة موجودة في كثير من البرامج شاهدتها في السابق ولكن لا اذكر منها سوى برنامج ياقوت 2 ، افتح اي تقرير في برنامج ياقوت 2 وتشاهد كيف يتم فتحها بشكل مضبوط
امل احصل على حل دينمك
تقبلوا مني خالص التحية ،،،
الله يجزاكم الف خير اريد حلاً
اريد حلاً جزاكم الله خيرا
مساعدة ياخوان
تم حل مشكلة فتح النموذج بالشكل المطلوب ويتوافق فتحة مع اي شاشة
لي طلب عندكم ان شاء الله تجدون لي حل" اريد التقرير يفتح مثل النموذج "
وهذا الكود المستخدم في النموذج form اريد تطبيقة على التقرير1 :
حيث ان f1 هي شاشة خلفية البرنامج
Me.Move Left:=0, Top:=0, Width:=[Forms]![f1].InsideWidth, Height:=[Forms]![f1].InsideHeight
ولكم مني خالص التحية
اشكرك على الرد ولكن الصح هو بدل من الكود هذا
DoCmd.OpenReport "Report", acPreview
DoCmd.OpenForm "FORM", , , , , acHidden
Reports("Report").Move Left:=0, Top:=0, Width:=[Forms]![Form].InsideWidth, Height:=[Forms]![Form].InsideHeight
هذا الكود الصحيح
DoCmd.OpenReport "Report", acPreview
Reports("Report").Move Left:=0, Top:=0, Width:=[Forms]![f1].InsideWidth, Height:=[Forms]![f1].InsideHeight
اتمنا من الله ان يجزا الدكتورة زهرة الف خير وان يفيد به كل من يعمل بصدق وامانة .