Ara formuna edatasayi alanınıda ekleyiniz.. İsterseniz görünmez yapın, farketmez.. Sonra yil formunu açan kodun yerine bunu yazınız..:
Kod:
Dim trz As String
trz = "select * from data" _
& " where [Kimlik]=" & Me![edatasayi] & ""
DoCmd.OpenForm "yil"
Forms!Yil!Data.Form.RecordSource = trz