Kod içerisinde yer alan DoCmd.RunCommand acCmdRefreshPage satırını kaldırın ve bu satırı KLASOR açılan kutusunun çıkıldığında olayına yazın, deneyin.

Yani ;
KLASOR açılan kutusunun güncelleştirme sonrası olayına

Private Sub KLASOR_AfterUpdate()

Dim numara As String

numara = DCount("[KLASOR]", "YASAL_ISLEM", "KLASOR= '" & Form_YASAL_ISLEM_KAYIT_EKRANI.KLASOR & "'")

If numara = 0 Then

Me.DIZINNU = 1

DoCmd.OpenForm "UYARI_2"

Else

Me.DIZINNU = numara + 1

DoCmd.OpenForm "UYARI_2"

End If

End Sub

Çıkıldığında olayına;

Private Sub KLASOR_Exit(Cancel As Integer)

DoCmd.RunCommand acCmdRefreshPage

End Sub