ابو جودي قام بنشر مارس 11, 2015 قام بنشر مارس 11, 2015 السلام عليكم ورحمة الله تعالى وبركاته الموضوع ده بالنسبة لى كان حلم واتمنى تحقيقه لان لو القاعده تحتوى على الكثير من النماذج او التقارير لو عملت لوحة تبديل او نموذج رئيسى للتبديل بين النماذج والتقارير كان حياخد كمية كبيرة من ازرار الاوامر ناهيكم عن الوقت للخروج من نموذج لاخر او من تقرير لاخر اختزلت بهذه الفكرة استعراض كل القاعده من نموذج واحد فقط كما فى المرفق ومن الامتيارزات لهذه الفكرة كذلك من نفس النموذج يمكن معالجة التقارير بشتى الطرق استعراض داخل النموذج اولا ثم معاينة طباعه او طباعه او تصدير باختيار المستخدم لكافة الصيغ للعلم تم ارفاق النموذج كجزء من قاعده سابقا فى احدى موضوعاتى ولكن قمت باستخلاصه هو فقط للاتى قال بعض اساتذتنا الكرام ان هذه الطريقه لا تعمل على اصدارات الاوفيس المختلفه انا قليل الحيلة فى محاولة جعل هذه القاعده تعمل على كافة الاصدارات للاوفيس لعدم تواجدها اولا على جهازى وثانيا قلة حيلتى فى البرمجه فأنا مجرد هاو ومبتدئ اتمنى من اساتذتنا الكرام جزاهم الله عنا كل الخير متابعة هذا العمل الضئيل المتواضع ومحاولة مشاركتى ان امكن على حسب وقتكم وجهدكم فى الوصول بتلك القاعده للعمل على كافة اصدارات اوفيس بالصورة الطبيعيه والتى تعمل بها عندى انا على اصدار 2013 جزاكم الله كل الخير استعراض النماذج والتقارير من نموذج واحد فقط.rar 1
رمهان قام بنشر مارس 11, 2015 قام بنشر مارس 11, 2015 اهلا بك اخي اسير الشروق اشاركك بملاحظات وتحسينات الملاحظات : - تسمية أداة تحكم الخيارات ب forms و reports وهذه احد أسماء كائنات في الاكسس والمحظور باستخدامها كاسماء للعناصر - استخدام الخاصية visible للنماذج والتقارير غير لازم هنا ف sourceobject كفيل باظهار النماذج والتقارير داخل الكائن الفرعي التحسينات : اريدك ان تسمي النموذج Mohammed essam ب frm1 وبقية النماذج متسلسلة ك frm2 , frm3,frm4 ثم تضع سطرا واحد من الكود وكفيل بالمطلوب وهو Private Sub forms_AfterUpdate() FRM.SourceObject = "frm" & forms End Sub وللتقارير نفس الفكرة . طبعا التقارير بها إضافة كلمة report بشكل صريح مع أسماء التقارير . بالتوفيق 1
ابو جودي قام بنشر مارس 11, 2015 الكاتب قام بنشر مارس 11, 2015 استاذى القدير ومعلمى الجليل والله انى احبكم فى الله ولله جزاكم الله عنى وعن اهل المنتدى كل الخير مهما شكرتك فلن يكفيك فانا انسان عاجز واعمالى واقوالى مثلى لذا شكر الله لك جارى تطبيق ما تفضلتم به على ان شاء الله من ملاحظات ولكن اتمنى ان تعمل القاعده على كل الاصدارات فهل ممكن ذلك 1
ابو جودي قام بنشر مارس 11, 2015 الكاتب قام بنشر مارس 11, 2015 اهلا بك اخي اسير الشروق اشاركك بملاحظات وتحسينات الملاحظات : - تسمية أداة تحكم الخيارات ب forms و reports وهذه احد أسماء كائنات في الاكسس والمحظور باستخدامها كاسماء للعناصر - استخدام الخاصية visible للنماذج والتقارير غير لازم هنا ف sourceobject كفيل باظهار النماذج والتقارير داخل الكائن الفرعي التحسينات : اريدك ان تسمي النموذج Mohammed essam ب frm1 وبقية النماذج متسلسلة ك frm2 , frm3,frm4 ثم تضع سطرا واحد من الكود وكفيل بالمطلوب وهو Private Sub forms_AfterUpdate() FRM.SourceObject = "frm" & forms End Sub وللتقارير نفس الفكرة . طبعا التقارير بها إضافة كلمة report بشكل صريح مع أسماء التقارير . بالتوفيق استاذى القدير ومعلمى الجليل من فضلك انا عدلت زى ما حضرتك اشرت بس الكود مش عارف استخدمه ازاى حاولت بصراحه ومش عرفت الكود ده Private Sub forms_AfterUpdate() FRM.SourceObject = "frm" & forms End Sub ممكن اتاقل على حضرتك وتعدله فى المثال لو تكرمت وانا هأفهم حضرتك عملت ايه ان شاء الله جزاكم الله خيرا edit for all elements .rar
رمهان قام بنشر مارس 12, 2015 قام بنشر مارس 12, 2015 اخي اسير الشروق عدل frm0 عندك الى frm1 وباقي النماذج لتصبح frm1,frm2,frm3,frm4 ثم ضع الكود التالي Private Sub AllForms_AfterUpdate() FRM.SourceObject = "frm" & AllForms End Sub الفكرة تدور حول تثبيت جزء من اسم النموذج وهو frm وقرنه بالأرقام والتي هي قيم عنصر الخيار وبهذا هي أسماء النماذج لديك . بالتوفيق 1
ابو جودي قام بنشر مارس 12, 2015 الكاتب قام بنشر مارس 12, 2015 تمام الله يبارك لك يارب جزاكم الله خيرا بس اهم نقطه هل التقارير بالشكل ده ممكن تشتغل على اوفيس 2003 و 2007 و 2010 اخي اسير الشروق عدل frm0 عندك الى frm1 وباقي النماذج لتصبح frm1,frm2,frm3,frm4 ثم ضع الكود التالي Private Sub AllForms_AfterUpdate() FRM.SourceObject = "frm" & AllForms End Sub الفكرة تدور حول تثبيت جزء من اسم النموذج وهو frm وقرنه بالأرقام والتي هي قيم عنصر الخيار وبهذا هي أسماء النماذج لديك . بالتوفيق edit for all elements .rar
رمهان قام بنشر مارس 12, 2015 قام بنشر مارس 12, 2015 (معدل) صحيح حتشتغل على كل الإصدارات ! لاحظ ان كود التقارير بهذا الشكل Private Sub AllReports_AfterUpdate() FRM.SourceObject = "report.report" & AllReports End Sub طبعا اخر خيار حيعطيك خطا لان قيمة الخيار 4 ولا يوجد تقرير باسم report4 بالتوفيق تم تعديل مارس 12, 2015 بواسطه رمهان 1
ابو جودي قام بنشر مارس 12, 2015 الكاتب قام بنشر مارس 12, 2015 صحيح حتشتغل على كل الإصدارات ! لاحظ ان كود التقارير بهذا الشكل Private Sub AllReports_AfterUpdate() FRM.SourceObject = "report.report" & AllReports End Sub طبعا اخر خيار حيعطيك خطا لان قيمة الخيار 4 ولا يوجد تقرير باسم report4 بالتوفيق الملف بعد التعديل كما تفضلتم علينا بملاحظاتكم القيمة جزاكم الله عنا كل الخير eng.rmhan.rar
ابوخليل قام بنشر مارس 12, 2015 قام بنشر مارس 12, 2015 هل التقارير بالشكل ده ممكن تشتغل على اوفيس 2003 و 2007 و 2010 التقارير لا تعمل من خلال خانة الاختيار على نسخة 2003 النسخة عندي عربية
ابوخليل قام بنشر مارس 12, 2015 قام بنشر مارس 12, 2015 ايضا تمت التجربة على اوفيس 2007 عربي التقارير لا تعمل من خلال خانة الاختيار !!
ابو جودي قام بنشر مارس 12, 2015 الكاتب قام بنشر مارس 12, 2015 هل التقارير بالشكل ده ممكن تشتغل على اوفيس 2003 و 2007 و 2010 التقارير لا تعمل من خلال خانة الاختيار على نسخة 2003 النسخة عندي عربية ايضا تمت التجربة على اوفيس 2007 عربي التقارير لا تعمل من خلال خانة الاختيار !! انا كده زعلت
عبد الفتاح كيرة قام بنشر مارس 12, 2015 قام بنشر مارس 12, 2015 (معدل) لا يمكن عرض التقارير من خلال نموذج لكن يبقى الكنز الجديد SourceObject سأجمع معلومات عنه جزاكم الله خيرا تم تعديل مارس 12, 2015 بواسطه عبد الفتاح كيرة
عبد الفتاح كيرة قام بنشر مارس 12, 2015 قام بنشر مارس 12, 2015 سؤال كيف نصل إلى اسم الخانة المختارة فى مربع الاختيار \وليس رقم الاختيار
ابوخليل قام بنشر مارس 12, 2015 قام بنشر مارس 12, 2015 اهلا بك استاذ عبدالفتاح ليست المشكلة هنا في خانات الاختيار جرب تطبيق الكود في حدث زر عادي ووافنا بالنتيجة مشكورا
ابو جودي قام بنشر مارس 12, 2015 الكاتب قام بنشر مارس 12, 2015 لا يمكن عرض التقارير من خلال نموذج لكن يبقى الكنز الجديد SourceObject سأجمع معلومات عنه جزاكم الله خيرا استاذى الجليل ومعلمى القدير والله لكم يسعدنى رؤيتكم الطيبه بالاهتمام ومد يد العون للمحتاج دائما جزاكم الله عنا كل الخير فى انتظار ابداعاتكم ان شاء الله 1
ابو جودي قام بنشر مارس 13, 2015 الكاتب قام بنشر مارس 13, 2015 ايضا تمت التجربة على اوفيس 2007 عربي التقارير لا تعمل من خلال خانة الاختيار !! تم التجربة على اوفيس 2007 معرب من قبل الاستاذ عبد الرحمن هاشم ويتم استعراض التقارير من النموذج هكذا اخبرنى
عبد الفتاح كيرة قام بنشر مارس 13, 2015 قام بنشر مارس 13, 2015 اهلا بك استاذ عبدالفتاح ليست المشكلة هنا في خانات الاختيار جرب تطبيق الكود في حدث زر عادي ووافنا بالنتيجة مشكورا أخى الفاضل لم أقصد ذلك لكنى حاولت أن يكون اسم خانة الاختيار " و ليس قيمتها" هو نفسه اسم النموذج المراد فتحه و إن توصلنا للمطلوب بجملة select case المعتمدة على قيمة خانة الاختيار أما التقارير فلم تعمل معى مطلقا مع الشكر
عبد الفتاح كيرة قام بنشر مارس 13, 2015 قام بنشر مارس 13, 2015 لا يمكن عرض التقارير من خلال نموذج لكن يبقى الكنز الجديد SourceObject سأجمع معلومات عنه جزاكم الله خيرا استاذى الجليل ومعلمى القدير والله لكم يسعدنى رؤيتكم الطيبه بالاهتمام ومد يد العون للمحتاج دائما جزاكم الله عنا كل الخير فى انتظار ابداعاتكم ان شاء الله أشكرك أخى على شعورك الطيب وهأنذا أتعلم منكم و معكم
ابو جودي قام بنشر مارس 13, 2015 الكاتب قام بنشر مارس 13, 2015 اهلا بك استاذ عبدالفتاح ليست المشكلة هنا في خانات الاختيار جرب تطبيق الكود في حدث زر عادي ووافنا بالنتيجة مشكورا أخى الفاضل لم أقصد ذلك لكنى حاولت أن يكون اسم خانة الاختيار " و ليس قيمتها" هو نفسه اسم النموذج المراد فتحه و إن توصلنا للمطلوب بجملة select case المعتمدة على قيمة خانة الاختيار أما التقارير فلم تعمل معى مطلقا مع الشكر انا كنت عامل كده فعلا فى الاول والاستاذ رمهان قال ممكن نختزل الكود دا الكود الاول Private Sub AllForms_AfterUpdate() If allforms = 1 Then FRM.SourceObject = "frm0" ElseIf allforms = 2 Then FRM.SourceObject = "frm1" ElseIf allforms = 3 Then FRM.SourceObject = "frm2" ElseIf allforms = 4 Then FRM.SourceObject = "frm3" End If End Sub وده اختزال الكود زى ما قال الاستاذ رمهان Private Sub forms_AfterUpdate() FRM.SourceObject = "frm" & forms End Sub
ابوخليل قام بنشر مارس 13, 2015 قام بنشر مارس 13, 2015 انا كده زعلت الزعل علينا والا على اكسس ؟ تم التجربة على اوفيس 2007 معرب من قبل الاستاذ عبد الرحمن هاشم ويتم استعراض التقارير من النموذج هكذا اخبرنى كنت اتمنى من جميع الاخوة وخاصة الذين جربوا .. ان يضعوا تجربتهم هنا أما التقارير فلم تعمل معى مطلقا هذا بيت القصيد شكرا لك ،،،
ابو جودي قام بنشر مارس 13, 2015 الكاتب قام بنشر مارس 13, 2015 انا كده زعلت الزعل علينا والا على اكسس ؟ تم التجربة على اوفيس 2007 معرب من قبل الاستاذ عبد الرحمن هاشم ويتم استعراض التقارير من النموذج هكذا اخبرنى كنت اتمنى من جميع الاخوة وخاصة الذين جربوا .. ان يضعوا تجربتهم هنا أما التقارير فلم تعمل معى مطلقا هذا بيت القصيد شكرا لك ،،، استاذى القدير ومعلمى الجليل زعلت ع الفكرة كنت اتمنى ان تعم منها افاده للجميع وكما احسست انا بعظم فائدتها لانها كانت لتوفر الكثير من العناء والوقت والجهد وسهولة ومرونة التعامل
ابو جودي قام بنشر مارس 23, 2015 الكاتب قام بنشر مارس 23, 2015 هل من حل لتعمل التقارير على اوفيس 2003 و 2007 و 2010
ابو جودي قام بنشر مارس 24, 2015 الكاتب قام بنشر مارس 24, 2015 up هل من حل لتعمل التقارير على اوفيس 2003 و 2007 و 2010
Elsayed Bn Gemy قام بنشر مايو 17, 2015 قام بنشر مايو 17, 2015 (معدل) اخى محمد عصام انا اسف انا لسه شايف الموضوع ناو فدعنا نرى فيه رايا بجانب اخوانى الافاضل تم تعديل مايو 17, 2015 بواسطه مارد
.thumb.gif.27c4a79ce23abc61b721f833e6899131.gif)
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.