كيفية اظهار البيانات في التقرير بشرط معين ؟؟

-9

ممكن تجربى هذا الكود

SELECT name_t, education_t, major_t FROM t1
 WHERE (major_t like ' % Combo1.SelectedItem % ')

وأخبرينا بالنتيجة

-waf

اولا احب اقولك يا enjyshahin شكرا على ردك :)

و ثانيا : للأسف جربت طريقتك بس ما مشيت ؟؟؟؟

ياريت تفكر لي بطريقة تانيه لاني من جد محتااااجتها ضروري ؟

و كمان كيف اعمل الشرط نفسه و لكن عن طريق اخذ الكلمه المراد مقارنتها من Text box عادي ؟؟

بدي اعرف صيغة الكتابه لاني جربت و برضه ما ظبطت :(

انا بأكتب الكود في ال command الموجود في ال dataenviromet الخاص بال data report

و شكرا مره تانيه : )

السلام عليكم ورحمه الله

اولا في الكوماند نضع جمله Select المطلوبة مثلاً

Select TblSeara.Emp_No, TblSeara.Emp_Nam, TblSeara.Station, TblSeara.Direc, TblSeara.Region, TblSeara.Taeen_Dat, TblSeara.Birt_Dat From TblSeara Where Taeen_Dat = ? Or Taeen_Dat = ? And Direc = ? Order By Emp_No;

مع ملاحظة ان الشي المطلوب وهو التخصص مثلا نضع عليه علامه استفهام في الشرط

ثم نذهب الي parameters tab

نضع خصائص البارمتر كما في الصورة

سيظهر لك عدد البارمتر علي عدد علامات الاستفهام

نقوم بالتغيير كما يظهر علي الشاشة كلها

بالنسبة لل Host data type فقط هو المتغير علي حسب النوع عندك

تاريخ او نص او رقم

ثم نكتب الكود الاتي في زر الامر لاظهار التقرير

On Error Resume Next

If Me.Combo1 = "" Then

MsgBox "Please Enter Religon type", vbExclamation

Exit Sub

End If

Dim r As String

r = Combo1.Text

If DataEnvironment1.rsCommand2.State = 0 Then

Else

DataEnvironment1.rsCommand2.Close

End If

DataEnvironment1.Command2 r

DataReport5.Sections("Section2").Controls("Label3").Caption = r

DataReport5.Show

DataReport5.Refre

حيث الكماند هو Command2

وLabel3 هو ليبل يمكنك وضعه علي التقرير ليظهر التخصص الذي تم اختياره