Notifications

Clear all

Erro ao apagar combobox

2024 - VBA & Macros

Post Recente por alinejr 7 anos atrás

5 Posts

4 Usuários

0 Reactions

936 Visualizações

RSS

alinejr

(@alinejr)

Posts: 4

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: 732

Honorable 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")

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

Postado : 04/05/2018 12:56 pm

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious 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.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 04/05/2018 3:31 pm

MPrudencio

(@mprudencio)

Posts: 2749

Famed 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.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

Postado : 04/05/2018 6:16 pm