[Resolvido]Erro insert into em uma tabela com select de outra

Boa noite pessoal, estou com um problema, utilizei o comando sql em outro form e funcionou mas ao modificar o processo do sistema o comando foi para outro form. Preciso selecionar uns valores de uma tabela compra_itens e inserir na tabela estoque, utilizei o comando abaixo:

currentdb.execute "insert into estoque (cod_prod, descricao_prod, numero_serie_prod, fabricante_prod, categoria_prod, qtd_prod, unid_prod, valor_unid_prod, fornecedor_prod, data_compra_prod, num_nf) values (select (cod_prod, descricao_prod, numero_serie_prod, fabricante_prod, categoria_prod, qtd_prod, unidade_prod, valor_unid_prod, fornecedor_prod, data_compra, nf_prod) from compra_itens where [codigo_compra]= " & me.txtcod &")"

Sempre fica dando erro de sintaxe na select.

Podem me ajudar com esse problema?

Att.

Polonio

Polonio, creio que o erro está sendo ocasionado por este trecho do seu código "... values (select (cod_prod, descricao_prod ..." ao utilizar o keyword VALUES e passar os campos do select como se fossem parametros, por utilizar parenteses.

tente isso:

currentdb.execute "INSERT INTO estoque
(
cod_prod,
descricao_prod,
numero_serie_prod,
fabricante_prod,
categoria_prod,
qtd_prod,
unid_prod,
valor_unid_prod,
fornecedor_prod,
data_compra_prod,
num_nf
)

SELECT
cod_prod,
descricao_prod,
numero_serie_prod,
fabricante_prod,
categoria_prod,
qtd_prod,
unidade_prod,
valor_unid_prod,
fornecedor_prod,
data_compra,
nf_prod
FROM compra_itens
WHERE [codigo_compra]= " & me.txtcod

Phillipp.moreira, obrigado, mas conforme voce me orientou, retirei o value e o parentes entre o select e o final da linha e deixei o parentes somente nos campos do select e apresentou o erro:

Erro em tempo de execução: 3075
Erro de sintaxe (vírgula) na expressão de consulta '(cod_prod, descricao_prod, numero_serie_prod, fabricante_prod, categoria_prod, qtd_prod, unidade_prod, valor_unid_prod, fornecedor_prod, data_compra, nf_prod)'.

Grato.

quando eu uso insert junto com select eu faço assim, v c t ajuda

Código:


Dim strSQL As String

strSQL = "INSERT INTO TabelaDestino ( nmCampoDestino )" & _
         "SELECT TabelaOrigem.nmCampoOrigem " & _
         "FROM TabelaOrigem " & _
         "WHERE TabelaOrigem.nmCampoOrigem = '" & me.nmCampoFormulario & "'"

DoCmd.RunSQL strSQL


ai vc tenta adaptar ao seu codigo.
boa sorte

Aconteceu o mesmo erro que informei, estou usando o Access 2010. O comando que utilizo funcionava em outra tela, mas como tive de adaptar o sistema ao processo, precisei inserir o codigo em outra tela onde não funcionou mais.

Verifica se esse me.txtcod Esta no formulário com esse nome e se esta la com o Formato Numero! Se não tiver, coloque com Numero e faça um teste!!!

Pois salvo Engano, qnd é Texto fica assim: WHERE [codigo_compra]= '" & me.txtcod & "' e Qnd é Numero Fica assim: WHERE [codigo_compra]= " & me.txtcod & "

polonio, vc esta usando exatamente essa consulta?

currentdb.execute "INSERT INTO estoque
(
cod_prod,
descricao_prod,
numero_serie_prod,
fabricante_prod,
categoria_prod,
qtd_prod,
unid_prod,
valor_unid_prod,
fornecedor_prod,
data_compra_prod,
num_nf
)

SELECT
cod_prod,
descricao_prod,
numero_serie_prod,
fabricante_prod,
categoria_prod,
qtd_prod,
unidade_prod,
valor_unid_prod,
fornecedor_prod,
data_compra,
nf_prod
FROM compra_itens
WHERE [codigo_compra]= " & me.txtcod

caso for, vai dar erro mesmo

repare na clausula where, o campo informado(codigo_compra) não existe na tabela "Compra_Itens".
imagino q se vc criar o campo que está faltando nao vai dar erro.

Fabiopaes, verifiquei se é texto e número. Eu criei uma caixa de texto receber esse valou de uma lista e eu comparo junto a tabela e está certo o formato, na tabela está como número, na caixa de texto coloquei o formato de número tb e mantive o sql para " & me.txtcod & " e da o mesmo erro.

ronaldojr1, o campo existe na tabela compra_itens.

Mas o problema continua

Grato pela atenção de todos.

Faca um teste, mandando rodar sem a condicao Where, daee se passar sem erros sabemos onde esta o problema... MAS RODE EM BD TESTE TA.

Não seria melhor anexar aqui parte do seu banco para o ajudarmos ?

É que parece coisa simples, mas sem testar-mos torna-se dificil.

Pessoal, segue anexo parte do sistema.

Aqui deu certo assim:

Código:


CurrentDb.Execute "insert into estoque ( Cod_Prod,descricao_prod, numero_serie_prod, fabricante_prod, categoria_prod, qtd_prod, unid_prod, valor_unid_prod, fornecedor_prod, data_compra_prod, num_nf )" & _
"select compra_itens.cod_prod, compra_itens.descricao_prod, compra_itens.numero_serie_prod, compra_itens.fabricante_prod, compra_itens.categoria_prod, compra_itens.qtd_prod, compra_itens.unidade_prod," & _
"compra_itens.valor_unid_prod, compra_itens.fornecedor_prod, compra_itens.data_compra, compra_itens.nf_prod FROM compra_itens WHERE codigo_compra = " & Me.txtCodCompra & ""



Me.txtCodCompra é o Campo que mostra o Codigo da compra no formulario, esta como Numero.

fabio funcionou conforme voce respondeu, agradeço pela atenção de todos.

Bacana que deu Certo...