modserial modülünde bulunan verifierlicence kodunda bulunan
Kod:
If Delivre > Now Then
If vAffMsg = True Then MsgBox "LİSANS BİTMESİ " & Format(Delivre, "dd mm yyyy") & ".", vbOKOnly + vbCritical, "GÜNDÜR"
SerialOK = False
VerifierLicence = False
DoCmd.Close acForm, "FKullaniciGiris1"
End If
If Expire < Now Then 'Renouvelement de la license
If vAffMsg = True Then MsgBox "LİSANS BİTİŞ TARİHİ " & Format(Expire, "dd mm yyyy"), vbInformation, "LİSANSINIZ BİTMİŞ"
SerialOK = False
'VerifierLicence = False
DoCmd.OpenForm "SERİALFORMU"
DoCmd.Close acForm, "FKullaniciGiris1"
End If
End IfIf vAffMsg = True Then MsgBox "LİSANS BİTMESİ " & Format(Delivre, "dd mm yyyy") & ".", vbOKOnly + vbCritical, "GÜNDÜR"
SerialOK = False
VerifierLicence = False
DoCmd.Close acForm, "FKullaniciGiris1"
alanındaki kodda lisans bitmeye yakın uyarı verdirme olayı yokmudur? yada bu kodun içine nasıl bir kod eklemeliyizki lisansın bitmesine 7 gün kaladan itibaren her açılıştı lisansınızın bitmesine ... gün kalmıştır şeklinde bir msgbox uyarısı verdirilebiliriz.
