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)" <[EMAIL PROTECTED]> 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 > > __________________________________________________ > Do You Yahoo!? > Tired of spam? Yahoo! Mail has the best spam > protection around > http://mail. <http://mail.yahoo.com> yahoo.com > > > > > > [Non-text portions of this message have been > removed] > > __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com 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/
