KLASOR adlı açılan kutunuzun güncelleştirme sonrası olayındaki kodu aşağıdaki şekilde değiştirip denermisiniz lütfen.

Private Sub KLASOR_AfterUpdate()

DoCmd.RunCommand acCmdRefreshPage

Dim numara As String

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



Me.DIZINNU = numara + 1

DoCmd.OpenForm "UYARI_2"

End Sub