MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Dúvida em expressão

    Compartilhe

    FilipeFaria
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Dúvida em expressão

    Mensagem  FilipeFaria em Ter 27 Jun 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?
    Anexos
    janela.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (20 Kb) Baixado 3 vez(es)


    Última edição por FilipeFaria em Qua 28 Jun 2017, 23:02, editado 1 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Qua 28 Jun 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!

    FilipeFaria
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  FilipeFaria em Qua 28 Jun 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!!

    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Qui 29 Jun 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!

      Data/hora atual: Qui 21 Set 2017, 02:29