mungkin database typenya bukan date/time mas, coba aja dicek REGARDS,
YUDI SUSANTO ----- Pesan Asli ---- Dari: D.N.Adam <[EMAIL PROTECTED]> Kepada: [email protected] 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]
