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

    Nao visualizo o erro

    avatar
    EugenioAlbano
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 30/03/2021

    Nao visualizo o erro Empty Nao visualizo o erro

    Mensagem  EugenioAlbano 1/4/2021, 15:55

    Bom Dia

    Estou a horas e nao consigo ver o erro
    DoCmd.RunSQL ("UPDATE Produtos set Quantidade=(Quantidade-Formulários![FPedidos]![SubFormularioDetalhePedido]![Quantidade]) where Produtos.CodigoProduto=(Formulários![FPedidos]![SubFormularioDetalhePedido]![CodigoProduto];")

    Alguem pode me auxiliar por favor

    EugenioAlbano gosta desta mensagem

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1446
    Registrado : 13/12/2016

    Nao visualizo o erro Empty Re: Nao visualizo o erro

    Mensagem  Alexandre Fim 1/4/2021, 17:45

    Eugenio, seja bem-vindo ao fórum !!!

    Sempre que possível, procure abreviar o nome dos controles de um formulário atrevés de variáveis.

    Copie e cole este procedimento

    Código:


    Dim iQtde   As Variant
    Dim iCod    As Variant


        iQtde = Formulários![FPedidos]![SubFormularioDetalhePedido]![Quantidade]
        iCod = Formulários![FPedidos]![SubFormularioDetalhePedido]![CodigoProduto]

        DoCmd.RunSQL ("UPDATE Produtos set Quantidade=(Quantidade-" & iQtde & ") WHERE CodigoProduto= " & iCod & "")


    Estou presumindo que o campo CodigoProduto da sua tabela seja Numérico.
    Se for do tipo texto, troque:

    " & iCod & "

    por

    '" & iCod & "'


    Boa sorte


    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

    EugenioAlbano gosta desta mensagem

    avatar
    EugenioAlbano
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 30/03/2021

    Nao visualizo o erro Empty Nao visualizo o erro

    Mensagem  EugenioAlbano 1/4/2021, 22:38

    Problema resolvido
    Obrigado
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1446
    Registrado : 13/12/2016

    Nao visualizo o erro Empty Re: Nao visualizo o erro

    Mensagem  Alexandre Fim 1/4/2021, 22:55

    Maravilha, Eugenio !!! cheers
    Por gentileza, coloque o tópico como Resovido.
    Boa sorte e sucesso.



    .................................................................................
    - Procure sempre anexar seu projeto para análise do problema/dúvida.
    - Ao copiar/colar um código VBA, procure entender seu funcionamento.
    - Se o problema foi resolvido, não se esqueça de marcar o tópico como RESOLVIDO.

      Data/hora atual: 14/6/2021, 07:00