(03/12/2014, 20:10)access06 yazdı: Merhaba arkadaşlar. Yapmış olduğum uygulamaya bu lisans uygulamasını entergre ettim ve gayet güzel çalışıyor. Ama hiç hesapta olmayan bir sorunla karşılaştım. Şöyle ki, uygulamamı böldüm ve veri tabanını ayırdım. Çünki ağ üzerinden çoklu kullanıcıya izin verdim. Ama bu kez her kullanıcı açtığında lisans hatası veriyor. Biri lisans uyguluyor, sonra diğeri, ama her lisans uygulandığında önceki lisansı ezdiği için kullanıcılar her açtığında lisans hatasına düşüyor.

LİSANS formunun açıldığında olayındaki kodları aşağıdakilerle değiştiriniz.

Metin3.Value = GetCPUID

ÜRÜNKİMLİĞİ.Value = CalculateMD5(Metin3.Value)



Dim kontrol As Integer



kontrol = Nz(DLookup("[Kimlik]", "LİSANS", "[lisanskodu]=" & "'" & CalculateMD5(ÜRÜNKİMLİĞİ.Value) & "'"), 0)

Me.Metin0 = CalculateMD5(ÜRÜNKİMLİĞİ.Value)

If kontrol > 0 Then

DoCmd.Close acForm, "LİSANS"

Else

DoCmd.GoToRecord acForm, "LİSANS", acNewRec

End If

Ayrıca, uygulamada bulunan LİSANS isimli tablonun ismini tbl_lisans, formun ismini de frm_lisans olarak değiştiriniz. Bu uygulamaya düzenlediğim tarihlerde ölümcül hatalardan bihabermişiz.