slm arkadaşlar.aşağıda demo için vermiş olduğum kodu kullandım.gerçekten işe yaradı.ancak süre dolduktan sonra tekrar süreyi uzatamadım.ben 30 gün vermiştim süreye.şimdi tekrar bir 30 gün daha vermek istiyorum ama programı açmıyor.yani süreyi uzatmıyor.ancak kodu silersem programı çalıştırabiliyorum.acaba kodda hata veya eksiklik mi var.yardım ederseniz sevinirim.teşekkürler.
kod:
Private Sub Form_Load()
On Local Error Resume Next
Dim d, x, y
d = GetSetting("frmLogon", "Ayarlar", "Ilk Giris", "")
If d = "" Then
SaveSetting "frmLogon", "Ayarlar", "Ilk Giris", Date
Else
If (Date - CDate(d)) > 30 Then
MsgBox ("Programin Süresi Dolmustur.Uzatmak için Alper ÇEKER ile irtibata geçiniz...")
DoCmd.Close
Else
x = GetSetting("frmLogon", "Ayarlar", "Son Çikis Tarihi", "")
If CVDate(x) > Date Then
MsgBox ("Programin Süresi Doldu Lütfen Israr Etmeyin")
DoCmd.Close
Else
y = GetSetting("frmLogon", "Ayarlar", "Son Çikis Saati", "")
If (CVDate(x) = Date) And (CVDate(y) > Time) Then
MsgBox ("Programin Deneme Süresi Doldu Lütfen Israr Etmeyin")
DoCmd.Close
End If
End If
End If
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting "frmLogon", "Ayarlar", "Son Çikis Tarihi", Date
SaveSetting "frmLogon", "Ayarlar", "Son Çikis Saati", Time
End Sub
#1
