Este fórum está sendo desativado

[nandopg]

Boa tarde, pessoal!

Preciso de uma ajudinha de vocês???
Estou tentando montar um rotina de restrição para TextBox, mas não estou conseguindo. Trata-se de uma TextBox de peso de amostra, ou seja, quando digitar por exemplo a quantidade 0,99 gramas quero que apareça uma mensagem "Peso insuficiente para cadastrar", abaixo de 100gr não deixar cadastrar.

Se alguém puder me ajudar fico agradecido!

Att.

Luis Fernando

[gfranco]

Boa noite.
Experimente colocar uma condicional "IF" para verificação do peso.
Algo do tipo...

Código: Selecionar todos

If textbox1.value<99 then....msgbox "Peso insuficiente para cadastrar" else.....continue o código

[nandopg]

Bom dia!

Testei com a condicional "If" e não deu certo.
Qualquer valor que digita na TextBox1 aparece a MsgBox "Peso insuficiente para cadastrar"

Att.

Luis

[gfranco]

Bom dia.
Sugiro postar sua planilha.

[nandopg]

Segue em anexo a planilha.

Restrição TextBox está no Form_Amostra.

Desde já muito obrigado pela atenção.

Att.

Luis Fernando

[gfranco]

Bom dia.
Veja se lhe ajuda

[nandopg]

Perfeito! Isso mesmo!

Mas, o que eu estava pensado e queria se tivesse jeito era colocar um zero antes da virgula, por ex: 0,098gr

Eu coloquei a função "Format", mas não deu certo.

If Me.TXT_AMOSTRA.Value < Format(Me.TXT_AMOSTRA, "#.##0,099") Then

Nessa condição prossegue para gravar...

Att.

Luis Fernando

[gfranco]

Boa tarde Luis.
0,098gr sempre será menor que 100 gr.

[nandopg]

Não entendi.

Att.

Luis Fernando