مشكلة بخصوص جمع الوزن حسب الاسم

[jjafferr]

السلام عليكم 🙂

 

ليش ما تحبون الوحدات النمطية ، سهلة ولذيذة 🙂

 

بدل هذا الحقل
UnionUnit: IIf([units]="جرام","كيلو جرام",IIf([units]="كيلو جرام","كيلو جرام",IIf([units]="قرص","قرص")))


استعمل
units2: G_to_K_u([units],[wzn])

وهاي الوحدة النمطية ماله
Public Function G_to_K_u(u As String, w As Double) As String

    'convert Gram to Kilogram
    'units
    
    If u = "جرام" Then
    
        G_to_K_u = "كيلو جرام"
    
    Else
        
        G_to_K_u = u
    
    End If
    
End Function

.

وبدل هذا الحقل
UnionMeasure: IIf([units]="جرام",Format([wzn]/1000,"#,##0.000"),IIf([Units]="كيلو جرام",Format([wzn],"#,##0.000"),IIf([units]="قرص",[wzn])))


استعمل
wzn2: G_to_K_w([units],[wzn])

وهاي الوحدة النمطية ماله
Public Function G_to_K_w(u As String, w As Double) As Double

    'convert Gram to Kilogram
    'wzn
    
    If u = "جرام" Then
    
        G_to_K_w = w / 1000
    
    Else
        
        G_to_K_w = w
    
    End If
    
End Function

.

جعفر

1202.Qs For Weight (UP2).mdb.zip

[أبوبسمله]

مين قال بس مبنحبهاش بنحبوها والله استاذى ومعلمى العزيز @jjafferr 😀

هى الفكره ان كنا بنحاول نوصل للفكره الاول وبعد كده تنظيم العمل بقى

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

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

[ابو جودي]

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

السلام عليكم 🙂

 

ليش ما تحبون الوحدات النمطية ، سهلة ولذيذة 🙂

 

بدل هذا الحقل
UnionUnit: IIf([units]="جرام","كيلو جرام",IIf([units]="كيلو جرام","كيلو جرام",IIf([units]="قرص","قرص")))


استعمل
units2: G_to_K_u([units],[wzn])

وهاي الوحدة النمطية ماله
Public Function G_to_K_u(u As String, w As Double) As String

    'convert Gram to Kilogram
    'units
    
    If u = "جرام" Then
    
        G_to_K_u = "كيلو جرام"
    
    Else
        
        G_to_K_u = u
    
    End If
    
End Function

.

وبدل هذا الحقل
UnionMeasure: IIf([units]="جرام",Format([wzn]/1000,"#,##0.000"),IIf([Units]="كيلو جرام",Format([wzn],"#,##0.000"),IIf([units]="قرص",[wzn])))


استعمل
wzn2: G_to_K_w([units],[wzn])

وهاي الوحدة النمطية ماله
Public Function G_to_K_w(u As String, w As Double) As Double

    'convert Gram to Kilogram
    'wzn
    
    If u = "جرام" Then
    
        G_to_K_w = w / 1000
    
    Else
        
        G_to_K_w = w
    
    End If
    
End Function

.جعفر

1202.Qs For Weight (UP2).mdb.zip 35.95 kB · 4 تنزيلات

ههههههههه سبحان الله 

والله كنت افكر افتح الحاسوب الان لتحويل الاستعلام لوحدة نمطيه

استاذى القدير و ومعلمى الجليل و والدى الحبيب الاستاذ @jjafferr 🌹

جزاكم الله خيرا 🙏 واسال الله لكم البركة فى العمر و العمل والاهل والولد وان يزيدكم علما وان ينفعكم بما علمكم  امين امين امين

 

 

[ابو جودي]

ممكن سؤال يا استاذ @jjafferr 🌹

حضرتك قلت

units2: G_to_K_u([units],[wzn])

وهاي الوحدة النمطية ماله
Public Function G_to_K_u(u As String, w As Double) As String

    'convert Gram to Kilogram
    'units

    If u = "جرام" Then
        G_to_K_u = "كيلو جرام" 
    Else   
        G_to_K_u = u
    End If
End Function

هل هناك داعى لاستخدام حقل الاعداد هنا 

يعنى ماذا لو كان هذا الجزء من الكود بالشكل الاتى

units2: G_to_K_u([units])

وهاي الوحدة النمطية ماله
Public Function G_to_K_u(u As String) As String

    'convert Gram to Kilogram
    'units

    If u = "جرام" Then
        G_to_K_u = "كيلو جرام" 
    Else   
        G_to_K_u = u
    End If
End Function

امممم

[jjafferr]

4 ساعات مضت, ابا جودى said:

هل هناك داعى لاستخدام حقل الاعداد هنا

يا باشمهندس محمد ، يعني لازم نعطيك كل اسرارنا !!

هاي الله يسلمك نسخ/لصق آخر الليل

 

كلامك صحيح ، مافي داعي للوزن هنا 🙂

 

جعفر

[أبوبسمله]

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

يا باشمهندس محمد ، يعني لازم نعطيك كل اسرارنا !!

هاي الله يسلمك نسخ/لصق آخر الليل

كلامك صحيح ، مافي داعي للوزن هنا 🙂

جعفر

ربنا يديك الصحه ويباركلنا فيك اخى ومعلمنا العزيز جعفر

[ابو جودي]

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

يا باشمهندس محمد ، يعني لازم نعطيك كل اسرارنا !!

هاي الله يسلمك نسخ/لصق آخر الليل

 

كلامك صحيح ، مافي داعي للوزن هنا 🙂

 

جعفر

جزاكم الله خيرا 🙏

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