AccessTr.neT

Çok az bilgi veriyorsunuz bu şekilde cevap alamazsınız. Yeni bir konu açın örnek dosyanızı ekleyin.

Merhaba, Güzel bir kod ama üstadların dediği gibi bilen kişiler Regedit den kayıtları değiştirerek kolayca programı kandırabilirler. Ama mevcut kod da bir eksiklik var. Tarihi geri bile alsanız Close yaptığında otomatik olarak Son Giriş tarihini geri çektiğiniz tarihe attığından bir sonraki sefer program çalışıyor tekrar. Close olayının şu şekilde olması gerekli,

Private Sub Form_Unload(Cancel As Integer)
x = GetSetting("Üretim Planlama", "Ayarlar", "Son Çikis Tarihi", "")
If x = "" Then
SaveSetting "Üretim Planlama", "Ayarlar", "Son Çikis Tarihi", Date
SaveSetting "Üretim Planlama", "Ayarlar", "Son Çikis Saati", Time
Else
If CVDate(x) > Date Then
Else
SaveSetting "Üretim Planlama", "Ayarlar", "Son Çikis Tarihi", Date
SaveSetting "Üretim Planlama", "Ayarlar", "Son Çikis Saati", Time
End If
End If
End Sub

emeğine sağlık hocam denedim gayet güzel ve düzgün çalışıyor

Güncel