kodu bence metin12nin çıkış olayına yazmalısınız

Private Sub Metin12_Exit(Cancel As Integer)

Me.Metin12 = Trim(Me.Metin12)

Dim MyForm As Form

Set MyForm = Screen.ActiveForm

DoCmd.SelectObject acForm, MyForm.Name, False

Dim SID As String

Dim stLinkCriteria As String

SID = Me.[KONTEYNER_NO].Value

stLinkCriteria = "[KONTEYNER_NO]=" & "'" & SID & "'"



If DCount("[KONTEYNER_NO]", "Is_Emri", stLinkCriteria) > 0 Then

    kaydet = MsgBox("Girmekte Oldugunuz" _

    & SID & " isim Daha Önce İşlenmiş." _

    & vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation + vbYesNo _

    , "Uyarı!!!")

    If kaydet = vbNo Then DoCmd.CancelEvent ' eğer cevap hayırsa iptal et, bu kod sadece metin12'den çıkılmasını engeller

End If



End Sub