Изменение значения поля (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