ابو جودي

حاضر ابشر بالخيــر ان شاء الله

حاضر تحت امرك ابشر بالخيــــر واتفضل طلب حضرتك جهز وتم Deduction_UP.rar

اخى الحبيب هنا يقدم الاستذة الافاضل وقتهم وعلمهم وجهدم بكل الجود والكرم ممزوج بالحب والايثار ولكن اخى الحبيب اهمس فى اذنك همسة محب فأنت لا تعرف ظروف الاخوة والاساتذة الافاضل والله اليوم انا اجازة من العمل ويعلم الله تعالى كم العمل الذى كنت من المفروض انجزته ولكن فضلت ان اترك عملى ووهبت وقتى ووقت راحتى لمساعدة اخوانى قراءة تلك الاسطر بعناية ستفرق معك حتى فى حياتك العملية بعيدا عن النت والمنتديات كن في الحياة كشآرب القهوة !.. يستمتع بهــا رغم سوآدها ومرآرتهآ وتذكر قول الخشب للمسمار: لقد كسرتني وألمتني فرد المسمار قائلاً : لو كنت رأيت الدق فوق رآسي لكنت عذرتني فليعذر النآس بعضهم البعض فكل شخص لآيعرف ظروف الآخر إذآ إستمريت بـ هذه الحسآسية الزآئدة . . والحزن علي كل تصرف , فـ إنك ستحوّل حيآتك إلي جحيم ! تذكَر .. أن النآس تختلف في تفكيرهآ وطبآعهآ فما ترآه أنت جآرحاً .... قد يرآه غيرك أمراً تآفهاً هنآك موآقف مؤلمة قد تتعرض لهآ ولكن , إلي متي تجتر الموقف وتقف عليه ! إن أصآبك الألم ! عشه في لحظته .. ثم تجآوزه وكآفح من أجل تجاهله أشغل نفسك .. تنآسآه حتي يغيب عن ذآكرتك ! إحفظ لسانك أيها الإنسان لا يلدغـنـّك .. إنه ثعبان فكم في المقابرمن قتيل لسانه كانت تهاب لقاءه الشجعان وإذا حار أمرك في معنيين ولم تدرِ أين الخطا والصواب فخالف هواك فإن الهوى يقود النفوس إلى ما يعاب ولا تحاسب النآس عندما يخطئوآ ولا تذهب لغيرهم لتشكوا منهم .. لسانك لا تذكر به عورة امرئ فكلك عـورات وللــناس ألـســــــن وعينك إن أبدت إليك من الناس مساوءً فقل يا عيني للنـاس كذلك أعين اعتذر للاطالة ولكنها همس محب لاخيه والان وقت التحميل للمرفق وساحلله واحاول فهم سؤال حضرتك ان شاء الله اطيب التحايا

طيب اولا هل التحويل الى اكسل نجح معاك ؟ بخصوص التاريخ من النموذج ضع هذا الكود فى مصدر بيانات مربع النص الخاص بالتاريخ فى التقرير =[Forms]![Ded-K2]![Date_In]

نعم ممكن جدا ولما لا

فضلا وكرما ممكن المرفق بعد التعديل اريد الاطلاع عليه

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

السلام عليكم ورحمة الله وبركاتهغاب عنا مند فترة استاذنا وشيخنا ووالدنا الكريم ♥ jjafferr ♥ نتنمى من الله أن يكون بخير ولاندرى إن كان اتصل به أحد الأساتذة الكرام أو الإخوة ليطمئننا على صحته وأخباره ونرجوا عودته ان شاء الله تعالى سالما غانما

اخى الحبيب معلش معذة للاثقال عليكم فاتنى شئ صغير سيضفى مرونه اكثر برجاء تغيير الكود الموجود على قائمة القيم "t0" بالكود الاتى Me.productname = "" & Me.t0.Column(0) & "" Me.productname.Requery search_Products = "" Me.Requery بذلك بعد البحث عن منتج ما وبعد الضغط على اسم المنتج من قائمة القيم يتم مسح ما تم كتابته فى مربع البحث للعلم ممكن البحث باى جزء من النص فى هذا المربع جرب كتابة كم وجرب مرة اخرى كتابة 05 ولاحظ النتيجة اجمل واطيب التحايا للعلم تم التعديل على معادلة عملية الضرب كان فى بادئ الامر تظهر #خطأ حنى يتم كتابة عدد فى مربع الكمية تم التعديل على الكود

ممكن شوية اسئله سريعه الاول انا شايف فى التقرير اللى حضرتك عملته فى التفصيل فى حجات كتير معموله فى اداة عنوان " Label " والمفروض انها تكون مرع نص "Text" ثانيا حتى التاريخ حضرتك كتبته فى ادى عنوان اللى هو 1/11/2016 طيب لما ندخل شهر جديد هتعمل ايه ؟؟؟؟ التوصيات مطلوب من حضرتك تحدد حقل للتاريخ فى الجدول اللى انت عامل عليه الاستعلام اللى حيتم تسجيل البيانات فيه ده اولا ثانيا فى التقرير حول كل ادوات العنوان اللى فى التفصيل الى مربع نص انشئ جدول جديد وسميه مثلا TBL_FIXD_DATA وقم بعمل الحقول فيه باسماء الحقول التى ستحتوى على البيانانت الثابته ثم يكون لى عوده معك مرة اخرى بعد تنفيذ تلك التوصيات ملاحظة البيانات الثابته فى التقرير لو تم كتابته داخل عنصر عنوان عند محاولة تغيرها ان تغيرت فيما بعد ستضطر الى فتح التصميم لتغيرها

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

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

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

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

انا بصراحه مش فاهم كيف يتم التوجيه وهل ممكن ارفاق القاعدة ؟

وهذا تعديل جديد بعدما فهمت ههههههههههههه معلش بافهم على اد حالى اتفضل ان شاء الله يعجبك http://www.4shared.com/rar/pyf3kdI-ce/db4_up.html?

اخى الحبيب ما فى بين الاخوة جمايل اسعدنى حل مسئلتك وادخال البهجة على قلبك اجمل التحيا

العفو منك استاذى الجليل ومعلمى القدير انا مجرد طالب علم من طلاب هذا الصرح الشامخ الذين يتعلمون من حضرتكم ومن باقى الاساتذة الكرام ولكن اسمح لى استاذى الحبيب ان اسأل سؤال على استحياء انا فى مشاركة سابقة سالت الاستاذ عبد الله تلكك الاسئلة طيب ممكن سؤالين الاول لو تريد frminput يجب ان يبقى ورقة بيانات ليه حضرتك معملتش التنسيق الشرطى مباشرة لانه سيعمل فى هذه الحالة الثانى لو تريد frminput يجب ان يبقى ورقة بيانات ليه معملتش النموذج نموذج مستمر علشان تقدر تغير الالوان بالكود كما تريد وكذلك تحصل على نفس نتيجة ورقة البيانات ومن وجهة نظرى هذا افضل حتى يمكنك وضع دليل الاوان للعملات اعلى النموذج ولكن الاستاذ عبد الله يريد التنسيق الشرطة برمجيا وفهمت من ذلك انه يريد من ذلك اضافة اكواد الالوان فى الجدول فيتم تلوين مربع النص بتلك الاوان تلقائيا فهل من سبيل لذلك ؟ وللعلم انا كنت احاول باستخدام هذا الكود If Me.inCoinName = "دولار" Then inCoinName.BackColor = DLookup("coinColor", "tblcoin", "coinName = 'دولار'") If Me.inCoinName = "دينار" Then inCoinName.BackColor = DLookup("coinColor", "tblcoin", "coinName = 'دينار'") If Me.inCoinName = "ليرة" Then inCoinName.BackColor = DLookup("coinColor", "tblcoin", "coinName = 'ليرة'") ونفع معى ولكن ليس فى ورقة بيانات ولا نموذج مستمر بل فى نموذج مفرد

تحت امر حضرتك حاضر ابشر بالخير ان شاء الله

اخى الحبيب اولا انا مجرد طالب علم والشكر لله اولا سبحانه و تعالى فله الفضل فلا علم لنا الا ما علمنا ربنا ومن بعد رب العباد كل الشكر والتقدير والامتنان لاساتذتنا الافاضل منهم نتعلم حتى الان جزاهم الله خيرا ورزقهم الجنة ان شاء الله اسال الله تعالى ان يغفر لكل اساتذتنا الكرام ولوالديهم وان يرزقهم البركة فى العمر والعمل والعمل ان شاء الله وادعو الله تعالى ان يحسن اليهم كما هم يحسنون الينا دائما وابدا اما بخصوص التكاتف الذى تحكى عنه قضاء حاجة المحتاج كما علمنا رسولنا الحبيب صلى الله عليه وسلم امر عظيم جميل أن تدخل السرور على قلوب الآخرين إذا احتاجوا لمساعده وتكفيك دعوة صادقة من شخص محتاج يسعدك الله بها .. وكما في الحديث (وخير الناس أنفعهم للناس ) عندما تساعد إنسان على قضاء حاجته فانه يشعر بالأخوة والمحبة فيما بينكم وقد قال صلى الله عليه وسلم: (والذي نفسي بيده لا يؤمن أحدكم حتى يحب لأخيه ما يحب لنفسه) سعادة لا تضاهيها سعادة عندما نكون سبب في سعادة الآخرين قمة السعادة وقمة الفرح أن تكون مصدر فرح للآخرين ... الأجر من الله والتوفيق في الدنيا ..قال صلى الله عليه وسلم{ (إن من أحب الأعمال إلى الله إدخال السرور على قلب المؤمن, وأن يفرِّج عنه غمًا, أو يقضي عنه دينًا, أو يطعمه من جوع} و سُئِلَ الإمام مالك : "أي الأعمال تحب ؟" فقال: "إدخال السرور على المسلمين، وأنا نَذَرتُ نفسي أُفرِج كُرُبات المسلمين"فأفضل الناس مابين الورى رجل تقضى على يده للناس حاجات لا تمنعن يد المعروف عن أحد ما دمت مقتدرا

اهلا اهلا اهلا استاذى الجليل ومعلمى القدير اذا حضر الماء بطل التيمم

طيب ما تعمل اللى انت عاوزه فى تقرير اكسس واعمل كود تصدير التقرير الى اكسل اعتقد اسرع واسهل

اتفضل ده الطلب الاول كل اكواد ازرار الاوامر الاربعة http://www.4shared.com/rar/292xPyBwce/db3_up.html? فى شئ مش فاهمه حضرتك فى المشاركة الاولى قلت المستخدم يشتكي من كثرة الزرائر حيث اني مخصص لهذه العمليه اربعة زرائر بخلاف اني وضعت كود لحذف محتويات جدولين فى حدث عند الخروج من البرنامج وهو بهذا الشكل Private Sub Form_Close() DoCmd.RunSQL "DELETE *FROM Table3;" DoCmd.RunSQL "DELETE *FROM [Copy Of Table2];" MsgBox "سوف يتم الخروج من المقارنة", vbInformation, "انتبه" End Sub حيث ان الجدول الاول يوضع به البيانات ليحسب ال rank وهو مربوط باستعلام ومديول ليخرج الرانك والاخر وهو خزان لتجميع بيانات معينه وعرضها بشكل معين ارجوا المساعده فى دمج هذه الاستعلامات فى زر واحد فقط سؤالى هل تريد عمل زر امر لاغلاق النموذج ووضع الاستعلامات فى حدث عند الاغلاق على زر الامر بدلا من النموذج ؟

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

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