(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.
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.
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
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??
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??
Hatalı dosyanızı ekleyin bakalım