-Lokasi database di CR udah bener kok ( udah aku set location + Verify Database + Refresh) -Bahkan Query yang ada di VB sudah aku test pake Edit selection formula hasilnya OKE Aku pake ODBC -Kalo boleh tau cara set lokasi dengan VB gimana Yach ? (kalo pake .datasource(0)=app.path +"....." ) selalu "Property is Write Only"
thxB4&After --- In [email protected], "jeffrey_ananta" <[EMAIL PROTECTED]> wrote: > > 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" > <mr_setiawan@> 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/
