[Resolvido]Copiar todos os dados do registo anterior para um novo registo

Este código abaixo duplicava todos os campos para um novo registo.
Tentei utilizá-lo no novo projecto e deu erro na 3ª linha
Estou a utilizar o Office 2007.

Código:

  'DoCmd.GoToRecord , , acFirst
    DoCmd.GoToRecord , , acNewRec
    AutoFillNewRecord Me
Exit_BtnOrcamento_Click:
    Exit Sub
Err_BtnOrcamento_Click:
    MsgBox Err.Description
    Resume Exit_BtnOrcamento_Click

Luís Antunes

Esqueci-me do módulo

Código:

Option Compare Database
Option Explicit

Function AutoFillNewRecord(F As Form)
' Função obtida no artigo 136127 - ACC: Fill Record w/ Data
' from Prev. Record Automatically (7.0/97), da Microsoft
' Knowledge Base:
' http://support.microsoft.com/?id=136127
 
 'Modificado por JR - accessjr@bol.com.br
 
    Dim rs As Recordset, C As Control
    Dim FillFields As String, FillAllFields As Integer
   
    On Error Resume Next
   
    'Sai se não for um novo registro.
    'If Not F.NewRecord Then Exit Function
   
    'Vai para o último registro do recordset do formulário.
    Set rs = F.RecordsetClone
    rs.MoveLast
   
    'Sai se não puder mover para o último registro (sem registros).
    If Err <> 0 Then Exit Function
   
    'Obtém a lista de campos para o autopreenchimento.
    FillFields = ";" & F![txt212] & ";"

    ' Se não houver o campo com a lista, então mude
    ' o flag para TODOS. Todos os campos serão preenchidos.
    FillAllFields = Err <> 0
   
    F.Painting = False
   
    'Loop por cada campo do formulário.
    For Each C In F
        If C.ControlType = acTextBox Then
        'Preenche o campo se o flag for True Ou se o campo estiver
        ' na lista da variável FillFields.
            If FillAllFields Or InStr(FillFields, ";" & (C.Name) & ";") > 0 Then
  If C.Name <> "txt212" Then
      If C.Name = "txt212" Then
            C.Name = rs(C.ControlSource) + 1
      Else
            C = rs(C.ControlSource)
         
      End If
    End If
  End If
End If

    Next
   
    F.Painting = True
    Set rs = Nothing
    Set C = Nothing
   
End Function


Luís Antunes

Consegui pôr o código a funcionar vou enviar, parte, do projecto pede ser que sirva a alguém.

Luís Antunes