MyTetra Share
Делитесь знаниями!
Добавление записей (DAO)
Время создания: 16.03.2019 23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 04 Наборы Записей
Запись: xintrea/mytetra_db_adgaver_new/master/base/1531971773l9z4bcu474/text.html на raw.githubusercontent.com

Добавление записей (DAO)

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

'Добавляет 1000 новых записей в таблицу "tblExample"

Dim v As Variant

Dim lngRecID As Long

Dim rst As Recordset

Dim i As Integer

v = DMax("exRecordID", "tblExample") 'MAX значение ключевого поля

If IsNull(v) Then v = 0 'На случай если запись первая

lngRecID = CLng(v) + 1 'Значение ключ. поля новой записи

Set rst = CurrentDb.OpenRecordset("tblExample", dbOpenDynaset)

For i = 1 To 1000

With rst

.AddNew

'Заполнение полей значениями

!exRecordID = lngRecID

!exName = "Значение Записи №: " & Format(lngRecID, "0000")

.Update

End With

lngRecID = lngRecID + 1

Next i


On Error Resume Next

rst.Close

Set rst = Nothing





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