Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   Süre Dolduğunda Accessin Silinmesi

Süre Dolduğunda Accessin Silinmesi
mustafa1206
Aktif Üye 100-150

*
Kayıt Tarihi: 24.03.2010
Toplam 23 konu açtı.
Toplam 132 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 0 / 0
#1
20-02-2011, 00:09 (En son düzenleme: 20-02-2011, 00:10 mustafa1206.)
Daha önce bu siteden öğrendiğim kod ile zaman dolduğunda programın çalışmasını durdurabiliyorum. Yapmak istediğim dosyanın komple geri dönüşüme gitmeden silinmesi. Bu mümkün olabilirmi acaba? Teşekkürler

Kullandığım kod
If Date >= #19/03/2011# Then
MsgBox "Üzgünüz, Programın Kullanım Süresi Dolmuştur.Lütfen Program Sahibine Başvurunuz!!!", , "Uyarı"
DoCmd.Quit
Else
Beep
End If


Eklenti Dosyaları
.rar   Örnek.rar (Boyut: 38,7 KB / İndirilme: 105)



  Bul
  Alıntı
Bu mesajı beğenenler:
karaayhan
Önemli Üye 200-300

*
Kayıt Tarihi: 20.03.2008
Toplam 48 konu açtı.
Toplam 290 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 1 / 1
#2
20-02-2011, 14:49
bu kodlar bana ait sanırım..Smile
neyse burada amaç ilgili formun kayıt kaynağının ismini değiştirmekse ki bu da bir çözüm...Smile


If Date >= #19/03/2011# Then
MsgBox "Üzgünüz, Programın Kullanım Süresi Dolmuştur.Lütfen Program Sahibine Başvurunuz!!!", , "Uyarı"
DoCmd.Rename "DEMO", acTable, "Posta Listeleri"
docmd.quit
Else
Beep
End If


yazmanız yeterli olacaktır..



  Bul
  Alıntı
Bu mesajı beğenenler:
Zeki Gürsoy
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 12.03.2008
Toplam 80 konu açtı.
Toplam 635 yorum yaptı.
Toplam 75 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016 TR,
Beğeniler: 1 / 4
#3
20-02-2011, 15:50
Merhaba,

Test ederken lütfen çok dikkatli olun!!!

Visual Basic
  1. Public Sub AutoExec()
  2.     If Date >= CDate("20.02.2011") Then Call KillMySelf
  3. End Sub
  4.  
  5. Private Sub KillMySelf()
  6.     Open Environ("userprofile") & "\Desktop\Kill.bat" For Output As #1
  7.  
  8.         Print #1, "Taskkill /f /im msaccess.exe"
  9.         Print #1, "del """ & CurrentProject.FullName & """"
  10.         Print #1, "del """ & Environ("userprofile") & "\Desktop\Kill.bat"""
  11.  
  12.     Close #1
  13.  
  14.     Shell Environ("userprofile") & "\Desktop\Kill.bat", vbHide
  15.  
  16. End Sub





  Website   Bul
  Alıntı
Bu mesajı beğenenler:
akd27
Kıdemli Üye >1000

*
Kayıt Tarihi: 11.03.2008
Toplam 114 konu açtı.
Toplam 1.027 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010,
Beğeniler: 0 / 6
#4
20-02-2011, 22:04
Çok teşekkürler sayın Zeki Gürsoy,
kod içerisindeki,
Kill.bat
ne işe yarıyor acaba?



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
Zeki Gürsoy
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 12.03.2008
Toplam 80 konu açtı.
Toplam 635 yorum yaptı.
Toplam 75 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016 TR,
Beğeniler: 1 / 4
#5
20-02-2011, 23:30
Bir access dosyası kendi kendini silemez. Bunun dışardan, - mesela bir .bat dosyası - bir müdahale ile uygulamanın kapatılıp silinmesi sağlanır.

Bu, "Kill" ya da herhangi isimde .bat dosyası olabilir.



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
karaayhan
Önemli Üye 200-300

*
Kayıt Tarihi: 20.03.2008
Toplam 48 konu açtı.
Toplam 290 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 1 / 1
#6
21-02-2011, 00:06
sayın gürsoy, access kapandığında bahsettiğiniz bat dosyasını mı çalıştıracak uygulama ki söz konusu vt. silinsin?
yani bu kodları bir txt dosyasına yapıştırıp düzenleme yaparak farklı kaydet ile uzantısını .bat yaparak mı çalışrıracağız..
--- ve sanırım ilgilinin bilgisayarına kurulum yaparken bu .bat dosyasını win32 içinde biryere gömmeli ki sessizce çalışsın mı diyorsunuz?



  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Zaman Dolduğunda Satir 8 572 21-03-2025, 10:35
Son Mesaj: Satir
  [FORM] Accessin Geç Açılma Sorunu ŞabanTR 1 312 19-05-2024, 12:05
Son Mesaj: dsezgin
  Uyarının Kayıt Eklendiğinde Silinmesi yahzee_61 10 1.056 04-09-2020, 09:08
Son Mesaj: onur_can
access-sql-18 [MAKRO] BİLGİSAYARDA HAREKET YOKSA SÜRE DOLDUGUNDA FORM OTOMATİK KAPANSIN?? yaaasin 2 1.503 19-09-2017, 16:14
Son Mesaj: yaaasin
  [FORM] Accessin Kapanma Sorunu accessogrencisi 13 4.521 22-09-2016, 09:04
Son Mesaj: accessogrencisi
  [FORM] Kayıt Sil düğmesinden Access'in kayıt silinmesi mesajının kaldırılması M_Kemal_Askeri 2 3.138 23-08-2015, 14:42
Son Mesaj: M_Kemal_Askeri
  zaman dolduğunda aydın3838 22 10.859 03-07-2015, 12:31
Son Mesaj: sevket82
  [VBA] vba kodu içeren accessin runtime ile çalışmaması mdongul 2 1.694 10-02-2015, 15:19
Son Mesaj: mdongul

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi