Mas Han,
Untuk awal aku kasih contoh sederhana. Banyak cara lain yang lebih
canggih ...misalnya rutin proteksi buatan mas han sendiri
nantinya... :)
Sebenarnya tanggal #31/12/2008# sebaiknya disimpan di lokasi lain
agar mudah diupdate, misalnya di table, registry, database properties
ataupun external file hindari hard coded. contoh disini hanya untuk
mempersingkat dan coding-nya pun masih bisa di-optimasi.
Langkah-langkahnya:
1. Buat Procedure di vba module
Public Function App_CheckRenewalDate()
Dim varDateExpired As Date
Dim varDateModified As Date
varDateExpired = #8/3/2008#
varDateModified = Format(FileDateTime(CurrentProject.FullName),
"mm/dd/yyyy")
If varDateModified >= varDateExpired Then
MsgBox " Harap Registrasi Ulang ", vbInformation, "Aplikasi-
ku"
Application.Quit
Else
DoCmd.OpenForm "F_LOGIN"
End If
End Function
1. Buat Macro baru yang diberi nama: Autoexec
2. Pada Macro baru ini pilih perintah RunCode, lalu isikan
App_CheckRenewalDate()
3. Simpan lalu coba.
Thanx.
Lukito Hartono
