Pessoal

preciso saber se consigo fazer com que o usuário não consiga passar para a textbox seguinte se a textbox com o foco estiver vazia ou com valor 0.

 

Outra coisa:

Estou tentando fazer um cálculo matemático para verificar se o produto tem saldo em estoque.

Gravo no BD em formato decimal ( 0,00 ), e uso o seguinte calculo:

 

If Val(vUltimoEstoque) < Val(txtQtdade.Text) Then
    MsgBox "Saldo insuficiente do produto no estoque."

End If
Onde vUltimoEstoque é o saldo do produto.

 

Mas acontece que se o valor na textbox txtQtdade é maior do que 1.000 e o estoque é menor do que 1.000, ele não acusa o erro.

 

Já mudei a variável vUltimoEstoque para Double, Currency, Long, mas nenhuma deu certo.

 

O q pode ser??

Deixe a variavel como Currency e colocoque outra assim:

Dim cQUANT As Currency

Dim cESTOQUE As Currency

 

cQUANT = FORMAT$(txtQtdade, "###,##0.000")

cESTOQUE = Format$(SEUESTOQUE, "###,##0.00")

 

If cESTOQUE < cQUANT Then

   ' FAÇA AQUI SUA MSGBOX

End If

 

Muitas vezes efetuar teste através de Text, não funciona, e as variáveis em testes, tem que ser exatamente iguais, tenho este aplicativo com este controle, e funciona assim.

 

vlu//

Vou tentar fazer dessa forma!

 

E quanto a primeira duvida, vc sabe como fzer Ramos???

 

Cara .. você pode colocar como c fosse uma mensagem tipo assim:

 

If (Text1.Text = "") Then
MsgBox " O valor do text1 ão pode ser nulo ou igual a 0 "
Text1.SetFocus
    ElseIf Text1.Text = 0 Then
    MsgBox " O valor do text1 ão pode ser nulo ou igual a 0 "
    Text1.SetFocus
    Exit Sub
   
    Else
  

    A sua função aqui.

End If

 

Espero ter ajudado !!!

 

Amigo Michel,

 

A linha

 

 

deve ser modificada para:

 

 

 

JSFF

EH mesmo .. eu atualizei ali em cima =D hehe .. mas fiz d outra maneira também funcionou !!

 

Acho que está certo !!