Private Sub Form_Load()
Forms![YATIRIM YENİ].Recordset.AddNew
Me.YIL = Year(Now())
DoCmd.GoToRecord , , acLast
End Sub

kodu ile ekrana direk yeni sayfa açılıyor. Gezinti düğmelerini de iptal ettim ki sadece son sayfayı görsün ve yeni kayıtları buradan eklesin. Ancak PgDn, PgUp tuşları ile önceki sayfalara gelinebiliyor, önleyebilmek için ne yapmam lazım.....

Sn ekremer1969;
Private Sub Form_Load()
me.dataEntry = True
end sub
yeterlidir.
Me.YIL alani varsayilan degeri de = Year(Now()) yapmalisiniz.

Hocam çok teşekkürler, eline sağlık süper oldu.