Kayıt Tarihi: 22.04.2008
Toplam 33 konu açtı.
Toplam 207 yorum yaptı.
Toplam
0
puanı bulunmakta. Beğeniler: 0 / 0
Merhabalar herkese,
Daha Access konusunda öğrenmem gereken o kadar çok şey varki, ben onların peşinde koşturup, kitaplar kurcalarken, forumlarda örnekleri incelerken , çalışma arkadaşlarımın aaaa ne güzel şey yapmışsın bunu bize kopyala demeleri beni çok rahatsız ediyor.
Yapı gereğide yok olmaz vs vs diyemiyorum. Aklımdan geçen, sizlerinde katkısı ile access dosyalarına nasıl bir kodla, kısıtlı kayıt girilebilsin yada 15 gün sonraki tarih geldiğinde veri girişi engellensin gibi bir işlem yapılabilir. Belki buda çözüm değil ama en azından bir problem olmuş vs vs denebilir. Bu sorun cevaplanırsa gerçekten müteşekkir kalacağım.Teşekkürler.
Kayıt Tarihi: 04.03.2008
Toplam 371 konu açtı.
Toplam 7.540 yorum yaptı.
Toplam
236
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010,
Office 2019,
Beğeniler: 55 / 56
Merhaba..
Bunu engellemenin en kesin yolu dosyanızı *.mde formatına dönüştürmektir..
Uygulayacağınız diğer yöntemler kesin çare olmamakla birlikte çalışmanıza ulaşmak, bunu amaçlayanın bilgisi dahilinde olacaktır..
*.mde yapmanın dışında süre kısıtlama ile ilgili bu kod kümesini bu bilgiler ışığında kullanabilirsiniz.. Kullanım süresini siz belirleyebilirsiniz..
Kod: Private Sub Form_Load()
On Local Error Resume Next
Dim d, x, y
d = GetSetting("Dosyanızın Adı", "Ayarlar", "Ilk Giris", "")
If d = "" Then
SaveSetting "Dosyanızın Adı", "Ayarlar", "Ilk Giris", Date
Else
If (Date - CDate(d)) > 15 Then
MsgBox ("Programin Kullanma Süresi Dolmustur.")
DoCmd.Close
Else
x = GetSetting("Dosyanızın Adı", "Ayarlar", "Son Çikis Tarihi", "")
If CVDate(x) > Date Then
MsgBox ("Programin Kullanma Süresi Dolmustur.")
DoCmd.Close
Else
y = GetSetting("Dosyanızın Adı", "Ayarlar", "Son Çikis Saati", "")
If (CVDate(x) = Date) And (CVDate(y) > Time) Then
MsgBox ("Programin Kullanma Süresi Dolmustur.")
DoCmd.Close
End If
End If
x = GetSetting("Dosyanızın Adı", "Ayarlar", "Sayi", "1")
MsgBox ("Programı " & x & ". defa çalıştırıyorsunuz.")
SaveSetting "Dosyanızın Adı", "Ayarlar", "Sayi", x + 1
End If
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting "Dosyanızın Adı", "Ayarlar", "Son Çikis Tarihi", Date
SaveSetting "Dosyanızın Adı", "Ayarlar", "Son Çikis Saati", Time
End Sub
Kayıt Tarihi: 21.04.2008
Toplam 13 konu açtı.
Toplam 86 yorum yaptı.
Toplam
0
puanı bulunmakta. Beğeniler: 0 / 0
uda4a demiş ki:Merhabalar herkese,
... çalışma arkadaşlarımın aaaa ne güzel şey yapmışsın bunu bize kopyala demeleri beni çok rahatsız ediyor...
Bu seni rahatsız etmesin, hatta memnun etsin.
Niye diye soracaksan, sorma.
Kayıt Tarihi: 22.04.2008
Toplam 33 konu açtı.
Toplam 207 yorum yaptı.
Toplam
0
puanı bulunmakta. Beğeniler: 0 / 0
Sn Taruz
Teşekkür ederim.Bu kod uygulamasını deneyeceğim.
Sizin yazınızdan sonra mde formatına dönüştürülmesi ile ilgili menu den deneme yapmak istedim, access 2000 şekilinde kaydedilen veri tabanından, ADE veya MDE dosyayı oluşturamazsınız diye bir uyarı alıyorum.Şu anda işlerim yoğun olduğu için bakamadım ama forumda bununla iligli konu varsa araştıracağım.
Teşekkürler.
Kayıt Tarihi: 22.04.2008
Toplam 33 konu açtı.
Toplam 207 yorum yaptı.
Toplam
0
puanı bulunmakta. Beğeniler: 0 / 0
23-06-2008, 16:15
(En son düzenleme: 23-06-2008, 16:29 uda4a.)
Sn Taruz,
vermiş olduğunuz kod örneğinde, Dosyanızın Adı;Ilk Giris;Son Çikis Tarihi,ve Son Çıkış Saatlerini Bugün ve saat 18:00 olarak değiştirdim.Sisitem saatinide bir gün sonrasına yapmama rağmen, çalışmam sadece girişte 1.defa çalıştırıyorsunuz uyarısı veriyor ve daha sonraki denemelerimde Tarihi göz ardı ederek kod yazılmamış gibi çalışıyor.Sıkıntı nerede olabilir sizce, programı her çalıştırdığımda her seferinde 1. defa çalıştırıyorsunuz uyarısı vermekle yetiniyor.Bu arada Kod yazılımında Ayarlar olarak yazılan kısıma bir şey yazmak gerekirmi bilmiyorum.
Kayıt Tarihi: 22.04.2008
Toplam 33 konu açtı.
Toplam 207 yorum yaptı.
Toplam
0
puanı bulunmakta. Beğeniler: 0 / 0
Sn Taruz;
Kod yazılımını aşağıda ki düzeltince, 24.06.2008 08:00 saati itibarı ile programın kullanımı durdurması gerekiyor değilmi, Kod yazılımında bir yanlışlık yapıyormuyum.Göz atarsanız çok sevineceğim.
Teşekkürler.
Private Sub Form_Load()
On Local Error Resume Next
Dim d, x, y
d = GetSetting("SANTIYEGUNLUKTAKIP1", "23.06.2008", "23.06.2008", "")
If d = "" Then
SaveSetting "SANTIYEGUNLUKTAKIP1", "23.06.2008", "23.06.2008", Date
Else
If (Date - CDate(d)) > 2 Then
MsgBox ("Programin Kullanma Süresi Dolmustur.")
DoCmd.Close
Else
x = GetSetting("SANTIYEGUNLUKTAKIP1", "24.06.2008", "24.06.2008", "")
If CVDate(x) > Date Then
MsgBox ("Programin Kullanma Süresi Dolmustur.")
DoCmd.Close
Else
y = GetSetting("SANTIYEGUNLUKTAKIP1", "08:00", "08:00", "")
If (CVDate(x) = Date) And (CVDate(y) > Time) Then
MsgBox ("Programin Kullanma Süresi Dolmustur.")
DoCmd.Close
End If
End If
x = GetSetting("SANTIYEGUNLUKTAKIP1", "10", "10", "1")
MsgBox ("Programı " & x & ". defa çalıştırıyorsunuz.")
SaveSetting "SANTIYEGUNLUKTAKIP1", "10", "10", x + 1
End If
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
SaveSetting "SANTIYEGUNLUKTAKIP1", "24.06.2008", "24.06.2008", Date
SaveSetting "SANTIYEGUNLUKTAKIP1", "08:00", "08:00", Time
End Sub
|
