[Resolvido]Insert Into em outra tabela com condição..

XPTOS 11/6/2015, 00:58

XPTOS: Super Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 601
Registrado : 20/01/2014

Mensagem nº1

[Resolvido]Insert Into em outra tabela com condição..

Mensagem XPTOS 11/6/2015, 00:58

Amigos,

Estou utilizando a consulta abaixo em um formulário para inserir dados em outra tabela por meio deste formulario, porém, tem persistido o erro "Era esperado 1 registro".

Alguém já passou por esta ocorrência e poderia me ajudar?

CurrentDb.Execute "INSERT INTO tblCedocPront (DataAtendimento, NumProntuárioPaciente, Convenio, AtendimentoPac, NomePaciente)" & vbCrLf & _
"SELECT tblCedocFichaMV.Campo5, tblCedocFichaMV.Campo12, tblCedocFichaMV.Campo14, tblCedocFichaMV.Campo18, tblCedocFichaMV.Campo25" & vbCrLf & _
"FROM tblCedocFichaMV" & vbCrLf & _
"WHERE (tblCedocFichaMV.Campo18 Like [Forms]![frmCedoCadastProntuario]![txtFiltroAtendimento]);"

**Alexandre Neves** 11/6/2015, 08:55

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

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

Mensagem nº2

Re: [Resolvido]Insert Into em outra tabela com condição..

Mensagem Alexandre Neves 11/6/2015, 08:55

Bom dia,
Tente
CurrentDb.Execute "INSERT INTO tblCedocPront (DataAtendimento, NumProntuárioPaciente, Convenio, AtendimentoPac, NomePaciente) " _
& "SELECT Campo5, Campo12, Campo14, Campo18, Campo25 " _
& "FROM tblCedocFichaMV " _
"WHERE Campo18 Like " & [Forms]![frmCedoCadastProntuario]![txtFiltroAtendimento]

.................................................................................
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