[Resolvido]Dois Calculos no mesmo form com caixa combinação. escolhe um desabilta o outro

Boa noite colegas..
O Form faz calculo de emprestimo, onde há uma caixa de combinação Acrescido e descontado. São dois calculos diferentes, um soma(Acrescido) e outra Subtrai(Decontado), Então quando escolho o Acrescimo, exemplo desabilite o calculo descontado e vice-versa. ha como.......

Opa Amigão ....
Tente seguindo o seguinte metodo.

If suacombo = "Acrescimo" Then
código que efetua o calculo do acrescimo
else
código de que efetua o calculo do desconto
end if
me.requery

Abraços,

Desculpe, mas onde adiciono este codigo na combo

No evento apos atualizar

Sim, havia escrito neste evento, mas seria na combo negociação? se for da erro... não passa deste campo e rava o form...

Sim seria na combo negociação.
Mas que erros que esta aparecendo?

Seleciono e apos apaga sozinho, nao aparece mais nado na como.
Obs a combo é de digitação obrigatória

Então tire o me.requery e coloque o me.campoacrecimo.requery ou me.campodesconto.requery

Nenhuma esta dando certo......
Mc Feba chegou a vsualizar o exemplo em doc acima? as setas explicam bem. seria escolher acrescido então desabilita o campo descontado e vice-versa, deu para entender.....

Sim eu vi a imagem.
Tente desta forma:

If me.campoacrescimo="Acrescimo" Then
me.campoacrescimo.enabled = true
me.campoacrescimo.loked = true
me.campodesconto.enabled = false
me.campodesconto. loked = false
else
me.campoacrescimo.enabled = false
me.campoacrescimo.visible = false
me.campodesconto.enabled = true
me.campodesconto.loked = true
end if
isso deve dar certo agora

Erro de compilação : método ou membro de dados não encontrado
Private Sub Negociação_AfterUpdate()
If Me.TOTAL = "Acrescimo" Then
Me.TOTAL.Enabled = True
Me.TOTAL.loked = True
Me.Descontado.Enabled = False
Me.Descontado.loked = False
Else
Me.TOTAL.Enabled = False
Me.TOTAL.Visible = False
Me.Descontado.Enabled = True
Me.Descontado.loked = True
End If

End Sub

Private Sub Negociação_AfterUpdate()
If Me.TOTAL = "Acrescimo" Then
Me.TOTAL.Enabled = True
Me.TOTAL.Locked= True
Me.Descontado.Enabled = False
Me.Descontado.Locked = False
Else
Me.TOTAL.Enabled = False
Me.TOTAL.Locked= False
Me.Descontado.Enabled = True
Me.Descontado.Locked= True
End If

End Sub
Me desculpe, é que esta tarde, e ja estou meio sonolento.
Tenta ai agora

Estou testando,ja te retorno....

só mais um instante, por favor

Não deu certo, escolhendo um dos dois, acrescido ou descontado ele faz sempre o mesmo cálculo (Descontado)

Por acaso vc esta acrescentando a sua rotina de calculo dentro do if?
If Me.TOTAL = "Acrescimo" Then
'rotina de calculo de acrescimo
Me.TOTAL.Enabled = True
Me.TOTAL.Locked= True
Me.Descontado.Enabled = False
Me.Descontado.Locked = False
Else
'rotina de calculo de desconto
Me.TOTAL.Enabled = False
Me.TOTAL.Locked= False
Me.Descontado.Enabled = True
Me.Descontado.Locked= True
End If

End Sub

Para isso funcionar vc tem que colocar o seu calculo dentro do if, igual a minha primeira resposta do seu tópico. Ai sim só depois de feito os calculo vc continua a instrução dos campos.
abraços,

seguinte, os outros calulos de taxas juros e total de acrescido e total descontado são feitos atraves de consulta.
o codigo que me passou escolhendo qualquer um , acresc.ou desncon ele desabilita somento o campo acrescido.
Já revirei a formula, não consigo enxergar aonde esta o erro.
sera que tenho que enviar uma copia do bs para voce??

Sempre que pretender enviar uma cópia tente o seguinte:~

1- Primeiro tente o Fórum compactando em ZIP

2- Se não conseguir, envie para um Moderador com email disponível. Tanto o Criquio como eu temos os emails disponíveis.

Neste caso colocamos nós aqui a BD.

Aqui está colega

Podem fazer o download para ajudarem a resolver este problema

http://dl.dropbox.com/u/8157744/Factory3.zip

Estou com problemas para baixar o daownload, esta dando erro de página.
Se quizerem enviem para meu email, que terei meior prazer em acertar este problema para o amigo.

Abraços,

Qual é seu email

alexandroandrade@superig.com.br

Ao Abrir Techa shift aper.........

é esse ai o arquivo. Uma pergunta, você é o mesmo do forum do expertaccess/

Sim, o proque da pergunta amigão?

Acompanho o outro forum também.......

Veja se isto resolve seu problema ou falta mais aguma coisa amigão.

Private Sub negociação_AfterUpdate()
If Me.Negociação = "Acrescido" Then
Me.TOTAL.Enabled = True
Me.TOTAL.Locked = True
Me.Descontado.Enabled = False
Me.Descontado.Locked = False
Else
Me.TOTAL.Enabled = False
Me.TOTAL.Locked = False
Me.Descontado.Enabled = True
Me.Descontado.Locked = True
End If

End Sub

Você trocou o BeforeUpdate(Cancel As Integer) pelo AfterUpdate().

Sim desabilita e habilita conforme a escolha na caixa de combinação. ele desabilita o calculo no relatório???

Agora estou testando se realmente o campo desabilitado nao aprece no form consulta e Relal. como criei um novo form para os cheque tenho que ajustar, noa me demoro...

Alexandro, funcionou......
Uma pergunta como tem acrescido e descontado esta os dois em uma unica consulta que critério posso usar para não fazer dois form para fim de consulta, uma para cada. No critério da consulta escrevi "acrescido" no campo total e não carrega? como posso fazer ou terei que abrir outro tópico????

Que bom que funcionou, fico muito feliz com esta noticia.
Seguinet é melhor abrir outro tópico, pois se trata de assuntos diferentes e facilita para que esta procurando a mesma solução.
Se ninguem te ajudar até eu entrar eu te ajuda amnhã.

Abraços,

Muito obrigado. e este forum que é muitissimo bom, agora com o teu ingresso vai ser demais.....
Aompanhei muitas e muitas vezes seus comentários no expertaccess, seu snips, você é fera e assino embaixo
Um abraço Alexandro
Que Deus, pai te abençoes pelo que fez e esta fazendo, compartilhando seu conhecimento, é as horas rsrsrsrs
até

Concluido