اضافة شرط للكود

[jo_2010]

الخبراء الافاضل

بعد التحية

عندى تفرير اريد فتحة بشرط ان تكون حقل colour   غير فارغ 

برجاء التعديل على الكود 

الكود يعمل بكفاءة حسب التاريخ اريد اضافة اللون ايضا لكم الشكر   
 

Me.Refresh
DoCmd.OpenReport "Y_N_Report", acViewPreview, , "ddate= #" & [DDate] & "#", , Screen.ActiveControl.Caption

 

Lab.rar

[jjafferr]

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

اعمل حقل جديد في الاستعلام :

myColour: len([Colour])


وفي المعيار اكتب

<>0

 

[jo_2010]

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

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

اعمل حقل جديد في الاستعلام :

myColour: len([Colour])


وفي المعيار اكتب

<>0

 

الخبير الفاضل

اريد التعديل على الكود حتى  لا  اربط التقرير بال colour لانة يفتح تقارير اخرى لا تحتوى على colour مع العلم ان الاستعلام داخل التقرير وليس استعلام منفصل

تم تعديل يونيو 19 بواسطه jo_2010

[kkhalifa1960]

الكود باضافة شرط اللون :-

DoCmd.OpenReport "Y_N_Report", acViewPreview, , "ddate = #" & [DDate] & "# AND NOT IsNull(colour)", , Screen.ActiveControl.Caption