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.
Antecipadamente grato
Luís Antunes
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