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


3 participantes

    Formulario Vendas

    avatar
    samir terras
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 01/03/2016

    Formulario Vendas Empty Formulario Vendas

    Mensagem  samir terras 15/9/2017, 01:30

    Boa Noite Pessoal !
    Estou aqui mais uma vez, precisando da ajuda da galera do fórum.
    Tenho um formulário de vendas com subform, onde se insere os produtos.
    Minha duvida é. Criei alguns campos não acoplados onde  estou usando o Dlookup para buscar os produtos. Gostaria de saber se, ao preencher o ultimo campo tem como inserir os dados no Subformulário, ou teria que se criar uma macro ou módulo para após inserir os dados salva-los no subform ?
    Agradeço a Atenção de todos.
    Vou postar o bd. Se alguém puder dar uma olhada fico Grato.
    Anexos
    Formulario Vendas AttachmentBANCO1_ALT1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (398 Kb) Baixado 82 vez(es)
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    Formulario Vendas Empty Re: Formulario Vendas

    Mensagem  Cláudio Machado 15/9/2017, 14:45

    Bom dia.

    Fácil.
    Crie uma consulta de inclusão tipo:

    Código:

    INSERT INTO vendasdetalhe ( CodigoProduto, Descriçao, Unidade, [Valor Unitario], Quantidadesaida, Codvenda )
    SELECT Dados1.CODIGO, Dados1.DESCRIÇAO, Dados1.UNID, Dados1.CUSTO, [forms]![FrmVendas]![Textoqtde] AS Quantidade, [forms]![FrmVendas]![Codvenda] AS Var_IdVenda
    FROM Dados1
    WHERE (((Dados1.CODIGO)=[forms]![FrmVendas]![Textocodigo]));


    No campo "Textoqtde" após atualizar do seu form de vendas coloque este código:

    Código:

    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Cns_AdicionaProduto"
    DoCmd.SetWarnings True
    Me.FrmVendasSub.Requery


    Evite utilizar espaços em nome de campos na tabela (Ex: Valor Unitario), isso vai te causar problemas no futuro.

    Verifiquei também que o campo Codvenda na sua tabela vendasdetalhe está buscando o CodVenda na tabela Vendas.
    Não entendi pra que serve isso, mas enfim é isso ai.

    Tente adaptar ao seu sistema.

    Abraço


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Formulario Vendas 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    samir terras
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 01/03/2016

    Formulario Vendas Empty Re: Formulario Vendas

    Mensagem  samir terras 16/9/2017, 00:44

    Primeiramente Agradeço ao colega pela atenção.
    Mas ainda estou apanhando um pouco. Onde devo inserir o código ?
    Gostaria que fosse após atualizar o ultimo campo. Seria possível ou devo criar um botão ?
    Agradeço ao colega

    Abraço
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1636
    Registrado : 17/03/2011

    Formulario Vendas Empty Re: Formulario Vendas

    Mensagem  Cláudio Machado 18/9/2017, 14:07

    Bom dia.
    amigo eu já expliquei tudo na mensagem acima.
    Inclua o código no seu campo:

    No campo "Textoqtde" após atualizar do seu form de vendas coloque este código:

    Código:

    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Cns_AdicionaProduto"
    DoCmd.SetWarnings True
    Me.FrmVendasSub.Requery


    Não precisa criar botão.
    Após alterar a quantidade e pressionar Enter ou TAB o sistema irá fazer todo o processo de inclusão.

    No aguardo


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Formulario Vendas 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    simonzip
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11
    Registrado : 28/12/2018

    Formulario Vendas Empty Re: Formulario Vendas

    Mensagem  simonzip 6/6/2019, 00:20

    Olá, estou tentando montar um sistema semelhante, mas estou tendo problemas para gravar o valor total da venda na tabela vendas.
    Quando colocado os valores do subfomulario "frm Detalhes do Pedido" o valor total vai para o campo "Valor da Venda" no "frm Pedidos", porem nao consigo gravar esse valor da venda na "tbl Pedidos"  em "Valor da Venda"
    Anexos
    Formulario Vendas AttachmentVer.1.1.1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (133 Kb) Baixado 28 vez(es)

    Conteúdo patrocinado


    Formulario Vendas Empty Re: Formulario Vendas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 02:23