ابو جودي قام بنشر أبريل 5, 2020 مشاركة قام بنشر أبريل 5, 2020 السلام عليكم ورحمة الله وبركاته اساتذتى الكرام اواجه مشكلة لم استطيح حلها اتمنى على الله تعالى ان يجرى الحل يديكم ان شاء الله الاستعلام باسم 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 رابط هذا التعليق شارك More sharing options...
ابوآمنة قام بنشر أبريل 5, 2020 مشاركة قام بنشر أبريل 5, 2020 أخي وحبيبي أبا جودى هل جربت هكذا 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])) 1 1 رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر أبريل 6, 2020 مشاركة قام بنشر أبريل 6, 2020 وعليكم السلام 🙂 اما انا ، فأفضّل ان اقوم بكل شيء في الكود ، لأن عندي مساعة واسعة ومجال اكبر للعمل هناك 🙂 يمكنك حل المشكلة بطريقتين ، اولها بإصطياد رقم الخطأ ، ثم نعمل 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 . جعفر 3 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أبريل 7, 2020 الكاتب مشاركة قام بنشر أبريل 7, 2020 في ٦/٤/٢٠٢٠ 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 . جعفر نفس المشكلة 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أبريل 7, 2020 الكاتب مشاركة قام بنشر أبريل 7, 2020 وكيف اصطاد رقم الخطاء رابط هذا التعليق شارك More sharing options...
أفضل إجابة jjafferr قام بنشر أبريل 7, 2020 أفضل إجابة مشاركة قام بنشر أبريل 7, 2020 وعليكم السلام 🙂 القيم لا تصل الى الوحدة النمطية من الاستعلام ، بسبب انها NULL !! فالطريقة هي مثل ما قالها اخوي ابو آمنه ، او . جعفر 02.accdb 3 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان