Skip to main content

AccessTr.neT


Tarih,gün Ve Aya Göre Dosya Sayısı Vermek

Tarih,gün Ve Aya Göre Dosya Sayısı Vermek

Çözüldü #1
eklediğim programda frm_anamenu formundan yeni olaya butonuyla açılan formda "yenikayıt" tuşuna basılınca;
tbl_disiplindosyalari adlı tablodaki kayıt sayısını sayarak bir sayı üretiyorum. Lakin tablodaki sayı azaldığı için aynı koddan tekrar üretiyor. Buda mükerrer oluyor. Oluşan kodu kontrol ederek (sonhanesi /haneleri) aradaki olanları kod olarak üretebilirmiyiz.

[Resim: L34DFy.jpg]

Dim yil, ay As Integer
Dim kayitsayisi As String

yil = Mid(Format(Date, "yyyy"), 3, 2)
ay = Format(Date, "mm")
gn = Format(Date, "dd")
kayitsayisi = Format(olaydankactane("tbl_disiplinolayi") + 1, "00##")
'kackayitvar ("tbl_ogrenci")

txtolayCod = yil & ay & gn & kayitsayisi
.rar DİSİPLİN PROGRAMI28032020 .rar (Dosya Boyutu: 126,01 KB | İndirme Sayısı: 5)
Son Düzenleme: 30/03/2020, 00:51, Düzenleyen: SeferŞANLI.
Cevapla
#2
"Lakin tablodaki sayı azaldığı için aynı koddan tekrar üretiyor" olayını anlamadım. Bugün 20030300001'i ürettik, aynı gün yeni olayı 2003030002, yarın ilk olay 2003040001 mi olacak?
Cevapla
#3
Ben olaya öğrenciye özel bir sayı üretmek istedim. Bunuda kaydedilen öğrencinin kaydedildiği yıl, ay ve gün den sonra sırayla arrkasına numerik rakamlar gelsin istedim. Eklemede sorun yok. Ama bir kayıt silinince tablodaki sayı azaldığı (aradan sayı çekildiği) aynı gün yapılırsa, tekrar aynı sayıyı veriyor. Bunu engelleyebilir miyiz, diye düşünmüştüm.
Cevapla
#4
Olay için sayı verecekseniz verilecek sayı öğrenciden bağımsız olmalıdır. Ve bu sayı benzersiz olmalıdır. Öğrenciye göre olay sayısı verirseniz, aynı öğrenci aynı gün 2 defa kaydedileceği zaman sorun çıkar. Tekrar aynı sayıyı vermesinde ne gibi bir sakınca var bilmiyorum. Ekli örnek tarihe göre sayı verir.

Daha önceden 20032900002 verilmiş ise bugün yani 30/03/2020 tarihinde vereceği sayı 20033000001 olur, bugün ikinci kayıt oluşturulduğunda ise olay sıra no 20033000002 olacaktır.
.rar DİSİPLİN PROGRAMIsırano_sld.rar (Dosya Boyutu: 77,55 KB | İndirme Sayısı: 6)
Cevapla
#5
hmm. Teşekkürler. Sayenizde öğreniyoruz. Öğrenmek için..
Cevapla
#6
Öğreniyorsanız, eklenen kodları inceleyip hangi kodun ne amaçla eklendiğini anlayıp, farklı formda bu kodu veya benzerini kullanabiliyorsanız sorun yok.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task