Добавление записей (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