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