mungkin error di report-nya, coba file RptLts.rpt dan RptMatter.rpt di preview dari Crystal Report, dan tes juga dengan memasukkan selection formula, apakah bisa di preview ? smoga membantu. .carin bernard Hotma <[EMAIL PROTECTED]> wrote: Terima Kasih Mas Dhani, Atas Bantuannya, Tapi Saya sudah Coba untuk hal tersebut tetap masih ada errornya, Mohon Pencerahannya.... Errornya tetap ada di CRV.Action = 1
Apakah karena string --- "Dhani Aristyawan (EDP)" wrote: > Dear Bernard, > > Ganti baris : > Else: Me.OptRpt(0).Value = False > Dengan > Elseif Me.OptRpt(0).Value = False > Catatan : tanpa titik dua ( : ) > Coba tambahkan syntax ini : > CRV.Connect = > "DSN=TimeSheet;UID=admin;PWD=;DATABASE=TimeSheet" > Setelah baris : > Elseif Me.OptRpt(0).Value = False > Semoga membantu > > Best Regards, > Dhani Aristyawan, S.Kom. > EDP Supervisor PT. Trias Sentosa, Tbk. > Desa Keboharan KM 26 > Krian - Sidoarjo > _____ > From: [email protected] > [mailto:[EMAIL PROTECTED] On > Behalf Of bernard Hotma > Sent: Wednesday, August 23, 2006 4:47 PM > To: [email protected] > Subject: [indoprog-vb] run-time error "20515" E > > Dim strStartDate As String > Dim strEndDate As String > Dim StrKdClient As String > strStartDate = DTPDari.Value > strEndDate = DTPSampai.Value > StrMatter = CmbRptMtr.Text > StrCl = CmbClient.Text > If Me.OptRpt(0).Value = True Then > CRV.Connect = > "DSN=TimeSheet;UID=admin;PWD=;DATABASE=TimeSheet" > CRV.ReportFileName = > "C:\Timesheet\Report\RptLts.rpt" > Msf = "{Trn_Slip.SlipDate} >= #" & strStartDate & > "# And {Trn_Slip.SlipDate} <= #" & strEndDate & "#" > CRV.SelectionFormula = Msf > CRV.Formulas(0) = "Mulai='" & strStartDate & "'" > CRV.Formulas(1) = "Sampai='" & strEndDate & "'" > CRV.RetrieveDataFiles > CRV.Action = 1 > > Else: Me.OptRpt(0).Value = False > CRV.ReportFileName = "S:\DB\Report\RptMatter.rpt" > CRV.SelectionFormula = "{Trn_Slip.KdClient} = '" > & Trim(Left(StrCl, 10)) & "' and {Trn_Slip.JobNo} = > '" > & Trim(Left(StrMatter, 10)) & "' and > {Trn_Slip.SlipDate} >= #" & strStartDate & "# And > {Trn_Slip.SlipDate} <= #" & strEndDate & "#" > CRV.Formulas(0) = "Client = '" & StrCl & "'" > CRV.Formulas(1) = "Matter = '" & StrMatter & "'" > CRV.Formulas(2) = "Mulai='" & strStartDate & "'" > CRV.Formulas(3) = "Sampai='" & strEndDate & "'" > CRV.RetrieveDataFiles > CRV.Action = 1 > End If > > Mohon Pencerahannya. > Setiap Kali membuka report dari CR9 selalu ada error > run-time error "20515" E > Terimakasih sebelumnya > > Bernard --------------------------------- How low will we go? Check out Yahoo! Messengers low PC-to-Phone call rates. [Non-text portions of this message have been removed] Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED] Bagi terjangkit virus lokal, zip virus tersebut dan kirim ke [EMAIL PROTECTED], kami akan membuat removalnya untuk anda. Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/indoprog-vb/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
