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.
istediğiniz uygulama forumdaki örnekler arasında mevcuttu silinmiş olabilir uygulama için demo diye aratırsanız daha çok bilgiye ulaşabilirsinizBende 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
Bir yerde okumuştum kod hatası olduğunda MDE dosyası yapılmadığını bendede Kod hatası yüzünden MDE dosyası yapamıyorum. o zaman buna sınırlama koyamayacağım anlamına mı ? geliyor ve ya bu kodu nasıl düzeltirimElbette 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
sistemimde sadece office 2000 var iken mukemmel çalışıyordu office 2003 ü yükleyince o çalışmayan ve kısıtlayan ekran sadece kaçıncı defa çalıştırdığımı söyleyip açıyorçok teşekür ediyorum başardım sayende herşey mükemmel çalışıyor ellerine sağlık
halletim artık teşekür ederimbu konuda acil yardım bekliyorum bir bu konuyu halledemedim?