Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
03/03/2010 16:16
Konu Sahibi
alperadn01
Yorumlar
4
Okunma
1793
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

alperadn01

Aktif Üye
 40
 47
 192
 23/11/2008
0
 -
 
 Ofis 2003
 08/01/2019,13:48
Çözüldü 
slm arkadaşlar.aşağıda demo için vermiş olduğum kodu kullandım.gerçekten işe yaradı.ancak süre dolduktan sonra tekrar süreyi uzatamadım.ben 30 gün vermiştim süreye.şimdi tekrar bir 30 gün daha vermek istiyorum ama programı açmıyor.yani süreyi uzatmıyor.ancak kodu silersem programı çalıştırabiliyorum.acaba kodda hata veya eksiklik mi var.yardım ederseniz sevinirim.teşekkürler.


kod:
Private Sub Form_Load()
On Local Error Resume Next
Dim d, x, y
d = GetSetting("frmLogon", "Ayarlar", "Ilk Giris", "")
If d = "" Then
SaveSetting "frmLogon", "Ayarlar", "Ilk Giris", Date
Else
If (Date - CDate(d)) > 30 Then
MsgBox ("Programin Süresi Dolmustur.Uzatmak için Alper ÇEKER ile irtibata geçiniz...")
DoCmd.Close
Else
x = GetSetting("frmLogon", "Ayarlar", "Son Çikis Tarihi", "")
If CVDate(x) > Date Then
MsgBox ("Programin Süresi Doldu Lütfen Israr Etmeyin")

DoCmd.Close
Else
y = GetSetting("frmLogon", "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
End If
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
SaveSetting "frmLogon", "Ayarlar", "Son Çikis Tarihi", Date
SaveSetting "frmLogon", "Ayarlar", "Son Çikis Saati", Time


End Sub



Kullanici Avatari

ozanakkaya

Kurucu
Oz.... Ak....
 39
 477
 11.740
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,01:24
Çözüldü 
Lütfen örnek uygulamanızı ekleyiniz.

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
[b]AccessTr.Net Forumlarında Uyulması Gereken Genel Kurallar[/b]

5-) Açacağınız konunun başlığı "Şunu Yapamıyorum", "Şurasını Yapamadım", "acil yardım", lütfen yardım", "bir bakar mısınız" vb. şeklinde yazılmamalı, sorununuzu kısaca özetleyecek şekilde olmalıdır. (Örnek: Access'te Form Özellikleri Nelerdir?)
[Uyarı Puanı: +2]

6-) Sorununuz ile ilgili konu açtıysanız lütfen aynı soru ile ilgili tekrar konu açmayınız. Ayrıca, açtığınız konudaki sorun çözümlenmişse aynı konuya konu başlığındaki soru ile ilgisi olmayan farklı soru yazmayınız, başka bir üyenin soru içerikli konusuna soru yazmayınız. Sorunuz için yeni konu açınız.
[Uyarı Puanı: +2]

8-) Özel mesaj ile destek talepleri, her ne sebeple olursa olsun konu üzerinden direk İletişim bilgileri (yahoo, msn, vs.) vererek yardım, istek, tanıtım vs gibi işlemler yasaktır. Tüm destek ve/veya yardımlar sitede tüm üyelerin (Aktivasyon Bekleyenler Hariç) okuyup faydalanabilecekleri şekilde konuya yazılmak zorundadır.
[Uyarı Puanı: +4]

10-) Konu açarken sorununuzu açık bir şekilde ifade etmelisiniz. Konuya örnek uygulama eklemek zorunludur. Mutlaka örnek uygulama (14. Maddede belirtildiği şekilde) ekleyin. Gerekirse aldığınız hata kodlarını, resimlerini ekleyin. Sorunuzu mutlaka konuya yazınız, konuya soru içeren slayt veya döküman eklemeyiniz. bu şekilde sorunlarınızı daha kolay anlayabilir, sizlere daha rahat yardımcı olabiliriz.
[Uyarı Puanı: +2]


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

ercansahin

Uzman
Er.... ŞA....
 44
 69
 3.740
 14/11/2008
 Bursa
 
 Ofis 2010 32 Bit
 27/11/2018,13:27
Çözüldü 
Sn alperadn01, sledgeab hocamın belirttiği gibi örnek uygulamanızı eklerseniz inceleme fırsatımız olur.



Kullanici Avatari

ozanakkaya

Kurucu
Oz.... Ak....
 39
 477
 11.740
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,01:24
Çözüldü 
https://www.accesstr.net/konu-access-pro...49#pid4049
3. mesajdaki örneği inceleyiniz.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

alperadn01

Aktif Üye
 40
 47
 192
 23/11/2008
0
 -
 
 Ofis 2003
 08/01/2019,13:48
Çözüldü 
teşekkür ederim




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Access İlişkiler İçin Yardım grkniknc 2 155 02/01/2019, 17:29
Son Yorum: notrino
Çözüldü Run Time 424 Hatası mmert06 11 229 31/12/2018, 18:32
Son Yorum: mmert06
Çözüldü Sürekli Formda Sıra Numarası Hatası mmert06 6 244 23/12/2018, 17:40
Son Yorum: mmert06
Çözüldü Vba Koduyla Üretilen Forma Otomatik Numara Vermede Alan Güncelleştirilemiyor Hatası Oğuz Türkyılmaz 6 183 19/12/2018, 22:34
Son Yorum: Oğuz Türkyılmaz
Çözüldü Rapor Yazdırma Hatası Hk. larion 7 134 17/12/2018, 12:20
Son Yorum: larion

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.