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.
Access Programı Demo Yapma Sorunu
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
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
(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.
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
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
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
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
Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
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ü ?
Konuyu Okuyanlar: 1 Ziyaretçi