klo pake DTpicker coba pola ini pren, Select * from tbbeli where (tglnota >= #" & Format(txtgl1.Value, "yyyy/mm/dd") & "#) and (tglnota <= #" & Format(txtgl2.Value, "yyyy/mm/dd") & "#)")
--- Pada Jum, 25/7/08, Indrawan Wu <[EMAIL PROTECTED]> menulis: Dari: Indrawan Wu <[EMAIL PROTECTED]> Topik: Re: Bls: [indoprog-vb] Help..Cetak Periode Tanggal Tdk Tampil... Kepada: [email protected] Tanggal: Jumat, 25 Juli, 2008, 12:59 PM error donk pren...sql mana kenal operator # --- Pada Jum, 18/7/08, sutrisno <[EMAIL PROTECTED] com> menulis: Dari: sutrisno <[EMAIL PROTECTED] com> Topik: Re: Bls: [indoprog-vb] Help..Cetak Periode Tanggal Tdk Tampil... Kepada: indoprog-vb@ yahoogroups. com Tanggal: Jumat, 18 Juli, 2008, 2:07 AM *Coba tanda (') petik diganti dengan #. Sehingga menjadi tgl_faktur >=#" & tgl_faktur.txt & "#" * 2008/7/14 yudi susanto <[EMAIL PROTECTED] com>: > mungkin database typenya bukan date/time mas, coba aja dicek > > REGARDS, > > YUDI SUSANTO > > ----- Pesan Asli ---- > Dari: D.N.Adam <[EMAIL PROTECTED] com <dehen_na%40yahoo. com>> > Kepada: indoprog-vb@ yahoogroups. com <indoprog-vb% 40yahoogroups. com> > Terkirim: Senin, 14 Juli, 2008 10:13:35 > Topik: [indoprog-vb] Help..Cetak Periode Tanggal Tdk Tampil... > > Teman-teman saya ada error membuat report dari data environmetn > bawaan di VB 6.0 menggunakan Data Report yang ada pad VB 6.0. Script > program sbb: > > Private Sub TbTampil_Click( ) > Set Rs = New ADODB.Recordset > > SQL = "" > SQL = "SELECT Pembelian.NoFaktur, Pembelian. TglFaktur, " _ > & " Supplier.NmSup, DetPembelian. TglExpired, " _ > & " DetPembelian. KdObat,Obat. NmObat,Obat. Satuan, " _ > & " DetPembelian. HrgBeli,DetPembe lian.Banyak, " _ > & " (DetPembelian. HrgBeli * DetPembelian. Banyak) AS Total " _ > & " From Pembelian, DetPembelian, Obat, Supplier " _ > & " WHERE Pembelian.NoFaktur= DetPembelian. NoFaktur " _ > & " AND Pembelian.KdSup= Supplier. KdSup AND " _ > & " DetPembelian. KdObat=Obat. KdObat AND " _ > & " ((Pembelian. TglFaktur >= '" & TxtTglAwal.Value & "') " _ > & " And (Pembelian.TglFaktu r <= '" & TxtTglAkhir. Value & > "' ))" > Set Rs = Conn.Execute( SQL) > If Rs.BOF Then > MsgBox "Maaf pembelian dengan periode tanggal " & Format > (TxtTglAwal. Value, "dd MMMM yyyy") & " S/D " & Format > (TxtTglAkhir. Value, "dd MMMM yyyy") & " tidak tersedia !", > vbInformation + vbOKOnly, "Information" > Else > DE.Commands( 13).CommandText = SQL > FmLapBeliPeriode. Sections( "Section2" ).Controls > ("Label24"). Caption = " Periode : " & Format(TxtTglAwal. Value, "dd > MMMM yyyy") & " S/D " & Format(TxtTglAkhir. Value, "dd MMMM yyyy") > FmLapBeliPeriode. Sections( "Section2" ).Controls > ("Label27"). Caption = " Tanggal Cetak : " & Format(Date, "dd MMMM > yyyy") > > FmLapBeliPeriode. Refresh > FmLapBeliPeriode. WindowState = 2 > FmLapBeliPeriode. Show > End If > End Sub > > Permasalahan muncul waktu mau cetak per periode tanggal muncul error/ > pesan sbb: > Error type data mismatch in creteria expression > > Terus nanti saat di DEBUG menunjukkan error di : > ........ > Set Rs = Conn.Execute( SQL) > ........ > > Mohon bantuuan teman-teman di millis ini.Thank > > Salam, > Adam > > ____________ _________ _________ _________ _________ _________ _ > Dapatkan alamat Email baru Anda! > Dapatkan nama yang selalu Anda inginkan sebelum diambil orang lain! > http://mail. promotions. yahoo.com/ newdomains/ id/ > > [Non-text portions of this message have been removed] > > > -- Sutrisno [Non-text portions of this message have been removed] ____________ _________ _________ _________ _________ _________ _ Nama baru untuk Anda! Dapatkan nama yang selalu Anda inginkan di domain baru @ymail dan @rocketmail. Cepat sebelum diambil orang lain! http://mail. promotions. yahoo.com/ newdomains/ id/ [Non-text portions of this message have been removed] ___________________________________________________________________________ Dapatkan nama yang Anda sukai! Sekarang Anda dapat memiliki email di @ymail.com dan @rocketmail.com. http://mail.promotions.yahoo.com/newdomains/id/ [Non-text portions of this message have been removed]
