Private Sub Form_Load() 
if(Date()>=#tarih#)then
msgbox"Program Kısıtlı Fazla Zorlamayın Bozulur!!",,"DİKKAT!!!"
Docmd.quit
else
beep
end if
End Sub

Private Sub Form_Load() 
On Local Error Resume Next 
Dim d, x, y 
d = GetSetting("Projem", "Ayarlar", "İlk Giriş", "") 
If d = "" Then 
SaveSetting "Projem", "Ayarlar", "İlk Giriş", Date 
Else 
If (Date - CDate(d)) > 90 Then 
MsgBox ("Programın Demo Süresi dolmuştur.Uzatmak İçin E-Mail adresine Not mesaj atabilirsiniz") 
DoCmd.Close 
Else 
x = GetSetting("Projem", "Ayarlar", "Son Çıkış Tarihi", "") 
If CVDate(x) > Date Then 
MsgBox ("Programın Deneme Süresi Doldu Lütfen Israr Etmeyin") 
DoCmd.Close 
Else 
y = GetSetting("Projem", "Ayarlar", "Son Çıkış Saati", "") 
If (CVDate(x) = Date) And (CVDate(y) > Time) Then 
MsgBox ("Programın Deneme Süresi Doldu Lütfen Israr Etmeyin") 
DoCmd.Close 
End If 
End If 
x = GetSetting("Projem", "Ayarlar", "Sayı", "1") 
MsgBox ("Programı" & x & ". defa çalıştırıyorsunuz.") 
SaveSetting "Projem", "Ayarlar", "Sayı", x + 1 
End If 
End If 
End Sub 
Private Sub Form_Unload(Cancel As Integer) 
SaveSetting "Projem", "Ayarlar", "Son Çıkış Tarihi", Date 
SaveSetting "Projem", "Ayarlar", "Son Çıkış Saati", Time 
End Sub