چگونه رکوردهای بین دو تاریخ را با VB6 در 10 Crystal Report نمایش دهیم

[mehran63]

سلام
من دارم برنامه ای رو مینویسم که یک فرم در آن است روی فرم دو MaskEdBox برای این که کاربر از تاریخ تا تایخ را وارد کند همچنین یک شیی Crystal Repot10 و یک Command برای اجرا دستورات کدی را که در این فرم نوشتم در زیر گذاشتم ولی وقتی روی Command کلیک میکنم پیغام خطای A date time is required here با شماره خطای Run-Time errore '-2147191747(8004743d)': میدهد در ضمن من از بانک Access و VB6 و Crystal Report 10 استفاده میکنم .
من اولین بارم است که دارم از Crystal Report استفاده میکنم لطفا کمکم کنید این موضوع هم حیاتیی هم حیثیتی لطفا دقیقا بگین چی کار کنم اگه یک sample گذاشتین که خیلی عالی میشه در ضمن خیلی هم این رفیقم سریش شده خیلی زود باید بهش تحویل بدم


Dim crApp As New CRAXDRT.Application
Dim crDBTab As CRAXDRT.DatabaseTable
Dim crRept As New CRAXDRT.Report

Private Sub cmdtp1_Click()

crRept.RecordSelectionFormula = "{tdate.tarikh-pruv1}IN" & "'" & _
Trim(Maskt1.Text) & "'TO'" & Trim(Maskt2.Text) & "'"

End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\Database.mdb"
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\Database.mdb"
Adodc1.RecordSource = "SELECT * FROM tperson"
Adodc1.Refresh
Adodc2.RecordSource = "select * from tdate"
Adodc2.Refresh

Set crRept = crApp.OpenReport(App.Path & "\Report1.rpt")

For Each crDBTab In crRept.Database.Tables
crDBTab.ConnectionProperties.Item("Data Source") = App.Path & "\Database.mdb"
Next
End Sub

[mehran63]

جدا کسی نیست این کار رو بلد باشه !!!!!!!!!!!؟؟؟؟؟؟؟؟؟

[roya2002132]

بنظر من اگه تاریخ شما میلادی نیست از علامت کوچکتر مساوی => و (And) بزرگتر مساوی =< تاریخ دیگر استفاده کنید نه To

[amir zahed]

سلام دوست عزیز
این فرمول رو من استفاده کردم جواب داده
فقط نکته مهم اینه که فیلد تاریخت باید text باشه نه date/time
Report.RecordSelectionFormula = "({your table.your filed} <= " & "'" & Me.MaskEdBox2.Text & "') And ({your table.your filed} >= " & "'" & Me.MaskEdBox1.Text & "'"