Kodlarda yer alan "DoCmd.Close" olaylarını "DoCmd.Quit" ile değiştirin
On Local Error Resume Next
Dim d, x, y
d = GetSetting("anagiriş", "Ayarlar", "Ilk Giris", "")
If d = "" Then
SaveSetting "anagiriş", "Ayarlar", "Ilk Giris", Date
Else
If (Date - CDate(d)) > 1 Then
MsgBox ("Programin Demo Süresi dolmustur.Uzatmak Için E-Mail adresine Not mesaj atabilirsiniz")
DoCmd.Quit
Else
x = GetSetting("anagiriş", "Ayarlar", "Son Çikis Tarihi", "")
If CVDate(x) > Date Then
MsgBox ("Programin Deneme Süresi Doldu Lütfen Israr Etmeyin")
DoCmd.Quit
Else
y = GetSetting("anagiriş", "Ayarlar", "Son Çikis Saati", "")
If (CVDate(x) = Date) And (CVDate(y) > Time) Then
MsgBox ("Programin Deneme Süresi Doldu Lütfen Israr Etmeyin")
DoCmd.Quit
End If
End If
x = GetSetting("anagiriş", "Ayarlar", "Sayi", "1")
MsgBox ("Programi" & x & ". defa çalistiriyorsunuz.")
SaveSetting "anagiriş", "Ayarlar", "Sayi", x + 1
End If
End If
Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...