Не обновляются данные из одной формы в другую

Private Sub Form_Activate() ' Событие: Активация формы ...
Const sParentFormName$ = "Самовольщики 2026" ' Имя родительской формы
' Проверка что родительская форма загружена:
    If CurrentProject.AllForms(sParentFormName).IsLoaded Then
        ' Проверка что не в режиме редакции:
        If CurrentProject.AllForms(sParentFormName).CurrentView > 0 Then '0 = Design view
            ' Загружена и не в режиме редакции:
            If Forms(sParentFormName).Dirty Then      ' Данные изменены
                Forms(sParentFormName).Dirty = False  ' Сохраняем изменения в родительской
                Me.Refresh ' Обновление данных текущей по изменённым родительской
            End If
        End If
    End If
End Sub

Private Sub Form_Activate() ' Событие: Активация формы ...
Dim sVal As String
Const sParentFormName$ = "Самовольщики 2026" ' Имя родительской формы
' Проверка что родительская форма загружена:
    If CurrentProject.AllForms(sParentFormName).IsLoaded Then
        ' Проверка что не в режиме редакции:
        If CurrentProject.AllForms(sParentFormName).CurrentView = 0 Then '0 = Design view
            Exit Sub
        End If
    Else
        Exit Sub
    End If
 
' Родительская Загружена и не в режиме редакции:
    If Forms(sParentFormName).Dirty Then      ' Данные изменены
        Forms(sParentFormName).Dirty = False  ' Сохраняем изменения в родительской
    End If
    
    sVal = "Код = " & Forms(sParentFormName)!Код
    Debug.Print sVal
    If Len(sVal) < 7 Then
        MsgBox "Нет активной записи в  главной!", vbExclamation, "Ошибка!"
    Else
        ' Открытие активной (новой) записи
        Me.Painting = False
        Me.Filter = sVal
        Me.FilterOn = True
        Me.Refresh
        Me.Painting = True
    End If
End Sub