Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   Vba Içine Gömülü Dönemsel Lisanslama Işlemi

Vba Içine Gömülü Dönemsel Lisanslama Işlemi
adnnfrm
Önemli Üye 300-400

*
Kayıt Tarihi: 27.11.2019
Toplam 77 konu açtı.
Toplam 309 yorum yaptı.
Toplam 19 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013, Office 2016, Office 2019,
Beğeniler: 18 / 4
#1
27-11-2021, 08:35 (En son düzenleme: 27-11-2021, 08:38 adnnfrm.)
Herkese Merhaba;
Projelerimizi çeşitli yollardan lisanslamaya çalışıyoruz. Dönemsel olarak lisanslama işlemi için vba içinde değişken data ile dönemsel lisans kontrolü yapmak istiyorum. Bu anlamda yapmaya çalıştığım işlem aşağıdaki gibidir. Desteğinizi rica ederim.


Visual Basic
  1. If (XYZ = (DFirst("kntrl", "tbl_kntrl")) Then
  2. Me.abcbutton.Enabled = True
  3. Me.xyzbutton.Enabled = True
  4. Else
  5. Me.abcbutton.Enabled = False
  6. Me.xyzbutton.Enabled = False
  7. End If
  8.  
  9.  
  10. '''XYZ bir değişken olacaktır. Ve tarihe göre değişkenlik gösterecektir.
  11. '''Bir listemiz olacak. Bu listeyi bir değişken olarak atayabiliriz. Örneğin;
  12. '''Referans Değer
  13. '''202101 12345
  14. '''202102        67890
  15. '''202103        11123
  16.  
  17. '''XYZ =  Year(Date) & Month(Date) ' e karşılık gelen "Değer"
  18. '''Böylelikle "tbl_kntrl" tablosunda "kntrl" alanına bulunduğumuz dönemin "Değer" ini doğru yazmazsak ilgili form da ilgili alanlar
  19. '''aktive olmayacak. 
  20.  
  21. '''Referans / Değer listesini bir tabloya yazıp dlookup ile çekip kontrol yapmak istemiyorum. Tüm dönemlerin değerlerini
  22. '''vba içerisine atmak istiyorum.


Şimdiden teşekkürler.

Saygılarımla



  Bul
  Alıntı
Bu mesajı beğenenler:
lemoncher2
Aktif Üye 40-100

*
Kayıt Tarihi: 08.03.2020
Toplam 3 konu açtı.
Toplam 47 yorum yaptı.
Toplam 17 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010, Office 2016, Office 2019,
Beğeniler: 1 / 4
#2
27-11-2021, 18:38
Programınızın Lisanslandığı esnada ne kadar süre ile lisanslanacağını (Lisansın son geçerlilik tarihi) belirtir ve bu belirttiğiniz tarihi Kontrol tablonuza kaydettirip. Daha sonrada Açılışta çalışacak olan lisanslama formunuzun açıldı olayınada belirtilen Lisansın biteceği tarihin bugünün tarihinden büyük olması durumunda açılmamasını sağlayabilirsin. Ama sistem saati değiştirilerek bu engel aşılabilir. Bunun içinde daha mantıksal tarihleme çözümleri forumda olması lazım yoksa da düşünülüp yapılabilir.



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

*
Kayıt Tarihi: 27.11.2019
Toplam 77 konu açtı.
Toplam 309 yorum yaptı.
Toplam 19 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013, Office 2016, Office 2019,
Beğeniler: 18 / 4
#3
27-11-2021, 22:14
(27-11-2021, 18:38)lemoncher2 demiş ki: Programınızın Lisanslandığı esnada ne kadar süre ile lisanslanacağını (Lisansın son geçerlilik tarihi) belirtir ve bu belirttiğiniz tarihi Kontrol tablonuza kaydettirip. Daha sonrada Açılışta çalışacak olan lisanslama formunuzun açıldı olayınada belirtilen Lisansın biteceği tarihin bugünün tarihinden büyük olması durumunda açılmamasını sağlayabilirsin. Ama sistem saati değiştirilerek bu engel aşılabilir. Bunun içinde daha mantıksal tarihleme çözümleri forumda olması lazım yoksa da düşünülüp yapılabilir.

Tabloya kaydetmek istemiyorum zaten. VBA içinde kodlamak istiyorum.



  Bul
  Alıntı
Bu mesajı beğenenler:
husem
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 06.05.2013
Toplam 187 konu açtı.
Toplam 744 yorum yaptı.
Toplam 34 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 18 / 11
#4
27-11-2021, 22:22
vba ile Windows klasörü içine bir metin dosyası kaydettirsen, dosya içine de programın sisteme kurulduğu(kullanılmaya başlandığı tarih) kaydedilse.
vba her açılışta bu dosya ile kontrol edebilir,



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

*
Kayıt Tarihi: 27.11.2019
Toplam 77 konu açtı.
Toplam 309 yorum yaptı.
Toplam 19 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013, Office 2016, Office 2019,
Beğeniler: 18 / 4
#5
27-11-2021, 23:47
(27-11-2021, 22:22)husem demiş ki: vba ile Windows klasörü içine bir metin dosyası kaydettirsen, dosya içine de programın sisteme kurulduğu(kullanılmaya başlandığı tarih) kaydedilse.
vba her açılışta bu dosya ile kontrol edebilir,

Amacım dönemsel olan tüm lisansları vba içerisine gömmek. Sonrasında ise ilgili dönemin kodu nu bir tabloya yazdığımda program aktive olacak. Sonraki dönem geldiğinde yeni dönemin kodunu yazacak kullanıcı. O şekilde ilerleyecek.



  Bul
  Alıntı
Bu mesajı beğenenler:
lemoncher2
Aktif Üye 40-100

*
Kayıt Tarihi: 08.03.2020
Toplam 3 konu açtı.
Toplam 47 yorum yaptı.
Toplam 17 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010, Office 2016, Office 2019,
Beğeniler: 1 / 4
#6
28-11-2021, 02:14
Tarih ile lisans oluşturtabilirsin, Veya her iki taraf için değişken bir şeyler bulmalısın lisans kodunu üretmek için. Şuanki lisanslama sistemlerinin bazıları kullanıcın HDD seri numarası üzerinden lisans kodu üretiyor mesela. Örneğin. Bugün lisanslayacaksa HDD Seri No + Bugün Tarihi Hem bu sayede bugün aldığı lisans kodunu yarın girerim derse giremez. Ayrıcada Tabloya Son lisans geçerlilik tarihini kaydedersin. şifreli olarak.



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


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Veri Aktarma Işlemi halil.tefci 4 169 28-11-2023, 07:56
Son Mesaj: halil.tefci
  Listede çıkarma Işlemi m_demir 6 185 14-09-2023, 18:42
Son Mesaj: m_demir
  [VBA] Kayıt Iptali: Kayıt Iptal Tablosuna Ekle, Kayıdı Sil Işlemi programmer67 6 309 21-07-2023, 10:40
Son Mesaj: onur_can
  Sorgu Işlemi Sonunda Veri Yoksa Bulunduğu Hücreye 0 Olarak Otomatik Değer Verme ofbayoglu61 12 406 21-07-2023, 10:09
Son Mesaj: onur_can
  Kısayol atama işlemi nasıl yapılır? algoritma 24 14.861 21-06-2023, 09:14
Son Mesaj: ates2014
  [VBA] Alan Kontrollü Kaydetme Işlemi Ahmet51 2 208 25-05-2023, 14:07
Son Mesaj: Ahmet51
  [SORGU] Bir önceki Kayıttan çıkarma Işlemi dmn815 6 272 01-02-2023, 13:41
Son Mesaj: halily
  [FORM] Form Kapadığında Olayında Kod Işlemi Ahmet51 5 307 27-09-2022, 01:19
Son Mesaj: metınaycıcek

Foruma Git:


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