---

Sub SetValidation()
    Dim dbs As Database, tdf As TableDef
    Set dbs = CurrentDb
    Set tdf = dbs.TableDefs("Зачетная ведомость")
    
    ' --- Ограничение для поля ЗачтеноНезачтено ---
    tdf.Fields("ЗачтеноНезачтено").ValidationRule = "='Зачтено' Or ='Незачтено'"
    tdf.Fields("ЗачтеноНезачтено").ValidationText = "Допустимы только значения: Зачтено или Незачтено"
    
    ' --- Ограничение для поля Оценка (от 1 до 5) ---
    tdf.Fields("Оценка").ValidationRule = ">=1 And <=5"
    tdf.Fields("Оценка").ValidationText = "Оценка должна быть от 1 до 5"
    
    Set dbs = Nothing
    MsgBox "Ограничения на ввод заданы"
End Sub