Método Recordset2.AddNew (DAO)

Aplica-se ao: Access 2013, Office 2013

Cria um novo registro para um objeto Recordset2 atualizável.

Sintaxe

expressão . AddNew

Expressão Uma variável que representa um objeto Recordset2 .

Comentários

Use o método AddNew para criar e adicionar um novo registro ao objeto Recordset2 denominado por recordset. Este método define valores padrão para os campos e, se nenhum valor padrão estiver especificado, ele definirá os campos como nulos (os valores padrão especificados para um Recordset2 do tipo tabela).

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

Observação

[!OBSERVAçãO] Se você emitir um AddNew e, em seguida, 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 Recordset2 ou concluir o procedimento que declara o Recordset2 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 couber em uma página existente, o bloqueio de página será otimista.

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

A posição do novo registro depende do tipo do Recordset2:

• Em um objeto Recordset2 do tipo dynaset, registros são inseridos no fim do Recordset, independentemente de qualquer regra de classificação ou ordenação aplicada quando o Recordset foi aberto.

• Em um objeto Recordset2 do tipo tabela cuja propriedade Index tiver sido definida, os registros serão retornados em seu próprio lugar na ordem de classificação. Se você não tiver definido a propriedade Index, novos registros serão retornados no fim 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 Recordset2 
     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 Recordset2, _ 
     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