MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    Inserir dados em uma tabela via sql pelo vba

    avatar
    jerryrossmc
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 16/02/2016

    Inserir dados em uma tabela via sql pelo vba Empty Inserir dados em uma tabela via sql pelo vba

    Mensagem  jerryrossmc 29/2/2016, 11:22

    Bom dia pessoal.
    Veja se alguém pode me ajudar não trabalho com access mas preciso desenvolver um banco para controle de serviços no local que trabalho, me deparei com a seguinte situação onde tenho um banco com duas tabelas sendo uma cliente e outra servico preciso colocar tudo em um único formulário, criei o form com nome principal2, na parte de cima tem os dados do cliente selecionado em um mini formulário que chamo de principal e abre assim que o access abre, mas ao tentar inserir dados na tabela servico com a parte de baixo do formulário eu consegui inserir para o primeiro registro só, e toda vez que abro o formulário independente do cliente que seleciona vem sempre os mesmo dados, na tabela cliente tenho cod,nome,telefone e endereco cod=primary key, e servico tenho cod_servico, cod_cliente, descricao, preco cod_servico=primary key fiz um relacionamento de 1:N com cod da tabela cliente a cod_cliente na tabela servico, imaginei que se ao carregar meu formulário principal2 eu executasse uma inserção em sql no campo cod_cliente na tabela servico com o mesmo número selecionado na principal e depois listasse os dados no form principal 2 talvez daria certo mas como fazer isso? pelo vba?
    desde já agradeço galera.
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Inserir dados em uma tabela via sql pelo vba Empty Re: Inserir dados em uma tabela via sql pelo vba

    Mensagem  FabioPaes 2/3/2016, 17:50

    Amigo, posta seu BD pra darmos uma olhada...

    Quanto a Inserir, atualizar, deletar funciona assim:

    Código:

    CurrentDb.Execute "INSERT INTO TbTeste (CAMPOSTABELA1,CAMPOSTABELA2)" & _
    "VALUES('" & Me.NOMECAMPO & "','" & NOMECAMPO & "')"

    Nesse Topico foi bem debatido o assunto...
    https://www.maximoaccess.com/t25341-resolvidocomando-currentdb-execute-nao-aceita-quebra-de-linha
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Inserir dados em uma tabela via sql pelo vba Empty Re: Inserir dados em uma tabela via sql pelo vba

    Mensagem  FabioPaes 2/3/2016, 17:55

    Talvez a Melhor saida pra vc seja criar mais duas tabelas...
    tbServicoCLiente = aqui voce lançaria o nome do cliente, data... Tendo como relacionamento o Codigo do CLiente da tabela cliente.
    tbServicoClienteDet = aqui voce lançaria os serviços executados para esse cliente. Relacionamento seria, o codigo da tabela tbServicoCliente, sendo 1 para muitos, e tabem o codigo dos serviços ou produtos.

    Assim se voce quer saber quais serviços fez pra cada cliente, basta pegar nessas tabelas...


    Obs: na tabela cliente apenas cadastraria seus clientes, na tabela Serviço cadastraria apenas os tipos de serviços... ja nas duas novas tabelas aqui sim, voce lançaria os serviços desenvolvidos para cada cliente, com datas etc...

      Data/hora atual: 3/12/2022, 07:08