demo hatası yardım lütfen - Baskı Önizleme +- 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ığı: demo hatası yardım lütfen (/konu-demo-hatasi-yardim-lutfen.html) |
demo hatası yardım lütfen - alperadn01 - 03/03/2010 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 Cvp: demo hatası yardım lütfen - ozanakkaya - 03/03/2010 Lütfen örnek uygulamanızı ekleyiniz. Kod:
AccessTr.Net Forumlarında Uyulması Gereken Genel Kurallar Cvp: demo hatası yardım lütfen - ercansahin - 05/03/2010 Sn alperadn01, sledgeab hocamın belirttiği gibi örnek uygulamanızı eklerseniz inceleme fırsatımız olur. Cvp: demo hatası yardım lütfen - ozanakkaya - 05/03/2010 https://accesstr.net/konu-access-programi-demo-yapma-sorunu.html?pid=4049#pid4049 3. mesajdaki örneği inceleyiniz. Cvp: demo hatası yardım lütfen - alperadn01 - 05/03/2010 teşekkür ederim |