çok emin değilim ama şöyle bir sorun var siz galiba ENTER tuşuna basıyorsunuz metin kutusu içindeyken bu tuşa basmak metin kutusundan çıkmak demektir, zaten kaydı da metin kutusundan çıktığı için günceller. siz burada aslında metin kutusundan çıktığında metin kutusuna geri dön gibi bir anlam taşıyor kodu after_update yerine before_update aşağıdaki gibi değiştirerek yazmayı dener misiniz?

Private Sub BARKOD_BeforeUpdate(Cancel As Integer)

AAA = Me.BARKOD

Me.Metin2 = AAA

Cancel = True'<== eklenen satır

End Sub