Метод Recordset.AddNew (DAO)Recordset.AddNew method (DAO)

Область применения: Access 2013, Office 2013Applies to: Access 2013, Office 2013

Создает новую запись для обновляемого объекта Recordset.Creates a new record for an updatable Recordset object.

СинтаксисSyntax

expression .AddNewexpression .AddNew

expression — переменная, которая представляет объект Recordset.expression A variable that represents a Recordset object.

ПримечанияRemarks

Метод AddNew используется для создания и добавления новой записи в объекте Recordset с именем набора записей.Use the AddNew method to create and add a new record in the Recordset object named by recordset. Этот метод задает значения по умолчанию для полей, а если значения по умолчанию не указаны, он задает для полей значение Null (значения по умолчанию, указанные для Recordset табличного типа).This method sets the fields to default values, and if no default values are specified, it sets the fields to Null (the default values specified for a table-type Recordset).

Изменив новую запись, используйте метод Update, чтобы сохранить изменения и добавить запись в объект Recordset.After you modify the new record, use the Update method to save the changes and add the record to the Recordset. В базу данных не будут внесены никакие изменения, пока вы не вызовете метод Update.No changes occur in the database until you use the Update method.

Примечание

Если вызвать метод AddNew, а затем выполнить какую-либо операцию, переходящую к другой записи, но без использования метода Update, то изменения будут потеряны без предупреждения.If you issue an AddNew and then perform any operation that moves to another record, but without using Update, your changes are lost without warning. Кроме того, если закрыть объект Recordset или завершить процедуру, которая объявляет объект Recordset или его объект Database, то новая запись удаляется без предупреждения.In addition, if you close the Recordset or end the procedure that declares the Recordset or its Database object, the new record is discarded without warning.

Примечание

Если вы используете метод AddNew в рабочей области Microsoft Access, а ядру СУБД нужно создать новую страницу для хранения текущей записи, то используется пессимистическая блокировка страницы.When you use AddNew in a Microsoft Access workspace and the database engine has to create a new page to hold the current record, page locking is pessimistic. Если новую запись можно разместить на имеющейся странице, то используется оптимистическая блокировка.If the new record fits in an existing page, page locking is optimistic.

Если вы не перешли к последней записи в объекте Recordset, то записи, добавленные к базовым таблицам другими процессами, могут быть включены, если они находятся за пределами текущей записи.If you haven't moved to the last record of your Recordset, records added to base tables by other processes may be included if they are positioned beyond the current record. Однако если добавить запись к собственному объекту Recordset, то запись будет видна в объекте Recordset и включена в базовую таблицу, где она становится видна всем новым объектам Recordset.If you add a record to your own Recordset, however, the record is visible in the Recordset and included in the underlying table where it becomes visible to any new Recordset objects.

Расположение новой записи зависит от типа объекта Recordset:The position of the new record depends on the type of Recordset:

  • Если объект Recordset является динамическим подмножеством данных, то записи вставляются в конце объекта Recordset независимо от правил сортировки и упорядочения, которые действовали во время открытия объекта Recordset.In a dynaset-type Recordset object, records are inserted at the end of the Recordset, regardless of any sorting or ordering rules that were in effect when the Recordset was opened.

  • В табличном объекте Recordset, для которого задано свойство Index, записи возвращаются в надлежащем месте в порядке сортировки.In a table-type Recordset object whose Index property has been set, records are returned in their proper place in the sort order. Если свойство Index не задано, новые записи возвращаются в конце объекта Recordset.If you haven't set the Index property, new records are returned at the end of the Recordset.

Запись, которая была текущей до использования метода AddNew, остается текущей.The record that was current before you used AddNew remains current. Если вам нужно сделать новую запись текущей, вы можете указать в свойстве Bookmark закладку, определяемую значением свойства LastModified.If you want to make the new record current, you can set the Bookmark property to the bookmark identified by the LastModified property setting.

Примечание

Чтобы запись можно было добавить, изменить или удалить, в базовом источнике данных должен быть указан ее уникальный индекс.To add, edit, or delete a record, there must be a unique index on the record in the underlying data source. Если это не так, при вызове метода AddNew, Delete или Edit возникнет ошибка "Отказано в разрешении" в рабочей области Microsoft Access.If not, a "Permission denied" error will occur on the AddNew, Delete, or Edit method call in a Microsoft Access workspace.

ПримерExample

В этом примере используется метод AddNew, чтобы создать запись с указанным именем.This example uses the AddNew method to create a new record with the specified name. Функция AddName необходима для запуска этой процедуры.The AddName function is required for this procedure to run.

    Sub AddNewX() 
     
     Dim dbsNorthwind As Database 
     Dim rstEmployees As Recordset 
     Dim strFirstName As String 
     Dim strLastName As String 
     
     Set dbsNorthwind = OpenDatabase("Northwind.mdb") 
     Set rstEmployees = _ 
     dbsNorthwind.OpenRecordset("Employees", dbOpenDynaset) 
     
     ' Get data from the user. 
     strFirstName = Trim(InputBox( _ 
     "Enter first name:")) 
     strLastName = Trim(InputBox( _ 
     "Enter last name:")) 
     
     ' Proceed only if the user actually entered something 
     ' for both the first and last names. 
     If strFirstName <> "" and strLastName <> "" Then 
     
     ' Call the function that adds the record. 
     AddName rstEmployees, strFirstName, strLastName 
     
     ' Show the newly added data. 
     With rstEmployees 
     Debug.Print "New record: " & !FirstName & _ 
     " " & !LastName 
     ' Delete new record because this is a demonstration. 
     .Delete 
     End With 
     
     Else 
     Debug.Print _ 
     "You must input a string for first and last name!" 
     End If 
     
     rstEmployees.Close 
     dbsNorthwind.Close 
     
    End Sub 
     
    Function AddName(rstTemp As Recordset, _ 
     strFirst As String, strLast As String) 
     
     ' Adds a new record to a Recordset using the data passed 
     ' by the calling procedure. The new record is then made 
     ' the current record. 
     With rstTemp 
     .AddNew 
     !FirstName = strFirst 
     !LastName = strLast 
     .Update 
     .Bookmark = .LastModified 
     End With 
     
    End Function