Skip to main content

AccessTr.neT


Access Programınızı Demo yapma

Access Programınızı Demo yapma

#7
Çok az bilgi veriyorsunuz bu şekilde cevap alamazsınız. Yeni bir konu açın örnek dosyanızı ekleyin.
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.
Cevapla
#8
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
Cevapla
#9
emeğine sağlık hocam denedim gayet güzel ve düzgün çalışıyor
Ege Web Ajans
Bilgi Güçtür.....
Son Düzenleme: 13/06/2019, 18:32, Düzenleyen: dayko.
Cevapla
#10
Güncel
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task