di sett filter dari query mungkin bisa, tp aq blum prnah nyoba may
Pada Mon, 08 Mar 2010 10:18:11 +0700, Afrizal <[email protected]> menulis: > Dear Teman2 milis > > > > Saya ada masalah pada saat saya ingin mengeluarkan laporan obat > > Berdasarkan tanggal tapi hasilnya masih ada tanggal yg diluar kriteria > > Yang masuk kel reportnya misalkan saya input : > > Dari Tanggal : 01/02/2010 > > Sampai Tanggal : 28/02/2010 > > > > > > > > Ini VBA ya : > > > > Private Sub BUTPrint_Click() > > On Error Resume Next > > Dim TempSql As String > > Dim Kriteria As String > > > > TempSql = "SELECT QRYLaporanPenjualanRI.* FROM QRYLaporanPenjualanRI > WHERE " > > Kriteria = "True" > > > > If Nz(Me![DariNo], "") <> "" And Nz(Me![SampaiNo], "") <> "" Then > > Kriteria = Kriteria & " AND (QRYLaporanPenjualanRI.NoTransaksi > Between '" & Me![DariNo] & "' And '" & Me![SampaiNo] & "')" > > End If > > If Nz(Me![DariPelanggan], "") <> "" And Nz(Me![SampaiPelanggan], "") > <> "" Then > > Kriteria = Kriteria & " AND > (QRYLaporanPenjualanRI.NoPelanggan_jual Between '" & Me![DariPelanggan] > & "' And '" & Me![SampaiPelanggan] & "')" > > End If > > If IsDate(Me![DariTanggal]) And IsDate(Me![SampaiTanggal]) Then > > Kriteria = Kriteria & " AND (QRYLaporanPenjualanRI.Tanggal > Between #" & Me![DariTanggal] & "# And #" & Me![SampaiTanggal] & "#)" > > End If > > > > Me![TempQuery] = TempSql & Kriteria > > If Me!OptionTampil = 1 Then > > DoCmd.OpenReport "RPTTransaksiPenjualan-Summary", acViewPreview > > Else > > DoCmd.OpenReport "RPTTransaksiPenjualan-Detail", acViewPreview > > End If > > End Sub > > > > > > > > Tetapi hasil nya seperti ini : masih ada tanggal yg diluar kriteria saya > > > > > > Saya lampirkan mdb ya > > Terima kasih atas bantuannya > > > > Thank > > > > > > Afrizal > > ------------------------------------ SPAM IS PROHIBITEDYahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/belajar-access/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/belajar-access/join (Yahoo! ID required) <*> To change settings via email: [email protected] [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/
