kaser906 قام بنشر يناير 31, 2017 قام بنشر يناير 31, 2017 السلام عليكم ورحمة الله وبركاتة قمت بعمل كود لعد السجلات بشروط الكود عندما اضيف له شرط لايأتي بأي نتيجة and [coodkindexchange]= Null وعندما اقوم بإزالة هذا الشرط فقط يعمل علماً ان الشروط مستوفاة بالجدول لعمل الكود حيث يوجد سجلات توافق كل الشروط المذكورة بالكود التالي If DCount("[coodkind]", "Tbl_Month", "[exchange]>0 And[coodkindexchange]= Null And [Yaree] = Forms![frm_3]![Yaree] and Monthly = Forms![frm_3]![Monthly]") > 0 Then MsgBox "إكمل بيانات المواد المستبدلة أولا !!!", 48, " رسالة تنبيه !" Me.code_2.SetFocus End If
jjafferr قام بنشر يناير 31, 2017 قام بنشر يناير 31, 2017 وعليكم السلام جرب len([coodkindexchange] & '')=0 وفي VBA len([coodkindexchange] & "")=0 هذا يعمل عمل السطرين isnull([coodkindexchange])= true و [coodkindexchange]= "" جعفر والاسهل هو فك الشروط الى اسطر سهل التعامل معاها C = "[exchange]>0" C = C & " And len([coodkindexchange] & '')=0" C = C & " And [Yaree] =" & Forms![frm_3]![Yaree] C = C & " and [Monthly] =" & Forms![frm_3]![Monthly] If DCount("[coodkind]", "Tbl_Month", C) > 0 Then بحيث تستطيع ان توقف عمل اي سطر بعمل اشارة ' (او rem) اما السطر/الاسطر التي لا تريدها في الشرط) جعفر 1
kaser906 قام بنشر يناير 31, 2017 الكاتب قام بنشر يناير 31, 2017 (معدل) 11 دقائق مضت, jjafferr said: وعليكم السلام جرب len([coodkindexchange] & '')=0 وفي VBA len([coodkindexchange] & "")=0 هذا يعمل عمل السطرين isnull([coodkindexchange])= true و [coodkindexchange]= "" جعفر هذا جاب نتيجة isnull([coodkindexchange])= true شكرا استاذ شيفان شكرا استاذ جعفر تم تعديل يناير 31, 2017 بواسطه kaser906
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.