[Resolvido]Ajuda com SQL INSERT INTO

wellingtoneo 26/8/2013, 00:12

wellingtoneo: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 294
Registrado : 30/07/2012

Mensagem nº1

Ajuda com SQL INSERT INTO

Mensagem wellingtoneo 26/8/2013, 00:12

Galera, boa noite!

Alguém pode me ajudar com o comando abaixo? Não sei o que estou fazendo de errado.

strconsulta = "INSERT INTO tblTransferidosDemitidos * SELECT (registro, admissao, nome, cresp, linha, turno, jornada, mdo, relogio, situacao, " & Me.txtMotivoDesvio
strconsulta = strconsulta & ", #" & Me.txtdatatransf & "#, ute, cargo, CONTAR, contrato, transferido_para, observacao, rua, numero, complemento, bairro, cidade, tel, celular, [tel contato], cep, onibus)"
strconsulta = strconsulta & " From tblPrincipalColaboradores Where Registro =" & Me.cboPesquisa
DoCmd.RunSQL "strconsulta"

Valeu pessoal! Obrigado!

**Alexandre Neves** 26/8/2013, 12:33

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009

Mensagem nº2

Re: [Resolvido]Ajuda com SQL INSERT INTO

Mensagem Alexandre Neves 26/8/2013, 12:33

Boa tarde,
Não sei o que pretende, nem o erro que aparece, nem se nada acontece. Devia ser mais detalhado.
Será assim?
strconsulta = "INSERT INTO tblTransferidosDemitidos SELECT (registro, admissao, nome, cresp, linha, turno, jornada, mdo, relogio, situacao, " & Me.txtMotivoDesvio
strconsulta = strconsulta & ", #" & Me.txtdatatransf & "#, ute, cargo, CONTAR, contrato, transferido_para, observacao, rua, numero, complemento, bairro, cidade, tel, celular, [tel contato], cep, onibus)"
strconsulta = strconsulta & " From tblPrincipalColaboradores Where Registro =" & Me.cboPesquisa
DoCmd.RunSQL "strconsulta"

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

wellingtoneo 26/8/2013, 14:16

wellingtoneo

wellingtoneo: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 294
Registrado : 30/07/2012

Mensagem nº3

Re: [Resolvido]Ajuda com SQL INSERT INTO

Mensagem wellingtoneo 26/8/2013, 14:16

Não funcionou!

Eu quero passar os dados atuais de um colaborador para a tblDemitidosTransferidos... Ou seja, na minha tblPrincipalColaboradores se encontra os dados que eu quero que sejam repassados para a tblDemitidosTransferidos. Vou anexar a imagem do erro que acontece.

**Alexandre Neves** 26/8/2013, 15:18

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009

Mensagem nº4

Re: [Resolvido]Ajuda com SQL INSERT INTO

Mensagem Alexandre Neves 26/8/2013, 15:18

Será assim?
strconsulta = "INSERT INTO tblTransferidosDemitidos SELECT registro, admissao, nome, cresp, linha, turno, jornada, mdo, relogio, situacao, " & Me.txtMotivoDesvio
strconsulta = strconsulta & ", #" & Me.txtdatatransf & "#, ute, cargo, CONTAR, contrato, transferido_para, observacao, rua, numero, complemento, bairro, cidade, tel, celular, [tel contato], cep, onibus"
strconsulta = strconsulta & " From tblPrincipalColaboradores Where Registro =" & Me.cboPesquisa
DoCmd.RunSQL "strconsulta"

Se não funcionar, disponibilize bd para verificação

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

wellingtoneo 26/8/2013, 17:22

wellingtoneo

wellingtoneo: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 294
Registrado : 30/07/2012

Mensagem nº5

Re: [Resolvido]Ajuda com SQL INSERT INTO

Mensagem wellingtoneo 26/8/2013, 17:22

Ai está... demorei um pouco pois tive que deixar somente o necessário para poder realizar o que desejo...

Anexos

bdteste.zip: Você não tem permissão para fazer download dos arquivos anexados.; (239 Kb) Baixado 18 vez(es)

**Alexandre Neves** 26/8/2013, 17:43

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009

Mensagem nº6

Re: [Resolvido]Ajuda com SQL INSERT INTO

Mensagem Alexandre Neves 26/8/2013, 17:43

Veja
strconsulta = "SELECT registro, admissao, nome, cresp, linha, turno, jornada, mdo, relogio, situacao, " & Me.txtMotivoDesvio
strconsulta = strconsulta & " as MOTIVO_DESVIADO_FUNCAO, #" & Me.txtdatatransf & "# as Data_alteração, ute, cargo, CONTAR, contrato, transferido_para, observacao, rua, numero, complemento, bairro, cidade, tel, celular, [tel contato], cep, onibus"
strconsulta = strconsulta & " INTO tblTransferidosDemitidos From tblPrincipalColaboradores Where Registro =" & Me.cboPesquisa
DoCmd.RunSQL strconsulta

Mas repare:
campo observacao. Onde vai buscar?
campo transferido_para não é igual nas duas tabelas

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo