Skip to main content

AccessTr.neT


Farklı Formlardan Lisans Kontrolu Nasıl Yapılır?

Farklı Formlardan Lisans Kontrolu Nasıl Yapılır?

#19
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.
Cevapla
#20
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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
#21
Değerli hocalarım;
Haklısınız hata belki bende belki de sanal alemdeImg-grinSanal 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
.rar Öğrenci Sistemi.rar (Dosya Boyutu: 1,04 MB | İndirme Sayısı: 5)
Cevapla
#22
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.
.rar kopyakoruma.rar (Dosya Boyutu: 50,02 KB | İndirme Sayısı: 6)
Cevapla
#23
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.
Cevapla
#24
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..
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task