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

    Erro ao atualizar o Estoque

    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 22/03/2011

    baixa de estoque - Erro ao atualizar o Estoque  Empty Erro ao atualizar o Estoque

    Mensagem  fabioavila 25/2/2023, 19:50

    Ola amigos

    Estou usando o codigo  o qual funciona perfeitamente nas outras aplicações minhas a diferença dessa é que o Banco de Dados dessa está em Mysql ,



    Mensagem do Erro

    baixa de estoque - Erro ao atualizar o Estoque  110

    Código utilizado

    Código:
    Private Sub Qtdade_AfterUpdate()
    [Estoque Atual] = [Estoque Atual] - [Qtdade]

    End Sub


    Tabela Mysql

    baixa de estoque - Erro ao atualizar o Estoque  210

    Alguem pode me dar um auxilio.
    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 22/03/2011

    baixa de estoque - Erro ao atualizar o Estoque  Empty Re: Erro ao atualizar o Estoque

    Mensagem  fabioavila 26/2/2023, 03:04

    Ola Amigos,

    Mudei meu código e não está mais dando o erro como anteriormente, porém ele só funciona na 1 linha se tiver mais de 1 produto ele puxa o valor da saida da linha anterior mais a qtdade que eu lançar na linha seguinte.

    Código:
    Private Sub Qtdade_AfterUpdate()
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE produtos Set [produtos].[Estoque Atual] = [produtos].[Estoque Atual]- " & Me.Qtdade & " WHERE [intes_saida].[Produto] = '" & Me.Produto & "'"
    DoCmd.SetWarnings True

    End Sub


    aTT
    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 22/03/2011

    baixa de estoque - Erro ao atualizar o Estoque  Empty Re: Erro ao atualizar o Estoque

    Mensagem  fabioavila 1/3/2023, 00:24

    Alguém??
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    baixa de estoque - Erro ao atualizar o Estoque  Empty Re: Erro ao atualizar o Estoque

    Mensagem  Silvio 1/3/2023, 11:45


    'Caso a quantidade do produto exista no estoque faz a atualização do campo na tabela estoque
    DoCmd.SetWarnings False
    DoCmd.RunSQL "update SuaTabela set SeucampoSaldo= SeucampoSaldo- Forms![FormularioPrincipal]![SubFormulario].Form![qtd]" _
    & " where SuaTabela.ChavePrimaria=Forms![FormularioPrincipal]![SubFormulario].form![ChavePrimaria]"


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    fabioavila
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 22/03/2011

    baixa de estoque - Erro ao atualizar o Estoque  Empty Re: Erro ao atualizar o Estoque

    Mensagem  fabioavila 4/3/2023, 23:10

    Ola Silvio

    Usei seu exemplo porém da erro de sintaxe de UPDATE

    Código:
    Private Sub Qtdade_AfterUpdate()
    DoCmd.SetWarnings False
    DoCmd.RunSQL "update produtos set Estoque Atual= Estoque Atual - Forms![Material Consumo Saida]![Itens Pedido].Form![Qtdade]" _
    & " where produtos.REF=Forms![Material Consumo Saida]![Itens Pedido].form![REF]"

    End Sub

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    baixa de estoque - Erro ao atualizar o Estoque  Empty Re: Erro ao atualizar o Estoque

    Mensagem  Silvio 6/3/2023, 11:14

    Boas...
    O código funciona e está correto o que eu te passei.

    Creio o que está errado é a forma a qual você colocou os campos.



    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado


    baixa de estoque - Erro ao atualizar o Estoque  Empty Re: Erro ao atualizar o Estoque

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 16:21