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] 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/
