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

سلمت يداك وبارك الله فيك يا طيب

في المرفق بها طريقتين طريقة لنماذج تيست و تيست 2 واخرى لنموذج فورم 1 و فورم 2

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

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

وعليكم السلام .. تنسيق شرطي كما في المرفق تنسيق شرطي.rar

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

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

أوك طيب ايه تسلسل التسجيل المفترض ؟ يعني المنتج اذا كان رئيسي واذا كان مكون فأين يبدأ التسجيل والتكويد؟ علشان نقدر نقترح طريقة تحديد النوع والجمع بين الثلاثة انماط رئيسي وفرعي ومختلط اذا جاز التعبير كمان هناك نمط رابع وهو المنتج المماثل للمنتج الرئيسي مثل hp i3 هذا يماثل المنتج الرئيسي computer i3 المسجل بجدول المنتجات وله مكونات فرعية بجدول بوم

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

النقطة دي تتعلق بكفية تحديد نوع المنتج كان في السابق يتم تحديد نوع المنتج بدلالة field: Pcode..................table: Item_names لكن أنا عملت تغيير في كلاس المنتج ليحدد النوع من جدول Bom Public pcode As String Public mcode As String Public pprice As Double Public Function Load(cody As String) As String mcode = Nz(DLookup("MCode", "Bom", " [MCode] = '" & cody & "'"), 0) pcode = Nz(DLookup("PCode", "Bom", " [PCode] = '" & cody & "'"), 0) pprice = Nz(DLookup("price", "Products", " [PCode] = '" & pcode & "'"), 0) End Function وهذا ساعدني في مسألة المنتج الذي يعتبر رئيسي وفي نفس الوقت مكون فرعي المهم المسألة تحتاج تفكير منطقي كيف يتم تحديد نوع المكون و من أي جدول ؟ ضمن ثلاثة أنماط من المكونات

اليك هذا test1000.rar

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

وعليكم السلام وكل عام وانتم بخير الحل اخذته من هنا المهم الخصيصة : قابل للتقلص = لا newTab113.rar

استاذى الفاضل سلمت يداك مجهود جميل و افكار كويسة ,,, بعد التجربة المبدأية تم تغطية جميع الملاحظات السابقة وشغالة تمام ماعدا 3 نقاط : 1 - لو اخر حركة غير مقيمة هى حركة صرف مازال متوسط السعر بيساوى صفر وانا بصراحة مش فى دماغى غير فكرة واحدة فى نموذج ترانس توب بعد التحديث فى خانة الصرف نقول لو الحركة صرف يستدعى اخر متوسط سعر للمكون ده ويضربه فى الكمية وتنتج زد فاليو زى المنتج الرئيسى والفرعى كده اما فى حالة الاضافة بتتم العملية بصورة طبيعية مثل السابق 2 - بالنسبة للمنتج الرئيسى مش بياخد مجموع اخر متوسطات اسعار ده بياخد اول متوسط سعر ويتجاهل الباقى 3 - بالنسبة للمنتج الفرعى وتحديث سعر المنتج الرئيسى جزء منها تم بنجاح عند اضافة او صرف المنتج الفرعى سعر المنتج الرئيسى بيتحدث تمام طيب لو انا عاوز ان سعر المنتج الرئيسى يتحدث بعد تقييم مكونات المنتج الفرعى اللى هوا الشاشة مثال : انا عملت حركة اضافة لكفر شاشة وقمت مقيمها ب500 مثلا اصبح سعر الشاشة وليكن 500 طيب فى الخطوة دى ممكن يحدث سعر المنتج الرئيسى اللى المنتج الفرعى مرتبط بيه ؟ يعنى بدل ما سعر الكمبيوتر يتحدث بعد اضافة او صرف الشاشة لا عاوزه يتحدث بعد تقييم مكونات الشاشة لو ممكن يبقى تمام مش ممكن نفكر فى حاجة تانية بس اقدر اقول تسلم ايدك بنسبة 99% احنا خلصنا تقييم 17 .rar

ربنا يبارك فيك ويجزيك خيرا بمثل دعائك وأكثر وإن شاء الله تنتهوا من البرنامج على خير التقريب عاوز ملاحقة كودية باستمرار هههههه مرة نلاقي تعريف المتغير long ومرة نلاقيه integer والمرة دي موجود int داخل راوند جرب تاني ونتفحص أكثر فعلا جزئية هامة لو آخر حركة كانت القيمة صفر ستؤثر على سعر المنتج على العموم تمت اضافة استعلام في البداية يأخذ متوسطات الاسعار التي لا تساوي صفر ثم الاستعلام الموجود سابقا الذي يأخذ آخر قيمة لمتوسط السعر المشكلة أن مجموع متوسطات الاسعار للمكونات بياخد الاسعار اللي في جدول الحركة والشاشة كمكون فرعي بالنسبة للكمبيوتر يتم أخذ سعره من جدول الحركة أما اذا اضفت الشاشة في الفاتورة كمنتج رئيسي فسوف تأخذ السعر في جدول المنتجات على العموم تم عمل استعلام توحيد يجمع بين استعلام للمكونات الفرعية للمنتج عدا تلك المكونات التي تعتبر مكون رئيسي في نفس الوقت واستعلام آخر للمكونات الفرعية الموجودة كمنتج رئيسي في جدول المنتجات مع استخراج سعرها بجدول المنتجات ودالة التحديث لسعر المنتج الرئيسي تم ادخلها في الدالة الرئيسية بحيث يتم تنفيذ الجميع في أي حركة اضافة أو صرف أو قيمة المهم جرب واحتمال كبير تلاقي ملاحظات بسبب التعديلات الأخيرة المهم خلي نفسك طويل وصبر جميل تقييم 16 .rar

مشاء الله عليك أ/ سليم اكثر من رائع ممتااااااااااااااااااااااااااااز ربى يزيدك اخى بالمعرفة بشكرك يا غالى

جرب الاتي عزيزي تم اضافة حقل تشك بالتوفيق Select test.rar

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

اسف نسيت ان ادرج في الكود جدول اي دي لكن يتغير في جدول الاخر اتفضل اليك هذا سيتغير في كل الجداول Private Sub serial_AfterUpdate() On Error Resume Next Dim TeadilMyName As String TeadilMyName = "UPDATE ID INNER JOIN SUB ON ID.id1 = SUB.id SET ID.serial = [Forms]![DataMasterForm]![serial], SUB.serial = [Forms]![DataMasterForm]![serial] WHERE (((ID.id1)=[Forms]![DataMasterForm]![id]));" DoCmd.SetWarnings False DoCmd.RunSQL (TeadilMyName) DoCmd.SetWarnings True DoCmd.RunCommand acCmdSaveRecord End Sub اليك مرفق test444.rar

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

انا ما عملت اي شيء لزر ستارت انا عملت كود عند تحديث الاسم

عند الضغط على start تظهر المشكلة

اليك هذا الفيديو على التعديل ولم يظهر اي رسالة في القاعدة المرفقة Video_2017-06-24_053847.rar

انت عملته على قاعدة اخرى ... وذلك الجدول لا يسمح التكرار لذا اعمل تعديل على الجدول او غير اسم الى اسم اخر مثلا ليس يكون موجودة في جدول والا ارفق القاعدة اللي تعمل عليه انت

لاكمال ما عملت في القاعدة اولا عملت اضافة حقل لمصدر كومبوبوكس وعدلت في خصائص كومبوبوكس

انا اتمنى اولا يا استاذ @وائل أبو عبد الرحمن ان تترفق بى فظروف عملى لو تلاحظ تمنعنى من التواجد بصفة مستمرة ولو لاحظت انقطعت بالدخول في الفترة السابقة الى الموقع وللعلم سأنقطع مرة اخرى قأرجوا منكم العفو والسماح ولغلاوتك عندى بعد انتهائى من الافطار والصلاة يعلم الله لم اقوم من على الجهاز حتى اتمتت طلباتك بالتمام والكمال ولكن وقعت فى مشكلة صغيرة لم استطع تلوين نتيجة البحث مع التشكيل جرب المرفق الاتى ابحث بكلمة موت وجرب بعد كتابة كلمة البحث الضغط على الزر البحث فى كل الحقول ثم اختر من مربع التحرير والسرد الايات مرة ثم اختر من مربع التحرير والسرد الحديث وفى كل مرة لاحظ الفرق وفى كل مره اقتح التقرير ولاحظ الفرق بهذا ادين بكل الشكر لله سبحانه وتعالى الذى هدانى وما كنت لاهتدى لولا ان هدانى الله عزوجل سبحانك لا علم لنا الا ما علمتنا فيارب لك الحمد حمدا كثيرا طيبا طاهرا مباركا فيه يارب لك الحمد كما ينبغى لجلال وجهك ولعظيم سلطانك ثم ادين بعد ذلك بالفضل والشكر لكل اساتذتنا الافاضل الكرام الذين لم يبخلوا ولم يملوا جزاهم الله خيرا الجزاء واحسن اليهم كما احسنوا الينا اخص بالشكر الاستاذ الجليل @رمهان صاحب السبق الاول فى الية البحث بهذا الاسلوب الاكثر من الرائع اخص بالشكر الاستاذ الجليل @ابو خليلصاحب الاكواد الخاصة بازالة التشكيل اخص بالشكر الاستاذ الجليل @أ / محمد صالح التعديل على كود البحث اخص بالشكر الاستاذ الجليل @Gamal.Saad التعديل على كود البحث وهذا المرفق ناتج مجهود كل اساذتا الكرام وما قمت به فقط هو مزج هذه الافكار الاكثر من الرائعه للوصول بها الى تلك النتيجة المرجو الوصول اليها بناء على طلب اخونا الكريم @وائل أبو عبد الرحمن كل عام وانتم الى الله تعالى اقرب كل عام وانتم بكل الخير ان شاء الله اسأل الله تعالى لى ولكم ولكل المسلمين والمؤمنين الاحياء والاموات العفو والعافية والمغفرة دمتم بكل الخير احبكم فى الله ولوجه الله البحث بدون تشكيل-2.rar

الحمد لله وانتم بخير

استاذى الفاضل كل عام وانتم بخير والسنة الجاية نباركلك على وقوفك على جبل عرفات باذن الله وتدعيلنا بالنسبة للمرفق تم تجربة متوسط السعر واضافة وصرف المكونات و المنتجات الرئيسية وايضا اضافة وصرف المنتجات الفرعية مثل الشاشة ودى الملاحظات على المرفق 1 - هناك ملاحظة بالنسبة لتقريب الارقام فى حساب متوسط السعر يعنى المتوسط المفروض يكون 1633.3333 بيكتب فى الجدول 1633 واظن دى سهلة يتعدل فى دالة راوند . 2- المشكلة ان لو فى صنف اخر حركة فيه عبارة عن حركة صرف الحركة دى مش هيبقى ليها متوسط سعر هيكون بيساوى صفر لأن حضرتك عارف ان حركة الصرف بتاخد اخر متوسط لحركات الاضافة السابقة ولكن بعد حساب الحركة التالية لها وبالتالى لو هيا اخر حركة ومفيش حركة اضافة بعدها هيفضل اخر متوسط سعر للمكون ده بيساوى صفر وبالتالى يؤثر على متوسط سعره وبالتالى متوسط سعر المنتج الرئيسى . 3- عند استدعاء ثمن المنتج من جدول المنتجات يتم استدعاؤه بطريقة صحيحة ولكن عند ضربه فى الكمية تكون ناتج زد فاليو متقرب ايضا يعنى لو القيمة المفروض تبقى 1233.3333 تبقى فى زد فاليو 1233 . 4 - طبعا احنا متفقين ان الشاشة كمنتج فرعى بياخد مجموع متوسطات اسعار المكونات الخاصة بيه يعنى كفر وبودى وكرستالة مثل المثال و يدخل بمتوسط السعر الخاص بيه فى حساب متوسط سعر الكمبيوتر تمام ؟ طيب على افتراض ان متوسط سعر الشاشة اتغير تبعا لتغير سعر مكوناتها فى الحالة دى سعر المنتج الرئيسى اللى هوا الكمبيوتر مش هيتغير الا فى حالة تقييم منتج اخر من منتجات الكمبيوتر مثلا الرامات وبعد تقييم الرامات دى هيتم تحديث سعر الكمبيوتر على اخر الاسعار بما فيهم الشاشة السؤال بقى هل فى طريقة نخلى المنتج الرئيسى اللى هوا الكمبيوتر مثلا سعره يتحدث بعد اضافة او صرف المنتج الفرعى اللى هوا الشاشة ؟ يعنى يتم تحديثه عن طريق نموذج ترانس توب مش نموذج التقييم لأن طبعا احنا مش بنقيم الشاشة يدويا انما سعرها بيتحسب تلقائى ولذلك سعر الكمبيوتر مش بيتحدث بعد اضافتها او صرفها خد وقتك فى الرد طبعا احنا عارفين ان الايام دى زحمة عند الناس كلها فلك عذرك فى حالة التأخير واحنا كده كده باذن الله هنخلصه فى اجازة العيد الاسبوع ده بس نقدر نقول يا أستاذ جمال اننا بنحط اللمسات الاخيرة على الفكرة وطبعا كل ده بفضل الله ثم مجهودك فليبارك لك الله ويجازيك خير على نيتك الحسنة ومساعدة الاخرين تقييم 15 .rar

ربما يكون الحل x Salim.rar

عزيزي خليك معي خطوة خطوة بهذا الحل المبدئي وبعدين نشوف حل افضل فهم المطلوب وهو تحديد سجلات بخيار تشك بوكس ولكن احنا بنعملها ببديل اخر وهي الفلتره لذلك نتبع الاتي 1. غير اسم العنصر section الى xsection لانه اسم محجوز 2.اذهب للنموذج المنقسم واختر السهم للفلتره عند العمود id واختر مثلا الرقم 1 و 3 و 5 ثم موافق وهنا ستتم الفلتره على هذه السحلات فقط 3. ضع الكود التالي Private Sub Command6_Click() For i = 1 To Me.RecordsetClone.RecordCount Me.xSection = Text4 DoCmd.GoToRecord , , acNext Next DoCmd.GoToRecord , , acFirst End Sub هنا راح نلف على السجلات الظاهرة فقط ونسند القيم للسكشن حسب القيمة في مربع النص تحياتي

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

الاخ يوسف فين سرى الدخول على الفورم كما انه يوجد سرى vb تعودنا على فتح الملف فى المنتدى

الله يرضى عليك استاذي جعفر هل اكو شي اجمل من هذا الكود اوبدات يعمل بسرعة اكبر

هنا اختصار للكود Sub معاينة_مع_الطباعة() ActiveWindow.SelectedSheets.PrintPreview If MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") = vbYes Then ActiveSheet.PrintOut End Sub

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

السلام عليكم تفضل الكاشير.rar