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.