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

[kaser906]

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

قمت بعمل كود لعد السجلات بشروط

الكود عندما اضيف له شرط لايأتي بأي نتيجة

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

 

[Shivan Rekany]

عفوا بس ممكن ترفق القاعدة لو سمحت

[jjafferr]

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

 

جرب

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) اما السطر/الاسطر التي لا تريدها في الشرط)

 

جعفر

[kaser906]

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

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

 

جرب

len([coodkindexchange] & '')=0


وفي VBA

len([coodkindexchange] & "")=0

 

هذا يعمل عمل السطرين

isnull([coodkindexchange])= true

و

[coodkindexchange]= ""

 

جعفر

هذا جاب نتيجة

isnull([coodkindexchange])= true

شكرا استاذ شيفان

شكرا استاذ جعفر

 

تم تعديل يناير 31, 2017 بواسطه kaser906