MyTetra Share
Делитесь знаниями!
Изменение значения поля (DAO)
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 04 Наборы Записей

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




 
MyTetra Share v.0.52
Яндекс индекс цитирования