kaser906 قام بنشر يناير 25, 2017 قام بنشر يناير 25, 2017 السلام عليكم ورحمة الله وبركاتة الكود التالي قمت بوضعه بنموذج فرعي في طريقة عرض نماذج مستمرة في حدث النموذج في الحالي لكن للاسف لايعمل حتى اقف على كل سجل اريد تغيير الكود الحالي إلى جملة استعلام اضعها بالاستعلام مباشرة للحصول على نتائج افضل If Me.Size_Weight = 0 Then Me.Size_Weight = Me.required_number * Me.Unit_price End If If Not (IsNull(Me![coodkind])) Or (Me![coodkind] = "") Then If (IsNull(Me![Size_Weight1])) Or (Me![Size_Weight1] = "") Then Me.Size_Weight1 = Me.Size_Weight 'Me.Refresh End If End If
jjafferr قام بنشر يناير 25, 2017 قام بنشر يناير 25, 2017 في 25/1/2017 at 15:24, kaser906 said: لكن للاسف لايعمل حتى اقف على كل سجل Expand السلام عليكم ولما تقف على السجل ، هل تتغير بيانات السجلات الاخرى الى نفس بيانات الحقل المحسوب الذي انت عليه؟ جعفر
kaser906 قام بنشر يناير 25, 2017 الكاتب قام بنشر يناير 25, 2017 في 25/1/2017 at 16:51, jjafferr said: السلام عليكم Expand وعليكم السلام ورحمة اللله وبركاتة في 25/1/2017 at 16:51, jjafferr said: ولما تقف على السجل ، هل تتغير بيانات السجلات الاخرى الى نفس بيانات الحقل المحسوب الذي انت عليه؟ Expand نعم استاذي يعطيني النتائج المطلوبة لكن لازم اخذ لفة على كل السجلات والسجلات عددها اكثر من خمسين سجل
jjafferr قام بنشر يناير 25, 2017 قام بنشر يناير 25, 2017 اذا سمحت لنا بالجزئية هذه من برنامجك ، ولو بسجلات قليلة ، ثم منه تخبرنا كيف ممكن ان نرى ما تريد جعفر
kaser906 قام بنشر يناير 25, 2017 الكاتب قام بنشر يناير 25, 2017 الحجم كبير جداول مرتبطة واستعلامات مع وحدات نمطية نماذج اساسية وفرعية ممكن اعمل استعلام واضيف فيه الحقول ؟ واذا كان كلا ولابد من جزئية البرنامج!! عطني إيميلك طال عمرك وارسله لك
jjafferr قام بنشر يناير 25, 2017 قام بنشر يناير 25, 2017 عفوا ما اقرأت السؤال بالطريقة الصحيحه اليك المعادلتين لإستعمالهم في استعلام: Size_Weight: IIf([Size_Weight] = 0, [required_number] * [Me.Unit_price], [Size_Weight]) Size_Weight1: IIf(Len([coodkind] & "") <> 0 And Len([Size_Weight1] & "") = 0, [Size_Weight], [Size_Weight1]) او Size_Weight1: IIf(Len([coodkind] & "") <> 0 And Len([Size_Weight1] & "") = 0, IIf([Size_Weight] = 0, [required_number] * [Me.Unit_price], [Size_Weight]), [Size_Weight1]) . وقد تحتاج انك تغير الفاصلة (لإستعمال الوندوز الانجليزي) الى فاصلة منقوطة (لإستعمال الوندوز العربي) ، جعفر
kaser906 قام بنشر يناير 25, 2017 الكاتب قام بنشر يناير 25, 2017 في 25/1/2017 at 19:45, jjafferr said: عفوا ما اقرأت السؤال بالطريقة الصحيحه اليك المعادلتين لإستعمالهم في استعلام: Size_Weight: IIf([Size_Weight] = 0, [required_number] * [Me.Unit_price], [Size_Weight]) Size_Weight1: IIf(Len([coodkind] & "") <> 0 And Len([Size_Weight1] & "") = 0, [Size_Weight], [Size_Weight1]) او Size_Weight1: IIf(Len([coodkind] & "") <> 0 And Len([Size_Weight1] & "") = 0, IIf([Size_Weight] = 0, [required_number] * [Me.Unit_price], [Size_Weight]), [Size_Weight1]) . وقد تحتاج انك تغير الفاصلة (لإستعمال الوندوز الانجليزي) الى فاصلة منقوطة (لإستعمال الوندوز العربي) ، جعفر Expand انا جالس صار لي ساعتين احاول اعمل مثال مصغر على العموم راح اجرب وارد عليك
kaser906 قام بنشر يناير 25, 2017 الكاتب قام بنشر يناير 25, 2017 في 25/1/2017 at 19:45, jjafferr said: عفوا ما اقرأت السؤال بالطريقة الصحيحه Expand ما فهمت ؟ في 25/1/2017 at 20:20, kaser906 said: Size_Weight: IIf([Size_Weight] = 0, [required_number] * [Me.Unit_price], [Size_Weight]) Expand هذا الكود عمل معاي كويس في 25/1/2017 at 20:20, kaser906 said: في 25/1/2017 at 19:45, jjafferr said: اليك المعادلتين لإستعمالهم في استعلام: Size_Weight1: IIf(Len([coodkind] & "") <> 0 And Len([Size_Weight1] & "") = 0, [Size_Weight], [Size_Weight1]) او Size_Weight1: IIf(Len([coodkind] & "") <> 0 And Len([Size_Weight1] & "") = 0, IIf([Size_Weight] = 0, [required_number] * [Me.Unit_price], [Size_Weight]), [Size_Weight1]) Expand Expand أما المعادلتين توجد مشكلة ما يعملوا استاذي بعد طول وقت عملت الجزئية الخاصة بالسؤال اليك المرفق وقد اوقفت الكود في حدث بالحالي من شان ما يغير الارقام وترجع تعدلهم بالجدول ما عليش تحمل اشوي المرفق بيتعبك بسبب ان بعض الكائنات تمت ازالتها لتقليل الحجم add.rar
jjafferr قام بنشر يناير 26, 2017 قام بنشر يناير 26, 2017 وعليكم السلام لاحظت عندك اكثر من حقل محسوبين ، فأضفتهم الى الاستعلام كذلك ، لم اغير في النموذج ، والحقول التي اجريت التجارب عليها تبدأ بالحرف z جعفر 554.add.accdb.zip
kaser906 قام بنشر يناير 26, 2017 الكاتب قام بنشر يناير 26, 2017 (معدل) Size_Weight السلام عليكم ورحمة الله وبركاتة استاذي عند دخولي على الجدول وقمت باضافة الرقم 0 للحقل Siz_weight وتركت حقل Siz_weight فارغ بدون قيمة هذا الكود اعطاني النتيجة المطلوبة zSize_Weight: IIf([Tbl_Month].[Size_Weight]=0;[required_number]*[Unit_price];[Tbl_Month].[Size_Weight]) لكن هذا الكود zSize_Weight1: IIf(Not (Len([Tbl_Month].[coodkind] & "")=0) And Len([Tbl_Month].[Size_Weight1] & "")=0;[Tbl_Month].[Size_Weight];[Tbl_Month].[Size_Weight1]) اعطاني النتيجة 0 والمطلوب يعطيني نتيجة Siz_weight1 = Siz_weight في حالة كان الحقل لاتوجد به قيمة تم تعديل يناير 27, 2017 بواسطه kaser906 اضافة صورة شرح
jjafferr قام بنشر يناير 27, 2017 قام بنشر يناير 27, 2017 اقتباس If Not (IsNull(Me![coodkind])) Or (Me![coodkind] = "") Then If (IsNull(Me![Size_Weight1])) Or (Me![Size_Weight1] = "") Then Me.Size_Weight1 = Me.Size_Weight 'Me.Refresh End If End If في 26/1/2017 at 22:14, kaser906 said: والمطلوب يعطيني نتيجة Siz_weight1 = Siz_weight في حالة كان الحقل لاتوجد به قيمة Expand Expand وعليكم السلام الله ان شاء الله يطول في عمرك معادلتك تقول شئ ، وكلامك يقول شئ آخر المعادلة تقول: اذا الحقل coodkind مو فاضي والحقل Size_Weight1 فاضي ، خلي النتيجة Siz_weight1 = Siz_weight يعني الكود يفحص الحقلين coodkind وSize_Weight1 ، ولا يفحص الحقل Siz_weight جعفر 1
kaser906 قام بنشر يناير 27, 2017 الكاتب قام بنشر يناير 27, 2017 السلام عليكم ورحمة الله استاذي جعفر معادلتي تفحص الكود في النموذج ويتم تحويل حقل siz_weight عن طريق هذا الكود ويتم تحويل القيمة مباشرة وتحفظ بالجدول الكود الاول , If Me.Size_Weight1 = Null Then If Me.Size_Weight = 0 Then Me.Size_Weight = Me.required_number * Me.Unit_price End If الكود الثاني , If Not (IsNull(Me![coodkind])) Or (Me![coodkind] = "") Then If (IsNull(Me![Size_Weight1])) Or (Me![Size_Weight1] = "") Then Me.Size_Weight1 = Me.Size_Weight Me.Refresh End If End If الاكواد اللي وضعتها انت بالاستعلام ايضاً سليمة وتعطي نتيجة لكن المشكلة انها تترك حقل siz_weight بالجدول على القيمة الصفرية وهنا تحدث المشكلة بالنسبة لحقل siz_weight1 حيث لم يعرف في الاستعلام انه تم تحويل القيمة عن طريق حقل غير منظم وياخذ قيمته من الجدول والنتيجة تكون 0
kaser906 قام بنشر يناير 28, 2017 الكاتب قام بنشر يناير 28, 2017 استاذي / ابو موسى هل يوجد حل ام اترك الاستعلام وابحث عن حل عن طريق النموذج بواسطة كود يقوم باخذ دورة على جميع السجلات ليقوم بالعملية الحسابية
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.