Método Recordset.AddNew (DAO)

Aplica-se ao: Access 2013, Office 2013

Cria um novo registro para um objeto do Conjunto de Registro atualizável.

Sintaxe

expressão . AddNew

expressão Uma variável que representa um objeto do Conjunto de registros.

Comentários

Use o método AddNew para criar e adicionar um novo registro no objeto Recordset com o nome do conjunto de registros. Este método define os campos como os valores padrão e, se nenhum valor padrão for especificado, ele definirá os campos como Nulo (os valores padrão especificados para um Recordset do tipo tabela).

Depois de modificar o novo registro, use o método Update para salvar as alterações e adicionar o registro ao Recordset. Não haverá alterações no banco de dados até você usar o método Update.

Observação

[!OBSERVAçãO] Se você emitir um AddNew e então executar qualquer operação que mova para outro registro, mas sem usar Update, suas alterações serão perdidas sem aviso. Além disso, se você fechar o Recordset ou encerrar o procedimento que declara o Recordset ou seu objeto Database, o novo registro será descartado sem aviso.

Observação

[!OBSERVAçãO] Quando você usa AddNew em um espaço de trabalho do Microsoft Access e o mecanismo de banco de dados tem que criar uma nova página para o registro atual, o bloqueio de página é pessimista. Se o novo registro se ajustar a uma página existente, o bloqueio de página será otimista.

Se você não tiver se movido para o último registro do seu Recordset, os registros adicionados a tabelas base por outros processos poderão ser incluídos caso tenham sido posicionados além do registro atual. No entanto, se você adicionar um registro ao seu próprio Recordset, o registro ficará visível no Recordset e será incluído na tabela subjacente onde se tornará visível para todos os objetos novos do Recordset.

A posição do novo registro depende do tipo de Recordset.

• Em um objeto Recordset do tipo dynaset, os registros são inseridos no final do Recordset, independentemente de qualquer regra de classificação ou de ordenação em vigor quando o Recordset tiver sido aberto.

• Em um objeto Recordset do tipo tabela cuja propriedade Index tenha sido definida, os registros serão retornados no local apropriado na ordem de classificação. Se você não tiver definido a propriedade Index, os novos registros serão retornados no final do Recordset.

O registro que era o atual antes de você usar o AddNew continuará sendo o atual. Se desejar tornar o novo registro atual, você poderá definir a propriedade Bookmark para o indicador identificado pela configuração da propriedade LastModified.

Observação

[!OBSERVAçãO] Para adicionar, editar ou excluir um registro, deverá haver um índice único no registro na fonte de dados subjacente. Caso contrário, ocorrerá um erro "Permissão negada" na chamada ao método AddNew, Delete ou Edit em um espaço de trabalho do Microsoft Access.

Exemplo

Este exemplo usa o método AddNew para criar um novo registro com o nome especificado. A função AddName é necessária para executar esse procedimento.

    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