نجوم المشاركات

بين الملفات القديمة وجدت هذا الملف عن نفس الموضوع عسى ان ينال اعجابك اخي الزباري auto_sum.rar

تم التعديل بطريقة الأستاذ سليم حاصبيا sub total loop.rar وأتمنى أن يوافق صوابكم

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

استعملات اخرى لدالة Vlookup عند تحديد اي صف باللست بوكس يتم جلب بياناتة بالتكست بوكس ارجوا ان يكون الكود مفيد للجيع ستعمالات اخرى للدالة Vlookup.rar

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

شاهد المرفق اخي الكريم واي شيئ تراه مكرر غير قيمتة من جدول 1 وجدول 2 فقط نسخة11.rar

السلام عليكم ورحمة الله تعاىل وبركاته اخى الحبيب اعتذر جدا جدا جدا جدا للتأخــــير وأعتذر أكثر اننى لم اعط المرفق الاتى حقه فى التصميم والتفكير المنمق فى الية العمل والتحكم الكامل بطريقة مرنة بسبب ظروف عملى وانشغالى فى تلك الفترة يعلم الله دخلت الان مخصوص لمتابعة موضوع حضرتك وكنت كلى امل ان اجدك وصلت لنتيجتك المطلوبة ولما وجدت تلك المشاركة قمت بتصميم هذه القاعدة سريعا لتأخذ منها الفكرة وتكمل مشوراك ان شاء الله اخى الحببيب ان شاء الله تعالى لى عودة فى القريب العاجل ان يسر لى ربى وكان فى العمر بقية وكلى امل ان ارى المرفق الخاص بكم بالتعديل الذى تتمناه ان شاء الله امر لاحقا لارى ان اعجبك المرفق ام لا وان كانت فيه الفكرة المطلوبة من عدمها ملاحظة هامة برجاء فك المرفق على القطاع >------>> /:D اخوك المحب محمد عصاام Photo Album.rar

السلام عليكم ورحمة الله تفضل اخى الكريم Nouveau dossier.rar

وعليكم السلام اخي صالح فيه ملاحظة بسيطة : لو كان التعديل بالسجل الاول . هنا عليك صيد الخطأ حيث لن يذهب للسابق وانت باول سجل وبعد ذلك سيننتقل السجل للسجل الذي يلي السجل الحالي تحياتي

طلعت محمد حسن اخى الفاضل جزاك الله خيرا ما شاء الله عليك تحياتى :))))))))))))))))))))))))))متابع

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

مثال : ترحيل_v002.rar

اخي حسين الحل المقدم بالنسبة لي تم عملة من خلال الكود البرمجي وليس التنسيق الشرطي

اسعد الله اوقاتكم والمعذره على التاخير طبعا حاولت ولكن للاسف لم تعمل

السلام عليكم ورحمة الله تم تعديل الكود ولكنه يستغرق وقتا فى التنفيذ استبدل الكود السابق بهذا الكود Sub Tra_Data3() Application.ScreenUpdating = False LR = Sheet12.Range("B" & Rows.Count).End(xlUp).Row For R = 13 To LR For F = 13 To Cells(Rows.Count, "C").End(xlUp).Row If Cells(F, "C") = Sheet12.Cells(R, "B") Then Sheet12.Range("C" & R).Range("A1:D1").Copy Range("D" & F).PasteSpecial xlPasteValues End If Next Next Application.CutCopyMode = False MsgBox " تم بحمد الله " Application.ScreenUpdating = True End Sub

السلام عليكم وبعد اذن السادة الخبراء هذا هو التعديل حسب فهمي Database14.rar

تفضل اخي الكريم Database3.rar

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

السلام عليكم ورحمة الله و بركاته استاذي رمهان تحية طيبة بعد التمعن في المرفقات و التجارب كانت النتائج الآتية مرفق اخينا صالح حمادي فهو كما تفضلت اذا كان التعديل في منتصف السجلات سيذهب الى السجل الاخير مما يجعلك تعيد البحث عن السجل المطلوب مرفق اخينا ابا جودي كان هو الحل الشافي و كما تفضلت يكفي استخدام التراجع عن الحدث ( بعد التجربة كانت النتيجة واحدة ) الغريب في الموضوع اني جربت التراجع عن الحدث سابقا ولكن دون فائدة !! ولله حكمته في ان يكون الحل على يد اخينا ابا جودي اما استخدام cancel=true فهو لم يجدي نفعا ابدا !!!!

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

السلام عليكم تفضل اخي العزيز تم عمل التنيسق الشرطي للخليه AMAN.rar

السلام عليكم احبتي بعد التمعن قليلا نتج معي التالي : 1. عند تجربتي لم استخدم المفتاح انتر بعد الادخال وانما استخدمت الماوس فلم تظهر المشكلة وعند التجربة قد قمت بحذف الكود الزائد وهنا اعتقدت ان المشكلة تكمن في الكود بينما المشكلة تظهر عند استخدام الانتر وحصرا فقط عندما يكون الادخال في السجل الاخير . وهنا اعتذر منكم احبتي 2. كانت هي ليست مشكلة وانما من الطبيعي انه عند الوصول للسجل الاخير بالنموذج الفرعي ثم الضغط على انتر ان يتقل التركيز للرئيسي ومن ثم سجلا جديدا لان الخيارات في الاكسس ومن خيار اعدادات العميل تجد الانتقال للحقل التالي لسلوك مفتاح الادخال . كما يمكن اظهار نافذة tab order لمعرفة تسلسل التاب فالنموذج الفرعي هو احد العناصر للنموذج الرئيسي . المقترحات : 1. وضع خاصية دورة للنموذج الرئيسي ومن التاب غير ذلك الى = السجل الحالي . فهنا عند الضغط على انتر بعد الرسالة وانت في السجل الاخير لا يذهب للرئيسي وسجل جديد الا اذا كنت محتاج وعمدا انه بالضغط على الانتر باستمرار ان يلف على سجلات الفرعي وعند الاخير يبدا بسجل تالي في الرئيسي وهكذا 2. الاستاذ اباجودي قام بتغيير موقع الحدث وعلى مستوى النموذج الفرعي وقبل التحديث فلافضل الاستفادة من الباراميتر cancel وبوضع cancel=true بديلا للتراجع والغاء الحدث 3. الاستاذ صالح حمادي استخدم الانتقال للسجل الاخير مما اجبر الاكسس عدم الذهاب للنموذج الرئيسي وهنا لو كان التعديل في وسط السجلات سيذهب دائما للاخير مما يجعلك تعيد البحث عن السجل الآنف تعديله وبصعوبة قليلا اتمنى ان ظهر السبب استاذنا محمد ايمن لعله يبطل العجب ولكم اجمل التحايا

تفضل اخي حسين واسف على عدم الانتباه AMAN جديد.rar

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

شوف التعديل ده طيب ولا يهمك خد راحتك وما تقلقش

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

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

الله لايحرمني منك المثال جميل وممكن ينفع معانا بس يحتاج اضافة حقل في جدول tabl1 ليكون لكل صنف صوره كما ياليت يكون هناك خيار check box في نموذج form1_item عندما يكون الخيار true تكون القائمة صور وعندما يكون الخيار False شاكر لك ولجميع الاخوان

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

جرب هذا الملف Add_sheets.rar

اتفضل جرب كده قاعدة بيانات2.rar

اتفضل ده الطلب الاول كل اكواد ازرار الاوامر الاربعة 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 وهو مربوط باستعلام ومديول ليخرج الرانك والاخر وهو خزان لتجميع بيانات معينه وعرضها بشكل معين ارجوا المساعده فى دمج هذه الاستعلامات فى زر واحد فقط سؤالى هل تريد عمل زر امر لاغلاق النموذج ووضع الاستعلامات فى حدث عند الاغلاق على زر الامر بدلا من النموذج ؟

شريط المتحرك ازرق فلاش ممكن شرح كامل له

السلام عليكم أخي العزيز إنسخ مابداخل ملف التيكست الذي ارفقته لأنني لاأستطيع قراءته عندي مشاكل مع اللغة العربية في الجهاز