Olá pessoal

 

Eu tenho uma consulta que busca informações de várias tabelas,

e gostaria de copiar esses dados da consulta para uma outra tabela sempre que o formulário for carregado. ocorre que recebo uma mensagem de erro sempre que carrego o formulário. o erro é sempre no comando 'value'. Bem acho que não está bem estruturada.

Alguém poderia dar uma olhada no código e sugerir o que eu posso fazer para que estes dados sejam copiados para a tabela1

segue o código abaixo:

 

teste = "insert into tabela1 (ib_nome,ib_endereco,ib_bairro,ib_cidade,ib_uf,ib_cep,ib_valorboleto,ib_lote,ib_qdra,ib_nrproposta,ib_datavenda,ib_datavenc,ib_cpf)"

Values

x = "SELECT Clientes.cl_nome, Clientes.cl_endereco, Clientes.cl_bairro, Clientes.cl_cidade, Clientes.cl_uf, Clientes.cl_cep, Boletos.bl_valorboleto, Imoveis.im_lote, Imoveis.im_qdra, Vendas.vr_nrproposta, Vendas.vr_datavenda, Contas_Receber.cr_datavenc, Clientes.cl_cpf"
x = " FROM Imoveis INNER JOIN ((Clientes INNER JOIN Vendas ON Clientes.cl_cod_cliente=Vendas.vr_codcliente) INNER JOIN (Boletos INNER JOIN Contas_Receber ON Boletos.bl_codboleto=Contas_Receber.cr_bl_codboleto) ON (Clientes.cl_cod_cliente=Boletos.bl_cl_codcliente) AND (Clientes.cl_cod_cliente=Contas_Receber.cr_codcliente) AND (Vendas.vr_codvenda=Boletos.bl_codvenda) AND (Vendas.vr_codvenda=Contas_Receber.vr_codvenda)) ON Imoveis.im_codimovel=Vendas.vr_imcodimovel where Imoveis.im_qdra='" & 56 & "'"
xmdb.Execute teste

Aguardo sugestões

Um abraço a todos

TESTA ASSIM:

Daniel

Muinto obrigada, valeu pela dica.