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

    Soma de valores em caixas de texto (formulário)

    avatar
    RENATOXEXEU
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 18/01/2016

    Soma de valores em caixas de texto (formulário) Empty Soma de valores em caixas de texto (formulário)

    Mensagem  RENATOXEXEU 30/8/2018, 20:16

    Boa tarde!


    gostaria de somar caixas de texto inserindo valor de resultado em tabela


    ex:

    caixa de texto1 = 50 R$
    caixa resultado = soma da caixa de texto 1

    jogando valor final em uma tabela

    Soma de valores em caixas de texto (formulário) 113
    good guy
    good guy
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1305
    Registrado : 05/02/2010

    Soma de valores em caixas de texto (formulário) Empty Soma de valores em caixas de texto(formulário)

    Mensagem  good guy 5/9/2018, 15:41

    Olá Renato,

    Entendo que seja de formulário contínuo. No Rodapé do formulário, insira uma caixa de texto e na fonte de controle:

    =Soma([txtResultado])

    Você pode inserir o resultado através da sintaxe SQL INSERT INTO SuaTabela..., através de um botão também no rodapé do formulário:

    Código:

    Private Sub cmdIncluir_Click()
    Dim strSQL As String
    Dim lngResultado As Long

    lngResultado = Me.txtResultado

    DoCmd.SetWarnings False
    strSQL = "INSERT INTO SuaTabela(CampoResultado) VALUES ('" & lngResultado & "')  
    CurrentDb.Execute strSQL
    DoCmd.SetWarnings True
    End Sub

      Data/hora atual: 17/9/2021, 04:22