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]SOMA textbox não aclopado.

    Compartilhe

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 15/05/2013

    [Resolvido]SOMA textbox não aclopado.

    Mensagem  maguim em 15/2/2018, 16:16

    amigos

    Tenho formulário conde tem vários textbox (não aclopado)
    que por sua vez fazem alguns calculos, existe a possibilidade de eu abrir mais um textbox não aclopado para soma total dos textbox no mesmo formulario ??


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]SOMA textbox não aclopado.

    Mensagem  Noobezinho em 15/2/2018, 21:21

    Sim, você pode criar.


    Mas, atente para isso:

    Digamos 3 caixa de texto cada uma tem uma somatória ou um calculo qualquer, de outras caixas de textos.

    Não descobri o porque,mas as vezes o Access não aceita fazer uma caixa de texto 'total Geral' somando essas 3 caixa de textos.

    Então, o que dá pra fazer é pegar a somatória de cada uma e juntar no mesmo controle 'total Geral'.

    [ ]'s


    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 15/05/2013

    Re: [Resolvido]SOMA textbox não aclopado.

    Mensagem  maguim em 16/2/2018, 10:38

    certo, mas como faria isso

    um afterupdated? ou change? on loaded form?

    se eu por on load form. nao da certo, ou talvez algo que ia acompanhando atualização dos textbox

    segue um exemplo de código:

    esse código abaixo esta sobre um textbox que apos atualizar ele faz os cálculos, teria alguma suposição?


    Código:
    Private Sub vlr1_AfterUpdate()
    If IsNull(Me.vlr1) Then
    Me.vlr1 = Empty
    Else

    Me.result1.Value = [vlr1] / [coef1]
    End If
    If Me.result1 >= "1,0" Then
    Me.result1.BackColor = vbRed
    Me.result1.ForeColor = vbBlack
    Else
    Me.result1.BackColor = vbWhite
    Me.result1.ForeColor = vbBlack

    End If

    Me.INDREAJ1.Value = Me.coef1 / Me.vlr1 - 1

    If Me.INDREAJ1 < 0 Then
    Me.INDREAJ1.ForeColor = vbRed
    Me.INDREAJ1.FontBold = True
    ElseIf Me.INDREAJ1 = 0 Then
    Me.INDREAJ1.ForeColor = vbBlack
    Else
    Me.INDREAJ1.ForeColor = vbGreen
    Me.INDREAJ1.FontBold = False
    End If

    Me.VlrReaju1.Value = Me.consulAMB * Me.INDREAJ1

    If Me.INDREAJ1 < 0 Then
    Me.VlrReaju1.ForeColor = vbRed
    Me.VlrReaju1.FontBold = True
    ElseIf Me.VlrReaju1 = 0 Then
    Me.VlrReaju1.ForeColor = vbBlack
    Else
    Me.VlrReaju1.ForeColor = vbGreen
    Me.VlrReaju1.FontBold = False
    End If
    End Sub


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]SOMA textbox não aclopado.

    Mensagem  Noobezinho em 16/2/2018, 10:56

    Entenda

    Tem caixas de texto desacopladas então

    dentro delas ou no  fonte do Controle por exemplo (result1) na folha de propriedades, escreva

    = [vlr1] / [coef1]

    Então, dentro do controle no formulário no modo designer, irá exibir ao invés de Desacoplado, o cálculo.

    Agora, defina a valor padrão dos controles desacoplados que terão valores de calculos para 0, porque

    se em algum deles for nulo, dará erro no cálculo.

    [ ]'s
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

    Re: [Resolvido]SOMA textbox não aclopado.

    Mensagem  CassioFabre em 16/2/2018, 11:00

    Bom dia,

    Se me permitem uma ideia. Voce pode cirar a função que faz a soma dos text box. Algo do tipo:
    Código:
    Sub somaCampos
        txtTotalGeral = txt1 + txt2 + txt3 + ...
    End sub

    No afterupdate de cada campo que compoe a soma, voce põe a verificação de número e nulo, para não dar erro na soma, e chama a função. Por exemplo, no afterupdate do txt1:
    Código:
    if isnumeric(txt1) = false or isnull(txt1) = true then txt1 = 0

    Call somaCampos

    Repita isso em cada campo que compõe a soma.

    Abraço.


    .................................................................................
    Só não tem código pra morte!

    maguim
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 15/05/2013

    Re: [Resolvido]SOMA textbox não aclopado.

    Mensagem  maguim em 16/2/2018, 12:29

    @Noobezinho
    @CassioFabre

    queria agradecer vcs, me deram outra ideia.

    qual foi o tipo de resolução ?

    fiz exatamente do jeito que noobzinho falou

    o que eu fiz?

    fiz na fonte de controle

    [vlr3] + [vlr4] etc...

    e abaixo é codigo que usei pra fazer fonte de controle funcionar...
    como são todos desaclopados só funciona se a string estiver = 0 nos textbox. fica dica Laughing

    Código:
    If Me.vlr3 = 0 Then
    Me.INDREAJ3 = 0
    Me.VlrReaju3 = 0
    Exit Sub
    Else
    Me.INDREAJ3.Value = Me.coeF3 / Me.vlr3 - 1

    abraços

    RESOLVIDO


    .................................................................................
    O conhecimento é a Dadiva da Vida. Sem ele o que seriamos ?! [Você precisa estar registrado e conectado para ver esta imagem.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]SOMA textbox não aclopado.

    Mensagem  Noobezinho em 16/2/2018, 12:45

    Opa, Cassio !

    Que bom que ajudei!

    Valeu pelo retorno!

    Boa sorte !

      Data/hora atual: 22/7/2018, 17:14