donem açılan kutusunun güncelleştirme öncesinde olayına yazdığın kodu silip güncelleştirme sonrasındaki olayına aşağıdaki kodu ekleyip deneyebilir misin?
If donem = Dlookup ("[donem]", "[tblana]", "[donem]=forms![frmanaek]!donem") Then
MsgBox "Bu ay daha önce Girilmiştir. Lütfen tekrar deneyiniz!", vbCritical, "Dikkat"
DoCmd.RunCommand acCmdUndo
Else
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