Duplicar Registro da Consulta

Bom dia amigos .
Preciso de uma ajudinha ...
Como faço para copiar um registro da Tabela Nomes inteiro com todos os campos para a Mesma Tabela Adicionando como um novo Registro ? como se Fosse Ctrl + c e Ctrl + v com o Código Autonumérico diferentes...

OBS: Esse Registro é Resultado de uma Consulta.
Poderiam por favor me dar uma mãozinha .

estou utilizando ADODB.Connection .. Obrigado

Obrigado.

Olá mfrigerio,

Tente assim:

Em um botão do seu formulário, no evento Click:

Private Sub cmdInserir_Click()

Dim db As DAO.Database
Dim nCod As Integer
nCod = InputBox("Digite o código: ", "Inserindo Dados")


Set db = OpenRecordset("SuaTabela", dbOpenTable)

CurrentDb.Execute " INSERT INTO SuaTabela " _
& "SELECT * " _
& "FROM SuaConsulta WHERE Codigo = " & nCod

db.Close

Set db = Nothing
DoCmd.SetWarnings False

End Sub

boa tarde amigo.
Obrigado por responder-me

mas tentei adaptar seu código e nao obtive sucesso , esta dando erro.
"Erro em tempo de execução '91':
A variável do objeto ou a variável do bloco 'with' não foi definida.

colocarei abaixo o código por completo , se puder me ajudar agradeço.

Nota: Nao estou dentro do VBA do Access e sim dentro do VBA Excel, que por meio de ADODB.Connection eu acesso os dados do access.



Private Sub Gravar_Click()


Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & ActiveWorkbook.Path & "\BANCO-PISA3.MDB;"
.Properties("Jet OLEDB:Database Password") = "123"
.Open
End With

Sql = "SELECT * FROM MOVBANCODADOS WHERE NUM_TANQUE = " & CInt(ComboBox1.Value) & " AND Status = 'ABERTO'" ' aqui eu procuro que é o codigo autonumérico

Set rs = New ADODB.Recordset
rs.Open Sql, cn, adOpenKeyset, adLockOptimistic ' Todos os registros da tabela"

nCod = rs.Fields("Código").Value ' este é o codigo do Retorno da consulta ... o qual quero copiar esta linha inteira para uma nova linha...

CurrentDb.Execute "INSERT INTO MovBancoDados SELECT * FROM " & Sql & " WHERE Codigo = " & nCod

rs.Close
Set rs = Nothing

cn.Close
Set cn = Nothing

End Sub

Bom dia mfrigerio,

O erro está aqui ao meu ver:

Sql = "SELECT * FROM MOVBANCODADOS WHERE NUM_TANQUE = " & CInt(ComboBox1.Value) & " AND Status = 'ABERTO'" ' aqui eu procuro que é o codigo autonumérico

Set rs = New ADODB.Recordset
rs.Open Sql, cn, adOpenKeyset, adLockOptimistic ' Todos os registros da tabela"

nCod = rs.Fields("Código").Value ' este é o codigo do Retorno da consulta ... o qual quero copiar esta linha inteira para uma nova linha...

CurrentDb.Execute "INSERT INTO MovBancoDados SELECT * FROM " & Sql & " WHERE Codigo = " & nCod



O certo seria ao meu ver, excluido a expressão sql anterior esta abaixo. Veja, também, evite palavras reservadas do Access para variáveis, escreva strSQL e, também declare a sua variável no início do escopo de seu código como do tipo String:


"INSERT INTO MovBancoDados SELECT * FROM MOVBANCODADOS WHERE NUM_TANQUE = " & CInt(ComboBox1.Value) & " AND Status = 'ABERTO'"

Boa tarde...
Obrigado pela dica ... estou a tentar e lhe retorno.
Obrigado por enquanto.

Boa noite amigo.

Não consegui fazer funcionar não , embora coloquei em prática seu conselho.

Gostaria de postar aqui meu banco e o arquivo em XLS
Esta Compactado com winrar.
Poderia por favor descompactar em uma pasta e abrir o arquivo xls para poder me ajudar por favor.

Antecipo cordial agradecimentos pela ajuda.

segue o link para download

http://www.grupoambaramaral.com.br/downloads/Exemplo.rar

Olá mfrigerio,

O banco exige senha.

Bom dia ... me perdoe

senha 123

Olá mrefigerio,

Não domino ainda muito bem o ADO. Fiz um exemplo em DAO e espero que possa ajudá-lo.

Boa tarde amigo.

Estou a estudar seu método e código ...
embora não seja com ADO , O que vale é a intenção e disposição em ajudar-me , portanto Agradeço mesmo assim.
assim que estudar postarei a resposta ... mas muito obrigado mesmo novamente good guy.

Bom dia good guy.
Gostaria de Agradecê-lo novamente pela ajuda. Mas não consegui adaptar seu código a minha necessidade.
Muito obrigado pelo empenho e esforço em ajudar-me.

Se possível for um outro amigo que ler este tópico e manjar em ADO e puder ajudar-me antecipo cordial agradecimento.

Obrigado . Good Guy,