Salam Kenal sherina
1. Buat event klik di dtpicker kemudian tambhakan kode seperti berikut
dtpicker.value=cdate(dtpicker.value)+val(cdate(textbox1.text))
2. Buat fungsi untuk mendapatkan Thn dan bulan seperti berikut
private sub ThnBln()
dim Thn, Bln as string
Thn = year(date) atau pake format ("HH:MM:YY",date) dan ambil thn
Bln = Month(date) atau pake format ("HH:MM:YY",date) dan ambil bln
end sub
kemudian ketika kita mau menambah rekord pangil fungsi tsb dan
baca terlebih dulu didatabasenya apakah thb dan bulan sekarang
sudah ada transaksi jika sudah ada ambil nonota terakhir lalu
tambah 1 jika belum langsung saja text1.text = Thx + Bln + rec("No_
Nota")
Thx
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Bagi terjangkit virus lokal, zip virus tersebut
dan kirim ke [EMAIL PROTECTED], kami
akan membuat removalnya untuk anda.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/indoprog-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/
