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]copiar dados pra tbl especifica

    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    [Resolvido]copiar dados pra tbl especifica Empty [Resolvido]copiar dados pra tbl especifica

    Mensagem  fazerbem em 29/5/2018, 18:09

    Ola, mais uma duvida aqui.

    estou montando um PDV, no processo de finalizacao da venda, preciso que pegue o valor total da Venda (txt_Apagar) que esta no FrmPDV, e some ao txt_Gastos que esta no form Cadastro de clientes. Para isso pesquisando aqui neste forum, achei este comando abaixo ao qual coloquei as minhas necessidades. Porem ao ir no cadastro de clientes no campo Gastos, nao foi somado a venda.

    Código:
    Sub Lancamento_Cliente()
    DoCmd.RunSQL "UPDATE tblcad_cliente Set [tblCad_Cliente].[Gastos] = [tblCad_Cliente].[Gastos] + '" & Me.Txt_A_Pagar & "' WHERE [tblcad_Cliente].[Gastos] = " & Me.Txt_Cod.Value & ""
    End Sub


    Gastos = campo Tbl_CadCliente
    Me.Txt_A_pagar = esta no frmPDV
    Me.Txt_Cod = esta tb no frmPDV

    Grato

    Andre


    Última edição por fazerbem em 29/5/2018, 20:35, editado 1 vez(es)
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 05/03/2017

    [Resolvido]copiar dados pra tbl especifica Empty Re: [Resolvido]copiar dados pra tbl especifica

    Mensagem  fazerbem em 29/5/2018, 20:35

    Resolvi aqui pessoal.

    "' WHERE [tblcad_Cliente].[idCliente] = " & Me.Txt_Cod.Value &

    Sub Lancamento_Cliente()
    DoCmd.RunSQL "UPDATE tblcad_cliente Set [tblCad_Cliente].[Gastos] = [tblCad_Cliente].[Gastos] + '" & Me.Txt_A_Pagar & "' WHERE [tblcad_Cliente].[idCliente] = " & Me.Txt_Cod.Value & ""
    End Sub

    Grato

    Andre

      Data/hora atual: 22/11/2019, 21:50