تغيير الكود إلى جملة SQL

[kaser906]

السلام عليكم ورحمة الله وبركاتة

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

في حدث النموذج في الحالي

لكن للاسف لايعمل حتى اقف على كل سجل

اريد تغيير الكود الحالي إلى جملة استعلام اضعها بالاستعلام مباشرة

للحصول على نتائج افضل

           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]

منذ ساعه, kaser906 said:

لكن للاسف لايعمل حتى اقف على كل سجل

السلام عليكم

 

ولما تقف على السجل ، هل تتغير بيانات السجلات الاخرى الى نفس بيانات الحقل المحسوب الذي انت عليه؟

 

جعفر

[kaser906]

1 دقيقه مضت, jjafferr said:

السلام عليكم

وعليكم السلام ورحمة اللله وبركاتة

 

2 دقائق مضت, jjafferr said:

ولما تقف على السجل ، هل تتغير بيانات السجلات الاخرى الى نفس بيانات الحقل المحسوب الذي انت عليه؟

نعم استاذي يعطيني النتائج المطلوبة

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

[jjafferr]

اذا سمحت لنا بالجزئية هذه من برنامجك ، ولو بسجلات قليلة ،

ثم منه تخبرنا كيف ممكن ان نرى ما تريد

 

جعفر

[kaser906]

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

مع وحدات نمطية نماذج اساسية وفرعية 

ممكن اعمل استعلام واضيف فيه الحقول ؟

واذا كان كلا ولابد من جزئية البرنامج!!

عطني إيميلك طال عمرك وارسله لك 

[jjafferr]

عفوا ما اقرأت السؤال بالطريقة الصحيحه

 

اليك المعادلتين لإستعمالهم في استعلام:

    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]

33 دقائق مضت, 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])
    

.

وقد تحتاج انك تغير الفاصلة (لإستعمال الوندوز الانجليزي)  الى فاصلة منقوطة (لإستعمال الوندوز العربي) ،

 

جعفر

انا جالس صار لي ساعتين احاول اعمل مثال مصغر 

على العموم راح اجرب وارد عليك 

[kaser906]

2 ساعات مضت, jjafferr said:

عفوا ما اقرأت السؤال بالطريقة الصحيحه

ما فهمت ؟

2 ساعات مضت, kaser906 said:

Size_Weight: IIf([Size_Weight] = 0, [required_number] * [Me.Unit_price], [Size_Weight])

هذا الكود عمل معاي كويس

2 ساعات مضت, kaser906 said:

 

2 ساعات مضت, 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])

 

 

أما المعادلتين

توجد مشكلة ما يعملوا

استاذي بعد طول وقت عملت الجزئية الخاصة بالسؤال

اليك المرفق

وقد اوقفت الكود في حدث بالحالي من شان ما يغير الارقام وترجع تعدلهم بالجدول

ما عليش تحمل اشوي المرفق بيتعبك بسبب ان بعض الكائنات تمت ازالتها لتقليل الحجم

add.rar

[jjafferr]

وعليكم السلام

 

لاحظت عندك اكثر من حقل محسوبين ، فأضفتهم الى الاستعلام كذلك ،

لم اغير في النموذج ، والحقول التي اجريت التجارب عليها تبدأ بالحرف z

 

جعفر

554.add.accdb.zip

[kaser906]

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]

اقتباس

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

 

9 ساعات مضت, kaser906 said:

والمطلوب  يعطيني نتيجة  Siz_weight1 = Siz_weight   في حالة كان الحقل  لاتوجد به قيمة

 

 

وعليكم السلام

 

الله ان شاء الله يطول في عمرك

معادلتك تقول شئ ، وكلامك يقول شئ آخر

 

المعادلة تقول: اذا الحقل coodkind مو فاضي والحقل Size_Weight1 فاضي ، خلي النتيجة Siz_weight1 = Siz_weight

يعني الكود يفحص الحقلين coodkind وSize_Weight1  ، ولا يفحص الحقل Siz_weight

 

جعفر

[kaser906]

السلام عليكم ورحمة الله

استاذي جعفر

معادلتي تفحص الكود في النموذج ويتم تحويل حقل 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]

استاذي / ابو موسى 

هل يوجد حل 

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