Sayın mehami, size gerekli kod konunun 9. mesajında alpeki99 tarafından verildi. Siz kodu lisans sormasını istediğiniz formun yüklendiğinda olayına yazacaksınız,
Resimdeki hatayı alıyorsanız, hata aldığınız, kodu uyguladığınız uygulamayı ekleyiniz.
Ticari olabilir neden olmasın ben karşı değilim. Sonuçta yardım alarak dahi olsa üzerinde düşünmek bir emektir, karşılığı da talep edilebilir sorun yok.
Sıkıntı şu temel seviyede dahi olsa anlaşamıyoruz. 20. mesaj olmuş hala bir sonuç yok ortada.
Değerli hocalarım;
Haklısınız hata belki bende belki de sanal alemde
Sanal alemde yazılı dilde anlaşabilmek gerçekten zor..Ben ifade etmek istediğimi tam anlatamadım sanırım..
Gerek bir önceki mesajımda paylaştığım uygulamada gerekse şimdi paylaştığım uygulamada aynı hatayı aldım hep..
Şimdi de eğitim planı uygulamasından hareketle öğrenci kayıt-takip sistemi oluşturmaya doğru ilerliyorum..Bazı alanlar eksik şuan..yavaş yavaş ilerliyorum..
Şimdi uygulama örneği incelendiği zaman lisans formu açılış formuyken sorun yok..ama açılış formunu diğer formlardan birisi olarak ayarlarsak (degerlendirmeyap formu-admin formu ya da seçimyap formlarından birisini) hatayı sizde göreceksiniz ki bu hatayı almaktayım..
Bunu diğer uygulamada da aldım..öneri ve yardımlarınızı bekliyor saygılar sunuyorum
Eklediğiniz son uygulamada sorun yok, açılış formunu değiştirince de hata vermedi.
Ekteki uygulamadaki formların yüklendiğinde olayına
Call LisansSorgula(Me.Name)
kodu yazılı, modülede
Public Function LisansSorgula(FormAdi As String)
Dim Kontrol As String
Kontrol = Nz(DLookup("[Kimlik]", "tbl_lisans", "[lisanskodu]=" & "'" & CalculateMD5(CalculateMD5(GetWmiDeviceSingleValue("Win32_Processor", "ProcessorID"))) & "'"), 0)
If Kontrol > 0 Then
Else
DoCmd.Close acForm, FormAdi
DoCmd.OpenForm "frm_lisans", acNormal, "", "", , acNormal
End If
End Function
kodu ekledim.
Call LisansSorgula(Me.Name) kodunu tüm formlara eklerseniz açılan her formda lisans denetimi yapar.
Örnekteki kodu kendi uygulamanıza ekleyiniz.
Sizin resimde belirttiğiniz hatayı almanızın sebebi, GetWmiDeviceSingleValue koduna ail modülü kendi uygulamanıza eklememiş olmanız.
Modüldeki kod olmaz ise çalışmaması normal.
Değerli ozan hocam çok tşk ediyorum..Şuan mesai bitimi olduğundan henüz inceleme fırsatım olmadı eve geçer geçmez hemen konuyu inceleyip gereken cevabı vereceğim..
Çok tşk ederim..Görüşmek üzere allaha emanetsiniz..
şimdilik iyi akşamlar..