Изменение значения поля (DAO)

Примечание:
    Если вы используете имена полей с пробелами (что не рекомендуется) то они должны обрамляться квадратными скобками  - [Имя Поля]

' Изменяет значение записи с номером 101
Dim strSQL As String
Dim rst As DAO.Recordset
Dim lngID As Long

    lngID = 101 'Задаём номер записи
'Строим набор с условием отбора (exRecordID = 101)
    strSQL = "SELECT * FROM tblExample WHERE exRecordID = " & lngID
    Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
    If rst.EOF = False Then
        With rst
            .Edit
            !exName = "ИЗМЕНЁННОЕ значение Записи №: " & Format(lngID, "0000") & "!"
            !exChanged = Now()
            .Update
        End With
    End If
    On Error Resume Next
    rst.Close
    Set rst = Nothing