ارسال گزارش به Data report

[joker_pok]

دوستان سلام :

من یه برنامه نوشتم خوب تو یه قسمتی با Adodc1.Filter یک بازه تاریخی رو جست و جو می کنم می خوام این بازه بدست اومده رو مثلا 5 رکورد رو به چاپ ارسال کنم چاپ هم با data report ممنون:قلب::قلب:

[Veteran]

از این استفاده کنید برای جستجو
چرا که با فیلتر adoc نمیتونیم مواردی که پیدا میشه رو به چاپ برسونیم. و همه برای چاپ ارسال میشن
از این برای جستجو استفاده کنید
Adodc1.RecordSource = "Select *from tablename where fieldname='" & Text1.Text & "'"
Adodc1.Refresh

به جای tablename اسم جدول و به جای feldname اسم فیلدی که قرار جستجو بر اساس اون بشه قرار بدید
بعد برای ارسال به دیتاریپورت
از این استفاده کنید


Adodc1.Recordset.Close
Adodc1.Recordset.Open
Set DataReport1.DataSource = Adodc1
DataReport1.WindowState = 2
DataReport1.Show
Adodc1.Refresh

[joker_pok]

اینم جواب نمیده منظور منو شما نگرفتی دوست خوبم نگاه کن این کد منه
Adodc1.Recordset.Filter = "Date_m<='" & Trim(txtdate2.Text) & "' AND Date_m>='" & Trim(txtdate1.Text) & "'"

اینم کد چاپ حالا چه جوری این کد چاپ رو ویرایش کنم که هم بازه زمانی نشون داده بشه هم پرسنلی که انتخاب می کنم .

If Adodc1.Recordset.RecordCount > 0 Then
On Error Resume Next
Set Cnn = New ADODB.Connection
Cnn.CursorLocation = adUseClient
Cnn.ConnectionString = Adodc1.ConnectionString
Cnn.Open
Adoview.Close
sqltxt = "SELECT * From Morakhasi WHERE Persenel_id=" & Persenel_id
Set Adoview = New ADODB.Recordset
Adoview.Open sqltxt, Cnn, adOpenStatic, adLockPessimistic
Set Report1.DataSource = Adoview
Report1.Show 1
Else
MsgBox "ÇØáÇÚÇÊí íÇÝÊ äÔÏ", vbExclamation, ""
End If