+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access Programı Demo Yapma Sorunu (/konu-access-programi-demo-yapma-sorunu.html)
Cvp: Access Programınızı Demo yapma - ozanakkaya - 01/12/2008
sn karam, bilgisayarında "msword.olb" isimli dosya yok ve bu dosya referanslara eklenmiş, o yüzden hata veriyor.
60 günlük demo olayını sorunsuz çalıştırdın ve uygulamayı kullanana 60. gün sonunda demonun bittiğini belirten uyarı mesajı göründü ve sizinle irtibata geçti, programın lisanslı olarak açması için ne yapmayı düşünüyorsun, yani uyarı mesajını nasıl iptal edeceksin,
Ayrıca benim eklediğim örnekte aynı vazifeyi görüyor, girilen tarihi ve son giriş tarihini regedit e kaydıttiği için başka pc de çalıştığında süre yeniden başlıyor, demo süresi bittiğinde kullanıcıya yeni şifre verip istediğin kadar güne göre süreyi uzatabiliyorsun.
Cvp: Access Programınızı Demo yapma - alpeki99 - 01/12/2008
Kayıt defterine yazılan rakam şifreli olarak kaydedilmiyorsa program yol geçen hanına döner
onun için şifreleyerek kaydedilmeli. Bununlada yetinilmemeli diye tekrar hatırlatayım 
Cvp: Access Programınızı Demo yapma - karam - 01/12/2008
(01/12/2008, 17:35)sledgeab yazdı: sn karam, bilgisayarında "msword.olb" isimli dosya yok ve bu dosya referanslara eklenmiş, o yüzden hata veriyor.
60 günlük demo olayını sorunsuz çalıştırdın ve uygulamayı kullanana 60. gün sonunda demonun bittiğini belirten uyarı mesajı göründü ve sizinle irtibata geçti, programın lisanslı olarak açması için ne yapmayı düşünüyorsun, yani uyarı mesajını nasıl iptal edeceksin,
Ayrıca benim eklediğim örnekte aynı vazifeyi görüyor, girilen tarihi ve son giriş tarihini regedit e kaydıttiği için başka pc de çalıştığında süre yeniden başlıyor, demo süresi bittiğinde kullanıcıya yeni şifre verip istediğin kadar güne göre süreyi uzatabiliyorsun.
Dediklerinize aynen katılıyorum bende bu sorunu çözmek için sizin örneğinizi inceleyeceğim ama ben demo sürümü olmayanı gönderip tabloları insert etmeyi planlıyordum tabiki haklısınız ama o programın içinde olması konumunda nasıl korunabilir demek istemiştim şu an sizin proramını nasıl kullanılabileceğini düşünemedim uygulama nasıl olacak onu demek istemiştim. eğer nasıl uygulandığı konusunda açıklayıcı bilgi verirsen sevinirim .
teşekürler.
Cvp: Access Programınızı Demo yapma - karam - 01/12/2008
ben sorunumu buldum ama nasıl çözüleceğini bilmiyorum bu konuda yardımlarınızı bekliyorum.
Program girişinde bir panel ile kullanıcı adı ve yetkisinin bilgisayar ismine göre alan bir program ile girmiştim .
Eğer bu programı kullanmaz isem demo çalışıyor eğer bu programı kullanır isem demo programı baypass ediyor sadece uyarı verdiriyor .ve ana giriş açılıyor
PULETİN 'in kodunu aynen aldınm sadece form isimlerini değiştirdim yine açıyor diğer moduller etkiliyor zannederim .
yardımlarınızı bekliyorum programın giriş kısmını koydum bu örnek üzerinde bir bakabilirmisiniz.
şimdiden çok teşekür ederim.
programınkullanıcı adı: admin
şifre :1234
Cvp: Access Programınızı Demo yapma - Puletin - 01/12/2008
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
Cvp: Access Programınızı Demo yapma - karam - 01/12/2008
değiştirdim sayın cooper87 ana değişen bir şey olmadı teşekür edrim örnek koymuştum bakmanız mümkünmü ?