Private Sub хар_ка_Click()
On Error GoTo Err_хар_ка_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "характеристика"                         'присваиваем названию переменной название формы
    stLinkCriteria = "[Код_період]=" & Me![Код_період]    ' код формы период оценивания равен коду формы характеристика
    
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.Close acForm, "період_оцінювання"               ' закрываем форму период оценивания
    
Exit_хар_ка_Click:
    Exit Sub
    
Err_хар_ка_Click:
    MsgBox Err.Description
    Resume Exit_хар_ка_Click
 
End Sub

Private Sub оцінювання_Click()
On Error GoTo Err_оцінювання_Click

    Dim stDocName As String
    Dim stLinkCriteria As String
    stLinkCriteria = "[Код_період]=" & Me![Код_період]
    stDocName = "період_оцінювання" 
    
    DoCmd.OpenForm stDocName, , , stLinkCriteria  
    Me.Refresh          
     
    DoCmd.Close acForm, "характеристика"  

Exit_оцінювання_Click:

    Exit Sub
    
Err_оцінювання_Click:
    MsgBox Err.Description
    Resume Exit_оцінювання_Click
End Sub

Private Sub сл_зап_Click()
Dim formname As String
'Dim filter As Object
Dim id As String
id = Me.[Код_період]
formname = "період_оцінювання"
'Set filter = Me.Recordset.Clone

    If FilterOn = True Then
    Me.FilterOn = False
    DoCmd.GoToRecord , , acGoTo = id

    End If

DoCmd.GoToRecord , , acNext
Me.Refresh


End Sub