Access Programınızı Demo yapma
Tarih
04/11/2008 13:59
Konu Sahibi
Puletin
Yorumlar
6
Okunma
6315
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



Puletin
Uzman
Kullanici Avatari
Uzman
1.716
01/11/2008
416
Ülke Dışı
Ofis 2003
29/10/2016,20:35
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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..Az[/align]

Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla


accessman

Kullanici Avatari
Onursal
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
teşekkürler puletin
Cevapla


Redgreen
Aktif Üye
Kullanici Avatari
Aktif Üye
108
19/11/2008
0
Ankara
Ofis 2003
12/10/2013,01:32
(04/11/2008, 13:59)PuLeTiN Adlı Kullanıcıdan Alıntı: 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..Az[/align]


Programı? defa çalıştırıyorsunuz mesajını verirken microsoft Access yazısını kaldırabilirmiyiz. Ben 2 gün süre verdim.iki gün sonra programı çalıştıramazsam külahları değişiriz. Gerçi benim istediğimde çalışmaması ama başkasının..

Saygılarımla,
MG
Cevapla


alpeki99
Yeniden başlayabilmek...
Kullanici Avatari
Uzman
O....
5.974
29/10/2008
Ordu
Ofis 2013 32 Bit
Bugün,02:55
Sevgili Redgreen.

Buradaki Demo kodları ile Demo yapmak kesinlikle güvenilmez bir yöntemdir buna bel bağlamayın.
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.
Cevapla


Redgreen
Aktif Üye
Kullanici Avatari
Aktif Üye
108
19/11/2008
0
Ankara
Ofis 2003
12/10/2013,01:32
(08/12/2008, 17:07)alpeki99 Adlı Kullanıcıdan Alıntı: Sevgili Redgreen.

Buradaki Demo kodları ile Demo yapmak kesinlikle güvenilmez bir yöntemdir buna bel bağlamayın.

Uyarınız için teşekür ederim.

Saygılar,
MG
Cevapla


by_ufuk
Üye
Kullanici Avatari
Üye
U....
16
4
27/11/2010
0
Hatay
Ofis 2003
04/03/2014,17:07
Arkadaşlar vermiş olduğunuz kodları denedim ancak işe yaramadı,acaba yanlış yeremi koyuyorum kodları
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Brick Yabancı dil kelime pratik yapma programı kupacor 10 3.435 16/01/2016, 00:57 ferit39
  Mazot Takip Programı demo ozguryasin 6 1.925 23/07/2015, 15:11 firatm
  Programınızı .ZIP Olarak Yedekleyin SCavusoglu 2 1.448 18/05/2014, 20:32 ozanakkaya
Shocked Microsoft Access Yurt Kayıt dosyası yapma gazialp43 1 1.443 10/03/2014, 03:20 omerdd
  Access makro uyarısını otomatik kapatan uygulama (Access ile) mehmetdemiral 28 13.366 04/11/2012, 02:51 mehmetdemiral


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya