ابو جودي

اخى الحبيب فعلا كلام حضرتك صح بس لو محتاج لون الحرف يتحول للون للاحمر مش راح اقدر استغنى عن السطر التالى من الكود Form_SearchList.txtSearch2.Value = Me.txtSearch2 اعتقد لابد وان يكون لو اردنا الاختزال فى الاكواد Me.txtSearch2.Value = Me.txtSearch.Text Form_SearchList.txtSearch2.Value = Me.txtSearch2 Me.SearchList.Requery

انت انسان رائع

اتفضل ده الاصدار الاول ويخص التحكم فى تقرير محدد مطروح للتجربة وللنقااااااااااااااش جارى العمل على التعديل فى كل التقارير................نسألكم الدعاء.................. rep.rar

العفو منكم اخى الحبيب انا اقصد تقصيرى انا فى التاخر على الرد عليكم لانشغالى اولا ثم لردى على مشاركات بعد مشاركة حضرتك دون الانتباه لمشاركتكم الطيبية فلم انتبه اولا للمشاركة وتأخرت فى الرد على المشاركة جزاكم الله خيرا

انا اسف جدا جدا استاذ حسام لم الاحظ مشاركة حضرتك الا الان العفو منك اخى الحبيب لتقصيرى معكم هو كلام حضرتك صح بالنسبة للمرفق بتاعى انا اما بالنسبة للاستاذ محمد اعتقد رده افضل لو اردنا استخدام نفس القيم فى اكثر من نموذج على الرغم من كمان ممكن الاستغناء نهائيا عن الموديول فعلا جارى التجربة

من منا لا يفتقر الا الا الله كلنا فقراء الله

تمام يا استاذه فعلا الموديول مش راح نضيف او نغير او نحذف منه شئ ولا حتى تفكرى تفتحيه تانى كل ما عليكى تغيرى القيم اللى فى الكود على زر الامر بما يتناسب مع الاتى 1- اسم الفورم الهدف والمراد نسخ البيانات اليه نرمز له مثلا ( T ) ثم الدالة IF والتى نستدعى بها الكود من الموديول كما سبق شرحه DoCmd.OpenForm "T" If when_Open_form("frm2") Then 2- اسم النموذج المصدر والذى نريد نسخ البيانات منه نرمز له مثلا بالمرز ( S ) 3- اسماء مربعات النص فى النموذج المصدر نرمز لها مثلا بالمرز ( TXT_S1 , TXT_S2 ) والتى نريد نسخ البيانات منها 4- اسماء مربعات النص فى النموذج الهدف نرمز لها مثلا بالمرز ( TXT_T1 , TXT_T2 ) والتى نريد لصق البيانات المنسوخة فيها [Forms]![T]![TXT_T1] = [Forms]![S]![TXT_S1] [Forms]![T]![TXT_T2] = [Forms]![S]![TXT_S2] وبذلك يصبح الكود DoCmd.OpenForm "T" If when_Open_form("T") Then [Forms]![T]![TXT_T1] = [Forms]![S]![TXT_S1] [Forms]![T]![TXT_T2] = [Forms]![S]![TXT_S2] else endif اعتذر للاطالة

اهاااااااااااا هذا ما اردت التوصل اليه نفس المسار نفس الاسم نفس الامتداد تلك هى المعضلة وهى محور حديثى وفكرتى وزيادة عليها وماذا لو كانت القاعدة على شبكة فى هذه الحالة كيف ستظهر الصورة

اخى وحبيبى فى الله هذا المرفق من تصميمى انا اين المرفق الخاص بكم بالشكل الذى تريدة حت نحاول التعديل على مرفقكم مباشرة

العفو منك استاذى الحبيب بل انا الذى ادين لك بكل الشكر

جزاكم الله خيرا سبحان الله تعالى فى نفس اللحظة التى تم حل مشكلتى فيها كانت مشاركتكم الكريمة العفو منك استاذى الحبيب واخى الكريم اعتذر للاثقال على كاهلكم احسن الله اليكم وشكر الله لكم جميل صبركم حسن تعاونكم وتحملكم لاثقالى عليكم

بمجرد الضغط على زر الامر اظهر خطأ ممكن حضرتك لو تكرمت ترفق القاعدة اللى حضرتك عدلت عليها

واين يوضع الكود ؟ للعلم وضعته على زر امر اعطى خطأ ولم بظهر الجدول

جزاك الله خيرا اهلا بك اخى الحبيب من ارض الحبيب صلوات ربى وسلامه عليه ارض الحرمين الشريفين حياك الله انت وكل اهلنا واحبتنا واخوتنا فى ارض الحرمين اهنئ نفسي بمروركم الطيب واهنئ نفسي اكثر ان جعلنى الله تعالى سببا فى فك كربة لاحد عباده او تيسير باب علم له مما يسره لى ربى

حاولت الفتح فعلا بالامر ده ولم استتطع فتحه

اخى الحبيب واستاذى الفاضل اولا انا اقل طالب علم ممكن تقابله فى حياتك وراى المتواضع ما فى شئ اسمه حماية مطلقة غير اننا نتناسى قول رب العزة سبحانه وتعالى " وفوق كل زى علم عليم " قد تكون حضرتك اعلم منى بامور البرمجة والاكواد ولكن قد اتفوق انا فى جزئية فك الحماية فقط من وجهة نظرى المتواضعة ان ما هم المبرمج ليس اخفاء الجداول او البيانات او حتى تشفيرها بداخله لكن يحتاج لحماية الاكواد التى اخذت منه وقتا وجهدا وبحثا مضنيا لذلك افضل ما توصلت اليه وذلك بناء على راى الاساتذة الكرام الذين نتعلم منهم فصل القاعدة الى جزئين جزء الجداول وجزء لباقى الكائنات والجزء الخاص بباقى الكائنات يمكنك تحويله وتشفيرة الى mde او accde على الرغم من اننى قرات ان هناك من يقدر على فكه ولكن قليل جدا والله اعلم ولذلك يبقى قول الله تعال "وفوق كل زى علم عليم"

اه فتح ايون انا فتحت محرر البيزك ما فى اى اكواد لان ما فى اى نماذج وانا بصراحه مش عارف اظهر الجدول لكن انا عرفت ان فى جدول باسم tab1 انا بصراحه حتى الان فشلت كل محاولاتى فى اظهار او استخراج اى بيانات من الجدول

فعلا فى جدول باسم tab1 لكن انا لازلت احاول اظهاره او استخراج المعلومات منه الباسورد على vba كان بالاسكى كود تقريبا

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

طيب دى طريقة اخرى ومحتاجه لبحث وتدبر قطعا سوف نجتى من ورائها فوائد جزاكم االله خيرا بس اسمح لى اللى حضرتك اختزلته من الموديول وجعلت الكود فيه اصغر وضعته فى النموذج وجعلت كود النموذج اكبر هذا لو جعلنا المقياس كبر وصغر الكود وعدد الاسطر فى الاكواد ولكن حقا لا اعرف ايهم افضل من الناحية العملية او المرونه ولكن يكفينى انى تعلمت من حضرتك شئ لم اكن اعرفه او بالاحرى سوف اتعلم بعد البحث عن الاكواد كل الشكر والتقدير

لازلت انتظر المرفق استاذنا الحبيب

طيب انا غيرت الصورة ما اتغيرت فى التقرير الاول ؟! هل هذا صحيح

اولا اهلا بعودتك طال انقطاعك عنا حمدا لله على سلامتك على فكرة انت جاوبت على نفسك فى عنوان الموضوع من خلال الدالة Dlookup على كطل حال ان شاء الله راح اشرح لك نظريا ولو الموضوع صعب تطبيق اخبرنى واصمم لك المثال ان شاء الله اختر جدول يكون فيه حقل توضع فيه مسار الصورة واستدع الصورة مباشرة فى التقرير عن طريق الدالةDlookup او اجعل التقرير يعتمد فى الفتح بتلك الداله على مسار الصورة من النموذج فتفتح التقرير من النموذج ويستمد المسار من النموذج مش عارف وصلت الفكرة واللا لاء لكن ممكن اطبق لحضرتك المثال عملى لو اردت ☺ ملاحظة هامة مش عارف انا فاهم صح واللا غلط اعتقد لعمل تلك الية لازم الصورة تكون مرتبطة وليست متضمنه من ناحيتى راح اجرب وفضلا وليس امرا ان كنت مخطئا فى هذا التصور برجاء من اساتذتنا الكرام جزاهم الله عنا خيرا ارشادنا الى فة تلك النقطة

you welcome in times to come, please try to choose a suitable name for the subject because it bases posts in forums and we must all respect for those rules do not put your address is not suitable for the subject, as it did and you would have your own e-mail regarding the arabization list you can search the internet for the arabization of office suit version you are using, and so are all the menus to translate the arabic language that you want it as he can switch between languages when you want to after that with ease