Mesajları önceki ile birleştirip yazarsanız çok daha iyi olur. Aslında ben bilerek söylememiştim kendiniz bulmaya çalışırsanız daha iyi kavrarsınız diye ancak işi uzatmayalım, sorunuzun cevabı :
Aktivasyon numarası veren formda Uygula butonunun Kodlarını incelerseniz Time
Kod:
Private Sub ONAYLA_Click()
Retry = Retry + 1
If Retry = 5 Then DoCmd.Quit
If IsNull(Me.AD) Or IsNull(Me.ACTİVE) Then Exit Sub
Dim rDate As Date
RetrieveTimeLimit Me!ACTİVE, Me!AD, Delivre, Expire, NombreJour
.....
.....
.....
kodlarını göreceksiniz. Burada
RetrieveTimeLimit çağırılmış. Peki burası nerede? modSerial modülünün içinde. Bu modül içindeki :
Kod:
For X = 1 To Len(TempPart) / 2
TempVar = TempVar & Int(Mid(TempPart, (X * 2) - 1, 2)) / 8
Next X
kısmında önceki Algoritmada yaptıklarını geri alıyor ve 8 ile çarpmıştı şimdi 8 e bölüyor. Siz hangi rakamı girdiyseniz o rakamı buraya yazmalısınız. Programın başka yerlerinde kontrol işlemleri yapılıyormu bilmiyorum ancak varsa onlarda bu şekilde düzenlenmeli.
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.