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]Actualizar cálculos

    Compartilhe

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Actualizar cálculos

    Mensagem  Luís Antunes em Qua 23 Ago 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

    Luís Antunes
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Actualizar cálculos

    Mensagem  Luís Antunes em Qua 23 Ago 2017, 01:00

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



    Luís Antunes

      Data/hora atual: Sab 23 Set 2017, 06:45