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