"frmana" formundaki "Formasi" altformunun üst alanları bağla: id, alt alanları bağla: tblanaid olarak değiştirdim.
Yeni Kayıt butonunun tıklandığında olayındaki kodu aşağıdaki ile değiştirdim.
On Error GoTo Err_YeniKayit_Click
Call Text_Ac
DoCmd.Requery
a = Me.hapkalan
b = Me.kondomkalan
c = Nz(DLast("[dabtkalan]", "tblasialt"),0)
DoCmd.GoToRecord , , acNewRec
Me.id = Nz(DMax("id", "tblana"), 0) + 1
DoCmd.SetWarnings False
DoCmd.RunSQL "Insert Into [tblasialt] ([tblanaid],[dabtdevreden]) values ('" & Me.id & "'," & c & ")"
DoCmd.SetWarnings True
Me.Donem.SetFocus
Me.hapdevreden = a
Me.kondomdevreden = b
Me.hapdevreden.Locked = True
Me.kondomdevreden.Locked = True
Exit_YeniKayit_Click:
Exit Sub
Err_YeniKayit_Click:
MsgBox ("Yeni Kayıt Oluşturulamadı")
Resume Exit_YeniKayit_Click