FileSystemObject kullanarak kendi belirlediğiniz bir dosyaya erişim...

Bu örnekte sadece verilen metni belirli bir formatta log dosyasına atar.

Dosyanın adını ve uzantısını istediğiniz gibi değiştirebilirsiniz.

Aşagıdaki kodla Programınızın Demo olmasını sağlaya bilirsiniz

Programınızın açılış formuna aşağıdaki kodları yapıştırın. Program 90 günlük siz istediğin rakamı yazabilirsiniz. İster 1 gün ister 10 gün.
NOT : Üretim Planlama yerine kendi programınızın ismini yazın.

Private Sub Form_Load() 

On Local Error Resume Next 

Dim d, x, y 

d = GetSetting("Üretim Planlama", "Ayarlar", "Ilk Giris", "") 

If d = "" Then 

SaveSetting "Üretim Planlama", "Ayarlar", "Ilk Giris", Date 

Else 

If (Date - CDate(d)) > 90 Then 

MsgBox ("Programin Demo Süresi dolmustur.Uzatmak Için E-Mail adresine Not mesaj atabilirsiniz") 

DoCmd.Close 

Else 

x = GetSetting("Üretim Planlama", "Ayarlar", "Son Çikis Tarihi", "") 

If CVDate(x) > Date Then 

MsgBox ("Programin Deneme Süresi Doldu Lütfen Israr Etmeyin") 

DoCmd.Close 

Else 

y = GetSetting("Üretim Planlama", "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 

x = GetSetting("Üretim Planlama", "Ayarlar", "Sayi", "1") 

MsgBox ("Programi" & x & ". defa çalistiriyorsunuz.") 

SaveSetting "Üretim Planlama", "Ayarlar", "Sayi", x + 1 

End If 

End If 

End Sub 



Private Sub Form_Unload(Cancel As Integer) 

SaveSetting "Üretim Planlama", "Ayarlar", "Son Çikis Tarihi", Date 

SaveSetting "Üretim Planlama", "Ayarlar", "Son Çikis Saati", Time 



End Sub 

her açılışta birin ci ikinici diye sayar Programi" & x & ". defa çalistiriyorsunuz uyarısını verir ve belirlediğiniz günde kullanım Programin Deneme Süresi Doldu Lütfen Israr Etmeyin ikazı ile program kapanır açamazsınız kolay gelsin

ALINTIDIR..[/align]

Formlarınızın Kaç Defa Açıldığını Merak Ediyormusunuz.

Burun Örnek Uygulamaya.

Örnek Alıntıdır.

Moderatör Arkadaşımız esrefigit'in Önceki Sitede Eklemiş Olduğu Bir Çalışmadır.

Kendisine Teşekkür Ediyoruz.

güncellenmiş halini aşağıdaki linkden indirebilirsiniz.

access kod deposu