[Resolvido]Importar dados de uma tabela para outra

Olá a todos,

Preciso de ajuda com código para o seguinte

Tenho uma tabela importastock com 2 campos (número)
Codmp
Stock
E pretendo criar um registro na tabela detalhefichprep  
Com os campos codfichorep, codmp e quantidade (número)

Em que codfichprep = 354 para todos os registos da tabela codmp e respetiva quantidade= stock

Obrigado

Olá! Dê uma pesquisada aqui no Site, exitem inúmeros exemplos distintos sobre sua dúvida! Eu mesmo já devo ter postado uns 3 na sala de repositórios.

Boas,

Estava a pensar em algo do género:

 

Declare @Campos varchar(8000)

Set @Campos = Campo1,Campo2,Campo3, etc

Exec('insert into tabela (' + @campos+ ') select ' + @campos + 'from tabela2'

 Mas como faço para o campo 1 ser sempre 9999, sendo que a tabela de origem só tem os campos 2 e 3?

Obrigado

Boas!

já está quase resolvido



Private Sub ResetStock_Click()

If MsgBox("Confirma o reset dos stocks ?" & vbCr & NomeManip, vbYesNo + vbDefaultButton2) = vbYes Then

DoCmd.RunSQL "INSERT INTO DetalheFichPrep (CodMP,Quantidade) SELECT CodMP,Quantidade FROM ImportaStock"

End If

End Sub

Só falta inserir na tabela de destino (DetalheFichPrep), no campo CodFichPrep (que não está na tabela de origem) um valor fixo 9999

Agradeço a Vossa ajuda.

Olá! Se Utilizar o método RecordSet poderá fixar esse Valor no Campo...

Mas se caso esse valor nunca mude, seja sempre isso... Pode fixar direto na tabela, na propriedade do Campo, Valor Padrão, coloque esse valor... Assim, qnd nao for informado (no caso da importação) ele receberá esse valor padrão.

Boas!

O valor desse campo muda sempre; apenas nesta situação é que será um valor fixo.

Quanto ao recordset, não sei bem como usar....

Entretanto, aparece uma mensagem de erro que monstro em anexo, mas se clicar em sim, faz o que pretendo, no entanto, preferia que essa mensagem não surgisse.


Mais, sempre cria uma nova tabela: ExportaStock$_Importa erros ,  com
Tenho isto:

Private Sub ResetStocks_Click()

If MsgBox("Deseja excluir TODOS os registros da tabela Importa Stocks ?" & vbCr & NomeManip, vbYesNo + vbDefaultButton2) = vbYes Then

CurrentDb.Execute "DELETE FROM ImportaStock;"

MsgBox "Todos os registros foram excluidos...", vbInformation, "Aviso"

End If

   stDocName = "ResetStocksMacro"
   DoCmd.RunMacro stDocName

If MsgBox("Confirma o reset dos stocks ?" & vbCr & NomeManip, vbYesNo + vbDefaultButton2) = vbYes Then
                 
DoCmd.RunSQL "INSERT INTO DetalheFichPrep (CodMP,Quantidade) SELECT CodMP,Quantidade FROM ImportaStock"

End If

Set Rst = Nothing

MsgBox "Reset dos Stocks concluido", vbInformation, "Aviso"

DoCmd.Close
   stDocName = "Manut"
   
   DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub





Mais uma vez,

Obrigado

A mensagem refere-se a dois registros que violaram as regras de validação de alguma campo... Na tabela ExportaStock$_Importa erros terá o Nome do Campo e o Valor que não foi importado. Verifique o que tem de errado...

Veja nesse Vídeo como é feito a utilização de RecordSet:
https://www.maximoaccess.com/t30841-entrada-saida-de-estoque-no-clique-de-um-botao

Recomendo dar uma lida nesses Tópicos, todos sobre Importação de Dados do Excel.
https://www.maximoaccess.com/t29052-importar-do-excel-atraves-de-recordset-informando-a-coluna-e-nao-nome-dos-campos-excel?highlight=importar
https://www.maximoaccess.com/t27311-importar-dados-planilha-excel-e-desmembrar-os-dados-em-duas-tabelas-tbpessoa-e-tbendereco?highlight=importar
Esse é mais Completo:
https://www.maximoaccess.com/t26911-importar-planilha-excel-informando-a-tabela-de-destino-a-folha-sheets-de-origem-e-localizando-o-documento-excel?highlight=importar


Veja aqui como devem ser postado os Anexos no Fórum...
https://www.maximoaccess.com/t32003-como-postar-anexos-e-imagens-no-site-maximoaccess-com

Obrigado Fábio!

Vou ver

Boa tarde, Pedro
Em vez de
DoCmd.RunSQL "INSERT INTO DetalheFichPrep (CodMP,Quantidade) SELECT CodMP,Quantidade FROM ImportaStock"

Utiliza
DoCmd.RunSQL "INSERT INTO DetalheFichPrep (CodMP,Quantidade,CodFichPrep ) SELECT CodMP,Quantidade,'9999' FROM ImportaStock"

Cumprimentos,

Grande Alexandre!
Faz exatamente que pretendo, apesar de ainda dar o erro ao importar a tabela.
Já está quase

Boa tarde, Pedro
Tenta
DoCmd.RunSQL "INSERT INTO DetalheFichPrep (CodMP,Quantidade,CodFichPrep ) SELECT CodMP,Quantidade,9999 FROM ImportaStock"

Boas!

Também funciona bem Alexandre.

O problema afinal não está no código, mas sim na macro que mando executar no início do comando


   stDocName = "ResetStocksMacro"
   DoCmd.RunMacro stDocName

Que importa os dados de uma folha do excell para a tabela importastock.

Boa noite Pedro,
Já não tenho a bd para verificar
Disponibiliza a bd e informa o que não faz e devia fazer
Abraço

Boas Alexandre

Anexo parte da BD


Entretanto, aparece uma mensagem de erro que anexei atrás mas, se clicar em sim, faz o que pretendo, no entanto, preferia que essa mensagem não surgisse.

Mais, sempre cria uma nova tabela: ExportaStock$_Importa erros

Boa tarde, Pedro
Não enviaste o ficheiro de importação
Descreve qual o problema na importação que é preciso alterar
Em vez de teres macro para a importação, pensa em criar rotina de importação através do VBA. Podes ajustar em cada registo as consições que pretendes
Abraço,

Viva Alexandre

Anexo a folha de cálculo .


A macro importa todos os dados para a tabela importastock com os mesmos nomes.

Obrigado

Boa noite, Pedro
Revê os dados no Excel
Ordenei a 2ª coluna com expansão de dados e a 1ª linha ficou dados em branco (serão dados nulos no ficheiro que não respeitam as regras dos campos na importação). Eliminei essa linha em branco e importei sem erros

Boas!

Ainda não sei como fica essa linha em branco pois essa folha do excel é resultado de uma exportação de uma BD.

De qualquer modo, apesar de não estar perfeito, já faz o que pretendo,

Obrigado pela ajuda!

Abraços

Obrigado