در مورد datareport فوری

[ehsan_2000]

با سلام
میخواستم بدونم چجوری میشه وقتی داده جدید وارد جدول می شود در datareport نمایش داده شود.
ehsan_mirzayi2000@yahoo.com

[sadegi]

سوال : چگونه میتوان از بروز در آورده شدن فرم گزارش داده ها اطمینان حاصل کرد؟
پاسخ : هنگامی که به محیط داده ها داده ای اضافه میشه چنین به نظر میرسه که فرم گزارش داده ها بروز در آوردن داده ها رو انجام نمیده. برای رفع این مشکل میتونید از قطعه کد زیر استفاده کنید

Private Sub cmdReport_Click()

Dim conn As ADODB.Connection

Dim rs As ADODB.Recordset

Set conn = New ADODB.Connection

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=" & App.Path & "\books.mdb;" & _

"Persist Security Info=False"

Set rs = conn.Execute("SELECT Title, Year, URL, Pages, ISBN FROM BookInfo ORDER BY Title")

Set rptTitles.DataSource = rs

rptTitles.Show vbModal

End Sub

[ehsan_2000]

با تشکر از راهنماییتان
آیا می شود در data report از حاشیه استفاده کرد؟
میرزایی از میانه استان آ.ش

[sadegi]

میشه منظورتون رو واضح تر بیان کنید؟
یعنی میخواهید مثل برنامه ورد برای خروجی برنامه تون حاشیه گذاری کنید ؟

[ehsan_2000]

با سلام
می خوام مثل برنامه ورد صفحه گزارش حاشیه گزاری شده باشد
با تشکر

[sadegi]

فکر نمیکنم بتونید این کار رو انجام بدید
برای انجام این کار میتونید از برنامه های دیگه ای برای گزارش گیری استفاده کنید که چنین قابلیت هایی رو دارن
مثل :Crystal Report

[ehsan_2000]

با سلام
چجوری میشه نتیجه یک جستجو را برای چاپ به datareport فرستاد.

[sadegi]

 

 

Private Sub cmdReport_Click()

Dim conn As ADODB.Connection

Dim rs As ADODB.Recordset

Set conn = New ADODB.Connection

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=" & App.Path & "\books.mdb;" & _

"Persist Security Info=False"

Set rs = conn.Execute("SELECT Title, Year, URL, Pages, ISBN FROM BookInfo Where Year>1980 ")

Set rptTitles.DataSource = rs

rptTitles.Show vbModal

End Sub

 

امیدوارم که جوابتون رو گرفته باشید
اگه بازم مشکلی بود ما در خدمتیم

[ehsan_2000]

با سلام
وقتی از این کد استفاده میکنم در هنگام نمایش Data report خصای زیر را می دهد.

Arguments are of the wrong type,are out of acceptable range,or are in conflict with one another