AccessTr.neT

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.

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

"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?

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.

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.

hmm. Teşekkürler. Sayenizde öğreniyoruz. Öğrenmek için..

Öğreniyorsanız, eklenen kodları inceleyip hangi kodun ne amaçla eklendiğini anlayıp, farklı formda bu kodu veya benzerini kullanabiliyorsanız sorun yok.