sayın kesoka,

modSerial modülündeki VerifierLicence kodunda sıkıntı var gibi görünüyor.

VerifierLicence kodundaki ilgili kısmı aşağıdaki ile değiştirerek deneyiniz.

   

If Serial = "" Or kullanici = "" Then



       SerialOK = False

       VerifierLicence = True

       

       DoCmd.OpenForm "SERİALFORMU"

       DoCmd.Close acForm, "FKullaniciGiris1"

   Else



       SerialOK = True

       VerifierLicence = True

       RetrieveTimeLimit Serial, kullanici, Delivre, Expire, NombreJour

       DoCmd.OpenForm "kisiler"

       If Format(strDate, "mm.yyyy") > Format(Date, "mm.yyyy") Then



           If vAffMsg = True Then MsgBox "LİSANS BİTİŞ TARİHİNİZ " & Format(Expire, "dd mmmm yyyy") & " SİSTEM TARİHİ İLE OYNANDIĞI İÇİN LİSANSINIZ İPTAL EDİLMİŞTİR", vbInformation, "SİSTEM TARİHİ İLE OYNANMIŞ."

           SerialOK = False

           DoCmd.OpenForm "SERİALFORMU"

           DoCmd.Close acForm, "kisiler"

           Exit Function

       Else

           WriteRegistry "HKCU", "Software\MicroSoft", "SONGİRİS", "S", Date

       End If

       

       If Delivre > Now Then

           If vAffMsg = True Then MsgBox "SİSTEM TARİHİ İLE OYNANDIĞI İÇİN LİSANSINIZ İPTAL EDİLMİŞTİR." & Format(Delivre, "dd mmmm yyyy") & ".", vbOKOnly + vbCritical, "LİSANS İPTALİ"

           SerialOK = False



         DoCmd.OpenForm "SERİALFORMU"

           DoCmd.Close acForm, "kisiler"

       End If

       

       If Expire < Now Then

           If vAffMsg = True Then MsgBox "LİSANS BİTİŞ TARİHİ " & Format(Expire, "dd mmmm yyyy") & " LÜTFEN YENİ BİR LİSANS KODU EDİNİN.", vbInformation, "LİSANSINIZ BİTMİŞ"

           SerialOK = False

         DoCmd.OpenForm "SERİALFORMU"

           DoCmd.Close acForm, "kisiler"

       End If          

   End If

Ben aynı uygulamayı Polsotta kullanıyorum, herhangi bir sorun yok.