Moduldeki fonksiyonu aşağıdaki ile değiştiriniz.
Kod:
Function SonSayi()
Dim Bulunan1, Bulunan2
Bulunan1 = Nz(DMax("eburosayisi", "Data", "eevrakyili=Forms!Yil!Yil"),0)
Bulunan2 = Nz(DMax("eburosayisi", "Data_alt", "eevrakyili=Forms!Yil!Yil"),0)
SonSayi = Nz(IIf(Bulunan1 > Bulunan2, Bulunan1, Bulunan2),0) + 1
End Function
Data_altaltformu.Requery
yazmalısınız ki varsayılandeğeri yenilesin.