DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Bildiğim kadarıyla Enterprise manager adında bir program var. onun aracılığıyla yapılabiliyor.
Bende yaptığım acces programın bir demo versionunu dağıtmak için sınırlamak istiyorum bu mümkünmü ? access veri tabanını sınırlayabilyor veya zaman ölçeği yaratabiliyormuyuz.
Programinizin açilis formuna asagidaki kodlari yapistirin.
Program 90 günlük siz istedigin rakami yazabilirsiniz. Ister 1 gün ister 10 gün.
NOT : Üretim Planlama yerine kendi programinizin ismini yazin.
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> 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
Elbette bunun için çeşitli yolar mevcut ama ne yaparsanız yapın MDE yapmanız ve tabloları kullanmamanız gerekmektedir.
istediğiniz uygulama forumdaki örnekler arasında mevcuttu silinmiş olabilir uygulama için demo diye aratırsanız daha çok bilgiye ulaşabilirsiniz
kodları
hemen aratıyorum . küçük bir örnek ile bu kodu yerleştirebilirmisiniz
yeni accesci olarak kodu her yerleştiğimde hata veriyor yapamıyorum ? ve ilginiz için teşekürler.
benimgirişte kullanacağım örneğimi yerleştiriyom " Proramımın adı Güvenlik ve BÜro Bilgi Sistem" Olacak
çok teşekür ediyorum başardım sayende herşey mükemmel çalışıyor ellerine sağlık
bu konuda acil yardım bekliyorum bir bu konuyu halledemedim?