مشارك جديد يرحب بكم ... وسؤال مهم جدا ارجو المساعدة .....

ارفق لنا مثالا ليتم التعديل عليه..

i1982 كتب:

ارفق لنا مثالا ليتم التعديل عليه..

ماعندي شي جاهز .....

اعيد المشكلة تاني ......

المشكله هي انه بدي اطبع تقرير لسجل واحد فقط .... " يعني " طباعة تقرير بشرط معين أو ارسال parameter للداتا ريبورت " كيييف ؟؟؟ " ....

مثلا : عشان اطبع تقرير طبي لموظف فعلي ارسل رقم ملفه وبعدها الداتا ريبورت يطبعلي التقرير الطبي لهذا الموظف "فقط"....

السلام عليكم

عندي رد بسيط ارجو ان يكون له فائدة

الذي عند به علم تستطيع استخدام جمل SQL لذلك وأضن الأفضل أن تعمل التقرير على الكرستال ريبورت عن طريق الفجوال بإصداراته 8و10 لأنه يعطي إمكانيات أكثر

ارجو أن اكون أوصلت جز بسيط من الحل وشكراً

On Error Resume Next
sql_str = "select * from table where field= '" & text1 & "'"
DataEnvironment1.Commands(1).CommandType = adCmdText
DataEnvironment1.Commands(1).CommandText = sql_str
DataEnvironment1.Commands(1).Execute
report1.Show

جرب هذا الكود وانا استخدمه في برامجي....

i1982 كتب:

On Error Resume Next
sql_str = "select * from table where field= '" & text1 & "'"
DataEnvironment1.Commands(1).CommandType = adCmdText
DataEnvironment1.Commands(1).CommandText = sql_str
DataEnvironment1.Commands(1).Execute
report1.Show

جرب هذا الكود وانا استخدمه في برامجي....

انا بجربها اليوم وبشوف اذا زبطت بخبرك ....

وشكرا الف الف شكر ...

i1982 كتب:

On Error Resume Next
sql_str = "select * from table where field= '" & text1 & "'"
DataEnvironment1.Commands(1).CommandType = adCmdText
DataEnvironment1.Commands(1).CommandText = sql_str
DataEnvironment1.Commands(1).Execute
report1.Show

جرب هذا الكود وانا استخدمه في برامجي....

شكرا الك كتييييييييييييييييييييير :D زبطت والحمدلله .......... بس صار في مشكله تانية :s

في الريبورت نفسه كيف اعمل رفرش للبيانات الي ظهرت ؟؟؟

يعني لما بعت رقم الملف لموظف معين حسب الكود الي اعطيتني ياه ، طبعلي لهادا الموظف ... بس لما ارجع اعطيه رقم غيره بيطبعلي التقرير للموظف السابق !! الي اعطيت رقمه اول مرة !!!! شو الحل ؟؟؟

On Error Resume Next
DataEnvironment1.rsالاسم في الداتا انفايرومنت.Close
sql_str = "select * from table where field= '" & text1 & "'"
DataEnvironment1.Commands(1).CommandType = adCmdText
DataEnvironment1.Commands(1).CommandText = sql_str
DataEnvironment1.Commands(1).Execute
report1.Show

اعتذر على التأخير في الرد

i1982 كتب:

On Error Resume Next
DataEnvironment1.rsالاسم في الداتا انفايرومنت.Close
sql_str = "select * from table where field= '" & text1 & "'"
DataEnvironment1.Commands(1).CommandType = adCmdText
DataEnvironment1.Commands(1).CommandText = sql_str
DataEnvironment1.Commands(1).Execute
report1.Show

اعتذر على التأخير في الرد

اخي الكريم

ارجووك .. وضحلي DataEnvironment1.rsالاسم في الداتا انفايرومنت.Close مووو فاهمها بالمرة !!!!

ارجوووك وحاس انها قربت تنحل

زبط واخيرا ..... بس في سؤال أخير ... كيف اضيف التاريخ للتقرير ؟؟؟

يعني كيف يطبع التاريخ على التقرير ويوخد التاريخ تاع الجهاز ؟؟؟

في حدث الزر الذي سوف ينقلك الى التقرير اكثب ما يلي:-

ولكن لا تنسى ادراج ليبل الى التقرير واحفظ في اي section ومن ثم استخدم هذا الكود....

Private Sub Command1_Click()
On Error Resume Next
report.Sections("section2").Controls("label10").Caption =Date
report.Show
End Sub

جرب وابلغنا بالنتيجة....مع تحياتي..