Merhaba,

Sorunuzun içeriğinde form isimlerini belirtmediğiniz için bahsi geçen işlem "KAYIT GİRİŞ DENEME" isimli forma yapıldı.

Sizin bu formdaki mhkm isimli metin kutusunun çıkıldığında olayındaki kodda

Dim stLinkCriteria As String

kodunun hemen altına

DoCmd.RunCommand acCmdSaveRecord

kodu eklemeniz gerekiyor.

Bu formu test ediniz, çalışıyorsa kodu veri girişi yaptığınız forma ekleyiniz.

Private Sub mhkm_Exit(Cancel As Integer)

On Error GoTo Err_mhkm_Click



    Dim stDocName As String

    Dim stLinkCriteria As String



    DoCmd.RunCommand acCmdSaveRecord



    stDocName = "01_anatablo"

    

    stLinkCriteria = "[Sırano]=" & Me![Sırano]

    DoCmd.OpenForm stDocName, , , stLinkCriteria

    

    Forms![01_anatablo]!mtn_mudafi = Me.Müdafi

    Forms![01_anatablo]!mtn_dosyano = Me.Dosyano

    Forms![01_anatablo]!mtn_mahkeme = Me.Mahkemesavcilik

    

Exit_mhkm_Click:

    Exit Sub



Err_mhkm_Click:

    MsgBox Err.Description

    Resume Exit_mhkm_Click

    

End Sub