Pake perintah Datevalue()
if datevalue(rs!tgl_akhir) < datevalue(now) then
msgbox "Kartu Anda telah Expired"
'Msukkan scripnya selanjutnya disini jika kartu expired
else
'masukkan scripnya jika kartu bisa dipakai
end if
----- Original Message -----
From: "Tustadi I Made" <[EMAIL PROTECTED]>
To: <[email protected]>; <[email protected]>
Sent: Sunday, April 01, 2007 5:54 PM
Subject: [indoprog-vb] Tanya skrip tgl ???
> Minta tolong :
>
> Saya punya tabel berisi field : kd_member, nm_member, tgl_mulai dan
tgl_selesai.
> (type tgl menggunakan datetime)
>
> Kemudian di program aplikasi saya mau memasuk-kan kd_member kedalam
text5.text.
>
> Pertanyaaan saya :
>
> Jika tgl_selesai dari kd_member yang akan dimasukkan kedalam text5.text
kurang dari tanggal sekarang, maka keluar pesan " Kartu anda sudah Expired
", sebaliknya jika tgl_selesai dari kd_member lebih dari tanggal sekarang,
maka kursor lanjut ke proses berikutnya.
>
> Gimana membuat skrip-nya.
>
> Trims
>
>
>
