Kodlarımızda ne var?
Private Sub Form_Load()
fkno = Nz(DMax("giris_id", "T_GIRIS"), 0) + 1
temizle
End Sub
fkno adlı kutumuza (T_GIRIS) tablomuzdaki giris_id yi, yani o tabloya ait kayıt numarasının olduğu kısım. Karşısında bir fonksiyon var. Bu DMax fonksiyonu. Bize işaret edilen yerde en büyük değeri verir.
Nasıl bir yer işaret ediyoruz. DMax("giris_id",T_GIRIS")
T_GIRIS tablosundaki giris_id alanındaki değerlerin en büyüğünü göster diyoruz. Bu ne demektir. En büyük değer en son kayıtno yani en son giris_id değeridir.
Sonuna +1 koyuyoruz. BUnunla en son mevcut kayııtan bir sonraki numarayı kutuya yaz. Yani bizim yapacağımız kaydın numarası (giris_id) bu oluyor.
Ama daha tabloda hiç kayıt yokken bu null değer üretir. Bu da hataya sebeb olur. Null değerle matematik işlem yapılmaz. O zaman imdadımıza NZ fonksiyonu yetişiyor. Bu fonksiyon Nz( kontrol_edilen_değer, null sa olması istenen değer)
Biz eğer Dmax değeri null dönerse bu değeri 0 yap. +1 de yazmıştık. O zaman hiç kayıt yoksa 1 olarak yaz diyoruz.
Böylece formu açtığımızda fkno kutusunda o anki kaydımızı yapacağımız numara çıkıyor.
Buraya kadar anlaşıldı mı?