Saya coba bantu ya.....
coba gunakan coding ini:
sMonth= cstr( month(dTgl.value)-1)
sYear= cstr(year(dTgl.value))
if val(sMonth)=0 then
sMonth= "12"
sYear= cstr(val(sYear)-1)
end if
selanjutnya gunakan coding anda.
atau bisa juga seperti ini kalau di table "tagihan" ada field "tanggal",
codingnya seperti ini:
if month(getdate())=1 then
Begin
select pemakaianbulanlalu from tagihan where
month(tagihan.tanggal)=12 and
year(tagihan.tanggal)=year(getdate())-1
End
Else
Begin
select pemakaianbulanlalu from tagihan where
month(tagihan.tanggal)=month(getdate())-1 and
year(tagihan.tanggal)=year(getdate())
End
Semoga membantu
God Bless You
Rudi <[EMAIL PROTECTED]> wrote: kode yg gw ambil
cuma spt ini sih:
'---ambil bulannya (datetimepicker) lalu dikurang 1
'---jadi kalo bulan nya desember maka data yg ditarik 12 - 1 (november)
sMonth = CStr(Format(dTgl.Value, "m") - 1)
'---ambil tahun dari datetimepicker
sYear = CStr(Format(dTgl.Value, "yyyy"))
'---nah ini yg menjadi patokan utk menarik data, jadi setiap bulan januari
pasti
'---data yg ketarik ini isinya kosong krn tlh berganti tahun
sPeriode = CStr(bMonth & bYear)
perintah utk narik data contohnya spt ini :
select pemakaianbulanlalu from tagihan where periode = speriode
jadi sekali lagi yang mau ditanyakan adalah bagaimana logikanya spy
kode diatas bisa juga menarik data apabila tahunnya berubah, semoga ada
teman2 yang mau menambahkan kode diatas atau bahkan di ganti seluruhnya juga
ga masalah.
atas bantuanya terimakasih banget
flash
__________________________________________________________
Never miss a thing. Make Yahoo your home page.
http://www.yahoo.com/r/hs
---------------------------------
Never miss a thing. Make Yahoo your homepage.
