lokasi databasenya di reportnya sudah betul? pake dao or odbc ? biasanya kalo pengalaman saya itu karena letak dbasenya salah, jadi mesti set location dulu
--- In [email protected], "mr_setiawan" <[EMAIL PROTECTED]> wrote: > > Dear all > Aku puya masalah pada waktu menampilkan repport > > > Private Sub cmd_cetak_Click() > If o_detail.Value = True And o_rekap.Value = False Then > lap > Cr_Cashier3.Destination = crptToWindow > > ----> Cr_Cashier3.RetrieveDataFiles // Kalo dipake tampil Cannot > open database, kalo nggak dipake repport gak mau refresh (padahal di > CRnya sendiri oke2x aja) > > Cr_Cashier3.Action = 1 > ElseIf o_rekap.Value = True And o_detail.Value = False Then > lap > Cr_Cashier2.Destination = crptToWindow > 'Cr_Cashier2.RetrieveDataFiles > Cr_Cashier2.Action = 1 > End If > End Sub > > > Function lap() > If DTC_awal.Value > DTC_akhir.Value Then > MsgBox ("TANGGAL AKHIR TIDAK BOLEH LEBIH KECIL") > DTC_awal.SetFocus > Else > If o_rekap.Value = True And o_detail.Value = False Then > With Cr_Cashier2 > .ReportFileName = App.Path + "\report\kasir_rekap.rpt" > .SelectionFormula = " {dbH_transaksi.trh_date}>= date(" & > DTC_awal.Year & "," & DTC_awal.Month & "," & DTC_awal.Day & ") and > {dbH_transaksi.trh_date}<= date(" & DTC_akhir.Year & "," & > DTC_akhir.Month & "," & DTC_akhir.Day & ")" > End With > ElseIf o_detail.Value = True And o_rekap.Value = False Then > With Cr_Cashier3 > .ReportFileName = App.Path + "\report\kasir_detail3.rpt" > .SelectionFormula = "{dbH_transaksi.trh_date}>= date(" & > DTC_awal.Year & "," & DTC_awal.Month & "," & DTC_awal.Day & ") and > {dbH_transaksi.trh_date}<= date(" & DTC_akhir.Year & "," & > DTC_akhir.Month & "," & DTC_akhir.Day & ")" > End With > End If > End If > End Function > > pls help > thx > Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut: http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke: [EMAIL PROTECTED] <*> Konsultasi pemrogramman bisa chat disini: Yahoo! Messenger: wahanaprogrammer Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/Programmer-VB/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/Programmer-VB/join (Yahoo! ID required) <*> To change settings via email: mailto:[EMAIL PROTECTED] mailto:[EMAIL PROTECTED] <*> 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/
