---

Sub Zadacha2()
    Dim dbs As Database, rst As Recordset
    Set dbs = CurrentDb
    
    ' Для Seek нужен тип Table и индекс
    Set rst = dbs.OpenRecordset("Студенты", dbOpenTable)
    rst.Index = "PrimaryKey"      ' ищем по первичному ключу
    
    ' Ищем студента с номером зачётки = 1
    rst.Seek "=", 1
    
    If rst.NoMatch Then
        MsgBox "Студент не найден"
        rst.Close
        Set dbs = Nothing
        Exit Sub
    End If
    
    ' --- Корректируем поля (переключатель) ---
    rst.Edit
    
    ' МестоРождения: Москва <-> Санкт-Петербург
    If rst!МестоРождения = "Москва" Then
        rst!МестоРождения = "Санкт-Петербург"
    Else
        rst!МестоРождения = "Москва"
    End If
    
    ' НаличиеДетей: логическое, инвертируем
    rst!НаличиеДетей = Not rst!НаличиеДетей
    
    ' НаличиеСтипендии: логическое, инвертируем
    rst!НаличиеСтепендии = Not rst!НаличиеСтепендии
    
    rst.Update
    rst.Close
    Set dbs = Nothing
    
    MsgBox "Задача 2 выполнена. Запись студента №1 изменена."
End Sub