Uygulamanızdaki işlemleri çözmeye çalıştım.
Yeni kayıt eklerken daha önce kaydedilen bir dönem seçildiğinde uyarı veriyor ve id alanını siliyordu.
Aşağıdaki kodu kullanarak birkaç deneme yaptım, sorun çıkmadı. Umarım yaptığım deneme doğrudur.

Private Sub donem_AfterUpdate()



If donem = Dlookup ("[donem]", "[tblana]", "[donem]=forms![frmanaek]!donem") Then

   MsgBox "Bu ay daha önce Girilmiştir. Lütfen tekrar deneyiniz!", vbCritical, "Dikkat"

    Me.Undo

Else

    If IsNull(Me.id) Then

        Me.id = Nz(DMax("id", "tblana"), 0) + 1

    End If

        Me.ahidifk = "050401"

        Me.ahadisoyadi = "DR.LÜTFİ BOZKURT"

        Me.aseadisoyadi = "HATEM LAÇİN"

        Me.aseunvani = "ASE"

        Me.ailesagmerkezi = "GÜMÜŞHACIKÖY"

        Me.tarih = Date

End If

End Sub