Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Erro ao apagar comb...
 
Notifications
Clear all

Erro ao apagar combobox

 
2024 - VBA & Macros
Post Recente por alinejr 6 anos atrás
5 Posts
4 Usuários
0 Reactions
929 Visualizações
RSS
 alinejr
(@alinejr)
Posts: 0
New Member
Topic starter
 

Oi gente cá estou eu novamente,

meu projeto está bombando!!! Ehhhh
Pois bem, estou com um problema que acredito que seja fácil de ser resolvido, mas não estou percebendo a solução, tenho pouca experiência no VBA.
A questão é a seguinte, meu programinha tá rodando todo ok, salvando direitinho, mas quando eu digito um valor na caixa 'cx_sai' e tento corrigi-lo, já está configurado no formato de moeda, dá erro. Por exemplo, se digito o valor R$ 300,00 e tento apagar com o backspace, ao apagar o 3 ele buga.

Neste combobox está acontecendo uma fórmula, que resulta num saldo. O que posso estar fazendo de tão errado? :cry: 

Private Sub CX_ENT_AfterUpdate()
'DEIXAR AUTOMATICAMENTE NO FORMULÁRIO O FORMATO DE MOEDA
CX_ENT = Format(CX_ENT, "R$ #,##.00")
End Sub

Private Sub CX_ENT_Change()
'tentativa de parar o erro (ñ funcionou)
If CX_ENT = "" Then
CX_REST = ""
End If


Dim num1 As Single
Dim num2 As Single
Dim num3 As Single
num1 = CX_SAI
num2 = CX_ENT
num3 = num1 - num2
saldo_ = num3
saldo_ = Format(saldo_, "R$ #,##.00")
 
Postado : 04/05/2018 12:43 pm
 xlarruda
(@xlarruda)
Posts: 0
New Member
 

Sem ter acesso ao seu projeto é meio difícil. Mas tente isso:

Private Sub CX_ENT_AfterUpdate()
On Error Resume Next
'DEIXAR AUTOMATICAMENTE NO FORMULÁRIO O FORMATO DE MOEDA
CX_ENT = Format(CX_ENT, "R$ #,##.00")
End Sub

Private Sub CX_ENT_Change()
'tentativa de parar o erro (ñ funcionou)
If CX_ENT = "" Then
CX_REST = ""
End If


Dim num1 As Single
Dim num2 As Single
Dim num3 As Single
num1 = CX_SAI
num2 = CX_ENT
num3 = num1 - num2
saldo_ = num3
saldo_ = Format(saldo_, "R$ #,##.00")
 
Postado : 04/05/2018 12:56 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

alinejr,

Boa noite!

É amigo... tá difícil de te ajudar...

Pelo que entendi... se código não está condizente com o que você postou. Ou seja, não diz nada com nada.

Veja, no post você diz que quando digita um valor na caixa 'cx_sai' e tento corrigi-lo... No seu código não existe nenhuma das rotinas que seja dessa caixa cx_sai. As duas rotinas que você colou são da CX_ENT.

Depois, você só colocou um trecho do código da rotina da CX_ENT. Assim... tá difícil mesmo.

 
Postado : 04/05/2018 3:31 pm
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

Nao tenho ideia de como é o projeto mas eu usaria declarar as variaveis como currency ja que os valores digitados sao utilizados no formato moeda.

Outra coisa eu usaria o codigo no evento exit da textbox ao inves do evento update.

Talvez resolva seu problema.

 
Postado : 04/05/2018 6:16 pm
 alinejr
(@alinejr)
Posts: 0
New Member
Topic starter
 

xlarruda

Mais uma vez sua resposta foi certeira, muito obrigada mesmo! Já apliquei as demais caixas que podiam gerar o mesmo erro. Desculpe a você e aos outros não ter sido mais clara em relação a minha dúvida. Mas, obrigada a todos pelas respostas!

 
Postado : 07/05/2018 5:15 am
Forum Jump:
  Tópico Anterior
Próximo Tópico