Página 1 de 1

Restrição TextBox - Peso

Enviado: 31 Mai 2017 às 17:23
por 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

Restrição TextBox - Peso

Enviado: 31 Mai 2017 às 23:14
por 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

Re: Restrição TextBox - Peso

Enviado: 01 Jun 2017 às 09:02
por 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

Restrição TextBox - Peso

Enviado: 01 Jun 2017 às 09:08
por gfranco
Bom dia.
Sugiro postar sua planilha.

Re: Restrição TextBox - Peso

Enviado: 01 Jun 2017 às 09:29
por nandopg
Segue em anexo a planilha.

Restrição TextBox está no Form_Amostra.

Desde já muito obrigado pela atenção.

Att.

Luis Fernando

Re: Restrição TextBox - Peso

Enviado: 01 Jun 2017 às 10:40
por gfranco
Bom dia.
Veja se lhe ajuda

Re: Restrição TextBox - Peso

Enviado: 01 Jun 2017 às 11:25
por 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

Restrição TextBox - Peso

Enviado: 01 Jun 2017 às 15:32
por gfranco
Boa tarde Luis.
0,098gr sempre será menor que 100 gr.

Re: Restrição TextBox - Peso

Enviado: 01 Jun 2017 às 15:52
por nandopg
Não entendi.

Att.

Luis Fernando