سؤال بخصوص : مشكلة فى استدعاء موديول عند وجود قيم فارغه

[ابو جودي]

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

اساتذتى الكرام اواجه مشكلة لم استطيح حلها اتمنى على الله تعالى ان يجرى الحل يديكم ان شاء الله

الاستعلام باسم QryAll  المشكلة تبدأ به

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

 

اصل الموضوع فى الملف الموجود بالمشاركة للاستاذ الجليل @jjafferr

في ‏٠٣‏/‏٠٤‏/‏٢٠٢٠ at 22:11, 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 · 14 تنزيلات

02.accdb

[ابوآمنة]

أخي وحبيبي أبا جودى 

هل جربت هكذا 

units2: G_to_K_u(IIf(IsNull([units]);0;[units]))


wzn2: G_to_K_w(IIf(IsNull([units]);0;[units]);IIf(IsNull([wzn]);0;[wzn]))

 

[jjafferr]

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

 

اما انا ، فأفضّل ان اقوم بكل شيء في الكود ، لأن عندي مساعة واسعة ومجال اكبر للعمل هناك 🙂

 

يمكنك حل المشكلة بطريقتين ، اولها بإصطياد رقم الخطأ ، ثم نعمل on error

 

والثاني بفحص المتغير قبل دخوله في المعادلة:

استعمل
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 len(u & "")=0 then
  
        G_to_K_w =0
  
    elseIf u = "جرام" Then
    
        G_to_K_w = w / 1000
    
    Else
        
        G_to_K_w = w
    
    End If
    
End Function

.

جعفر

[ابو جودي]

في ٦‏/٤‏/٢٠٢٠ at 09:43, jjafferr said:

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

 

اما انا ، فأفضّل ان اقوم بكل شيء في الكود ، لأن عندي مساعة واسعة ومجال اكبر للعمل هناك 🙂

 

يمكنك حل المشكلة بطريقتين ، اولها بإصطياد رقم الخطأ ، ثم نعمل on error

 

والثاني بفحص المتغير قبل دخوله في المعادلة:

استعمل
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 len(u & "")=0 then
  
        G_to_K_w =0
  
    elseIf u = "جرام" Then
    
        G_to_K_w = w / 1000
    
    Else
        
        G_to_K_w = w
    
    End If
    
End Function

.

جعفر

نفس المشكلة

[ابو جودي]

وكيف اصطاد رقم الخطاء 

[jjafferr]

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

 

القيم لا تصل الى الوحدة النمطية من الاستعلام ، بسبب انها NULL !!

فالطريقة هي مثل ما قالها اخوي ابو آمنه ، او

.

جعفر

 

02.accdb