[Resolvido]Cálculo em caixa de texto

Quero criar um cálculo dentro de uma caixa de texto (em então msgbox, também serve).
Tenho 23 botões de opção no meu formulário e dei valor para cada um se for verdadeiro.

Código:

Private Sub PontuacaoTxt_AfterUpdate()
Dim Etica, Cordialidade, Interesse, Disponibilidade As Integer
Etica = -100
Cordialidade = -100
Interesse = -8
Disponibilidade = -100

If Me.BotaoEtica = True Then
PontuacaoTxt.value = 100 + Etica
End If
End Sub

Mas não está aparecendo na caixa de texto Pontuacaotxt

O que fiz de errado?

tente assim:

Código:



Private Sub PontuacaoTxt_AfterUpdate()

Dim Etica, Cordialidade, Interesse, Disponibilidade As Integer

Etica = -100

Cordialidade = -100

Interesse = -8

Disponibilidade = -100

If Me.BotaoEtica = True Then

Me.PontuacaoTxt = Me.PontuacaoTxt + Etica


End If

End Sub



Supondo que 100 ou qualquer outro valor seja digitado na caixa de texto em questão.

Seria bom colocar uma rotina no evento AntesAtualizar para valores nulos ou inválidos.

Abraços

Não funcionou!

altera o tipo de dados de Integer para Double.

Abraços,

Nada.... Alguém sabe??

Posta seu BD...

Formulário lançamentos

Camarada, aqui funcionou normalmente... Sem mudar nada!

Apenas marquei a Etica, cliquei na caixa POntuação, digitei 10... e ao saur ficou -90.

Mas a questão é:

O campo pontuação estará bloqueado.
Ficará com valor padrão 100 e somente após clicar no botão de opção que o valor deverá ser atualizado!

Então esse Evento que calcula nao pode ficar nessa caixa de texto e nem nesse Evento... Coloque ela em um Botão, ou ate mesmo nos botoes de seleção...

Pois evento Apos atualizar de um campo so é acionado quando vc Entra no Campo, Muda algo e sai.

Coloque no Evento do Seu Botão de Pontuação...

Entendido!


Agora para finalizar!
Como são 23 botões de seleção, tenho que criar código para cada um.

Como posso fazer uma função para agilizar minha vida?
Pois cada botão tem um nome e um valor.

Amigão, veja essa opção que fiz... O calculo e feito de acordo com a seleção, Coloquei o valor da pontuação na caixa seleção sim.



Dessa forma, o Grupo tem Valor zero... A opção sim tem um valor xxx de pontos e a opção Nao tem valor zero. Então ao selecionar a opção sim, o grupo passa a ter o valor que tem a opção sim... dessa forma basta somar todos os 23 grupos. que nao tera problemas...

Interessante!

Pq ao criar um botão de seleção, no meu access, não aparece em propriedades o valor de opção?

Essa opção so aparece quando vc seleciona Grupo DE OPÇOES, e nao Botao de Opçoes!



Obs:
Pra desabilitar algum campo, vc tem que Colocar no Grupo de opçoes ta...

Ex: No grupo de Opçoes Etica, coloque no evento apos atualizar... para desabilitar as outras opçoes:

If Me.qdEtica = 100 Then
Me.Texto15.Visible = False
Else
Me.Texto15.Visible = True
End If

É interessante essa opção que não conhecia!

Porém teria que modificar todo formulário, consultas, etc..

Mas irei usar a opção explicada anteriormente.. De qualquer modo, obrigado!

Pois é... Veja qual vai lhe dar menor trabalho, e qual e mais vantajoso pro seu sistema!

Atá a próxima!!!