ابو جودي

ههههههههههههههه ربنا ما يحرمنا من لمساتك الرمهانية جزاكم الله خيرا دائما وابدا هناك لمسات رمهانية وادى المرفق الرمهانى Test_2.rar

اعتذر نسيت تعديل بسيط فى العنوان الهيدر والفوتر اثناء التحكم فى اظهارهم واخفائهم من خلال نموذج التحكم واعتذر هن هذا الخطأ ولم استطع تعديل المرفق السابق فقمت برفع المرفق بعد التعديل مرة اخرى rep.rar

جزاكم الله خيرا طيب ممكن طلب انا بصراحة كنت باحاول البحث عنه من تلقاء نفسى دون الرجوع اليكم والاثقال عليكم حياء منكم وبخاصة فى هذا الموضوع ولكن انت البادئ ههههههههه هل هناك طريقة لوضع ذلك التعبير =IIf(IsNull([txtSearch2]),[E_mail],IIf(IsNull([e_mail]),"",Replace([E_mail],[txtSearch2],"<font color=red>" & [txtSearch2] & "</font>"))) فى كود ليصلح لكل الحقول ام يجب عمل تعبير لكل حقل على حدة

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الافاضل اولا اعتذر لعدم توفير مرفق السؤال بخصوص الشريط التقدمة التفاعلى الــــ "ProgressBar" لو قاعدة البيانات على سيرفر عند تنفيذ استعلام ما يأخر من الوقت حوالى من 15 ثانية الى 30 ثانية حسب كم البيانات التى يتم الفلترة عليها وحسب امكانيات المعالج وبعد المسافة احيانا عن السويتش.... هل يمكن عمل ProgressBar يعمل فى نفس فترة تحضير الركويرى اى يكون مرن بمرونه البدء فى الكويرى وينتهى حسب الانتهاء من الكويري دون التقييد بوقت محدد فى الكود غير ان ال ProgressBar اما يبدا قبل الكويرى او بعد الكويرى هههههه حد فهم حاجة

اخى الحبيب فعلا كلام حضرتك صح بس لو محتاج لون الحرف يتحول للون للاحمر مش راح اقدر استغنى عن السطر التالى من الكود 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 كان بالاسكى كود تقريبا

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