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

    [Resolvido]Dúvida em expressão

    avatar
    FilipeFaria
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 17/06/2017

    [Resolvido]Dúvida em expressão Empty [Resolvido]Dúvida em expressão

    Mensagem  FilipeFaria 27/6/2017, 21:51

    Galera, boa tarde!!

    Estou tentando utilizar este código para baixar a quantidade em estoque, de um produto que esta em uma subform(FRM_SUB_VENDA), que por sua vez esta dentro da Form FRM_VENDA. Todos os campos estão corretos, foi conferido e reconferido. O evento é feito ao clicar no botão "Faturar" que esta dentro do Formulário, FRM_VENDA. Ao clicar a baixa não esta acontecendo de forma alguma. Os códigos dos produtos em ambas as tabelas são os mesmos, visto que a baixa é feita de acordo com o código do produto.
    Um ponto que verifiquei é que ao substituir a exclamação por ponto após a referenciar o Subformulário, ao executar, ele abre uma janela de parâmetro e quando informo o código do produto e a quantidade, ai sim ele baixa.

    Obs. O código do produto, não esta como chave Primária (não sei se isso interfere)


    Private Sub btn_faturar_Click()

    DoCmd.SetWarnings False
    DoCmd.RunSQL ("update PRODUTOS set EmEstoqueD001=(EmEstoqueD001-(Formulários![FRM_VENDA]![FRM_SUB_VENDA]![Quantidade]))where PRODUTOS.CodPrd=(Formulários![FRM_VENDA]![FRM_SUB_VENDA]![codigoProduto]);")

    End Sub


    Se informo assim, ele abre a janela de parâmetros e ao informar os dados ele baixa

    Private Sub btn_faturar_Click()

    DoCmd.SetWarnings False
    DoCmd.RunSQL ("update PRODUTOS set EmEstoqueD001=(EmEstoqueD001-(Formulários![FRM_VENDA]![FRM_SUB_VENDA].[Quantidade]))where PRODUTOS.CodPrd=(Formulários![FRM_VENDA]![FRM_SUB_VENDA].[codigoProduto]);")

    End Sub

    Será que alguém me da uma força?


    Última edição por FilipeFaria em 28/6/2017, 23:02, editado 1 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Dúvida em expressão Empty Re: [Resolvido]Dúvida em expressão

    Mensagem  FabioPaes 28/6/2017, 20:11

    Formulário no VB se transforma em Forms.

    Tente assim:
    DoCmd.RunSQL ("UPDATE PRODUTOS set EmEstoqueD001=(EmEstoqueD001-(Forms![FRM_VENDA]![FRM_SUB_VENDA]![Quantidade])) where PRODUTOS.CodPrd=Forms![FRM_VENDA]![FRM_SUB_VENDA]![codigoProduto];")


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    FilipeFaria
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 17/06/2017

    [Resolvido]Dúvida em expressão Empty Re: [Resolvido]Dúvida em expressão

    Mensagem  FilipeFaria 28/6/2017, 22:50

    Resolvido meu nobre, deu tudo certinho, só que tive que mudar o formato do meu campo código produto e com o código que você me passou deu tudo certo, muito obrigado, vou apontar como resolvido! Grande abraço!!

    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Dúvida em expressão Empty Re: [Resolvido]Dúvida em expressão

    Mensagem  FabioPaes 29/6/2017, 02:49

    Grato pelo retorno amigo, até a próxima se Deus Quiser!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Conteúdo patrocinado


    [Resolvido]Dúvida em expressão Empty Re: [Resolvido]Dúvida em expressão

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/4/2024, 09:15