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


    [Resolvido]Actualizar cálculos

    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    [Resolvido]Actualizar cálculos Empty [Resolvido]Actualizar cálculos

    Mensagem  Luís Antunes 23/8/2017, 00:23

    Retirei este código de uma BD ContaMoedas desta comunidade.
    Adaptei à moeda europeia €.
    Quando digito as moedas o form só actualiza até à linha dos 5Cent todas as outras ficam a zeros.
    Notei que, quando rodo o form para a Vista de estrutura e seguidamente volto para a vista de formulário, os campos ficam todos calculados.
    Experimentei o Rquery, o Repaint, o Recalc e o Refresh, nada resultou.
    Gostaria que alguém me desse uma dica.

    Código:
    Private Sub soma()

    Dim Um, Dois, Cinco, Dez, Vinte, Cinquenta, UmEuro, DoisEuro  As Integer

    If IsNull(Me.txt1Cent) Then Me.txt1Cent = 0
    If IsNull(Me.txt2Cent) Then Me.txt2Cent = 0
    If IsNull(Me.txt5Cent) Then Me.txt5Cent = 0
    If IsNull(Me.txt10Cent) Then Me.txt10Cent = 0
    If IsNull(Me.txt20Cent) Then Me.txt20Cent = 0
    If IsNull(Me.txt50Cent) Then Me.txt50Cent = 0
    If IsNull(Me.txt1Euro) Then Me.txt1Euro = 0
    If IsNull(Me.txt2Euro) Then Me.txt2Euro = 0

    Um = Me.txt1Cent * 0.01
    Dois = Me.txt2Cent * 0.02
    Cinco = Me.txt5Cent * 0.05
    Dez = Me.txt10Cent * 0.1
    Vinte = Me.txt20Cent * 0.2
    Cinquenta = Me.txt50Cent * 0.5
    UmEuro = Me.txt1Euro
    DoisEuro = Me.txt2Euro * 2
    Me.Recalc
    Me.txtTotal = Um + Dois + Cinco + Dez + Vinte + Cinquenta + UmEuro + DoisEuro

    Me.txtSoma001 = Um
    Me.txtSoma002 = Dois
    Me.txtSoma005 = Cinco
    Me.txtSoma010 = Dez
    Me.txtSoma020 = Vinte
    Me.txtSoma050 = Cinquenta
    Me.txtSoma1 = UmEuro
    Me.txtSoma2 = DoisEuro

    'Me.Requery
    'Me.Repaint
    'Me.Recalc
    'Me.Refresh


    End Sub

    Antecipadamente grato

    Luís Antunes
    avatar
    Luís Antunes
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 394
    Registrado : 05/04/2016

    [Resolvido]Actualizar cálculos Empty Actualizar cálculos

    Mensagem  Luís Antunes 23/8/2017, 01:00

    Erro Meu
    Faltou-me outra parte do código
    Peço desculpa.



    Luís Antunes

      Data/hora atual: 8/11/2024, 03:35