+- 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ığı: Farklı Formlardan Lisans Kontrolu Nasıl Yapılır? (/konu-farkli-formlardan-lisans-kontrolu-nasil-yapilir.html)
Cvp: Farklı Formlardan Lisans Kontrolu Nasıl Yapılır? - alpeki99 - 16/11/2015
(16/11/2015, 08:42)mehami yazdı: Değerli alpeki diğer admin hocalarım;
Bu kod ile alpeki hocamın verdiği kod ile,diğer formlarda kontrolü nasıl sağlatacağımızla ilgili bir örnek verebilir misiniz??
Öneri ve yardımlarınızı bekliyor saygılar sunuyorum..
Siz kodu incelediniz mi? Ne yapacağınızı yazmıştım zaten. Örnek kod zaten 1. mesajdaki Ozan Bey'in örnek dosyasının içinde mevcut olan kod. Bu kodu diğer formlarınızda da aynen kullanabilirsiniz.
Farklı Formlardan Lisans Kontrolu Nasıl Yapılır? - mehami - 16/11/2015
Kodu inceledim ama uygulama noktasında sıkıntım var..Kodu oluğu gibi herhangi bir formda açıldığında olay yordamına yapıştırdım sonuç:Hüsran
(Hata verdi..Bu kodu olduğu gibi mi ya da ne tür bir değişiklik yapıp kullanacağım mevcut uygulama üzerinde boş bir form üzerinde bir örnek gösterirseniz sevinirim..
Saygılar sunuyorum.
Cvp: Farklı Formlardan Lisans Kontrolu Nasıl Yapılır? - alpeki99 - 16/11/2015
Boş bir form ekleyin. Formun yüklendiğinde olayına aşağıdaki kodları yapıştırın:
Dim CPU As String
Dim Kontrol As String
CPU = GetWmiDeviceSingleValue("Win32_Processor", "ProcessorID")
mtn_urunkimligi = CalculateMD5(CPU)
GCPU = CalculateMD5(CalculateMD5(CPU))
Kontrol = Nz(DLookup("[Kimlik]", "tbl_lisans", "[lisanskodu]=" & "'" & GCPU & "'"), 0)
If Kontrol > 0 Then
MsgBox "Program lisanslı ise yapılacak işlemler burada"
Else
MsgBox "Program lisanssız ise yapılacak işlemler burada"
End If
Farklı Formlardan Lisans Kontrolu Nasıl Yapılır? - mehami - 16/11/2015
Yukarıdaki gibi bir hata aldım çözümü noktasında neler yapmalıyım??
Ozan hocamın örneği üzerinden hareket ediyorum zaten..Şaun çalışmama ekli..Lisans formu açılış formu ve burada lisans istiyor..
Açılış formunu kişi değiştirirse diyelim X_formunu açılış yaptı ben onda da kontrol sağlamaya çalışıyorum..Hatta abartıp tüm formlarda kontrol isteyeceğim ah bir öğreneyim de
)Hata resmine gelince,herhangi bir formun yüklendiğinde olay yordamına verdiğiniz kodu yazdım..
Uygulamayı(açılış formunu kodu yapıştırdığım form olarak belirledim tabi) açtım açar açmaz hemen resimde görüldüğü hatayı verdi..Başkaca bir hata kodu vs ya da uyarı vermedi..
Ne yapmam lazım??
Cvp: Farklı Formlardan Lisans Kontrolu Nasıl Yapılır? - mehami - 16/11/2015
Ozan hocamın örneği üzerinden hareket ediyorum zaten..Şaun çalışmama ekli..Lisans formu açılış formu ve burada lisans istiyor..
Açılış formunu kişi değiştirirse diyelim X_formunu açılış yaptı ben onda da kontrol sağlamaya çalışıyorum..Hatta abartıp tüm formlarda kontrol isteyeceğim ah bir öğreneyim de
)Hata resmine gelince,herhangi bir formun yüklendiğinde olay yordamına verdiğiniz kodu yazdım..
Uygulamayı(açılış formunu kodu yapıştırdığım form olarak belirledim tabi) açtım açar açmaz hemen resimde görüldüğü hatayı verdi..Başkaca bir hata kodu vs ya da uyarı vermedi..
Ne yapmam lazım??
Cvp: Farklı Formlardan Lisans Kontrolu Nasıl Yapılır? - alpeki99 - 16/11/2015
Hatalı dosyanızı ekleyin bakalım