Jump to content
Fórum Script Brasil
  • 0

como travar uma textbox até que se digite um valor


aurio

Question

5 answers to this question

Recommended Posts

  • 0

UserForm?? então você ta usando VBA?? e em qual software??

ou é Visual Basic mesmo?? o q significa "prosseguir com o registro"?? explica melhor ai.

bom, mas se eu entendi direito, no evento Validate do textbox, testa se ele digitou o valor q você quer. se não tiver digitado, sete o parametro Cancel como True. tipo assim:

Private Sub Text1_Validate(Cancel As Boolean)
    If Text1.Text <> "Valor Que Eu Quero" Then
        Cancel = True
    End If
End Sub[/code]

Link to comment
Share on other sites

  • 0
UserForm?? então você ta usando VBA?? e em qual software??

ou é Visual Basic mesmo?? o q significa "prosseguir com o registro"?? explica melhor ai.

bom, mas se eu entendi direito, no evento Validate do textbox, testa se ele digitou o valor q você quer. se não tiver digitado, sete o parametro Cancel como True. tipo assim:

Private Sub Text1_Validate(Cancel As Boolean)
    If Text1.Text <> "Valor Que Eu Quero" Then
        Cancel = True
    End If
End Sub
E ai Áurio beleza? Pelo que entendi você só precisa criar uma condição if, ou seja :
Private Sub CommandButton1_Click()

If TextBox1 <> "" Then
Sheets("plan1").Range("a2").Value = TextBox1
Sheets("plan1").Range("b2").Value = TextBox2
Sheets("plan1").Range("c2").Value = TextBox3
End If

If TextBox1 = "" Then
MsgBox "Digite o nome a ser Cadastrado"
TextBox1.SetFocus
End If
End Sub
Veja se vai dar certo! Outra coisa, quando você quiser postar assunto relacionado a VBA você tem que postar no link abaixo: http://scriptbrasil.com.br/forum/index.php?showforum=71 Abraço Áurio: Usando o comando que o Quote postou ficaria assim :
Private Sub CommandButton1_Click()
If TextBox1.Text <> "10" Then
        Cancel = True
        MsgBox "Digite um valor", vbExclamation, "AVISO"
        Else
        Sheets("PLAN1").Range("A1").Value = TextBox1
        End If
End Sub

Só que neste caso o valor a ser digitado na textbox1 tem uqe ser sempre, por exemplo, o valor 10 . Esse tipo de comando se aplica melhor em casos em que o valor a ser digitado na textbox sempre será o mesmo.

Acho que para o que você quer fazer o melhor é o que postei anteriormente, ou seja, usando a condição IF.

Abraço

Edited by FabianoCRZ
Link to comment
Share on other sites

  • 0

Senhores

Tenho sistema de cadatro e queria que obrigratóriamente foss digitado um valor em uma determinada textbox.

Consegui criar uma msgbox para informar o usuário que ele tem que digitar o valor

após isto move-se o foco para a textbox desejada mas quando taclamos enter a função some e continua a digitar mesmo que não preencha a textbox desejada como fazer para amarrala até que se digite algum valor abaixo o codigo que fiz.

Private Sub Textbox22_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If Trim(TextBox22.Text) = "" Then

MsgBox "Preenchimento Obrigatório.", vbCritical, "Aviso Importante"

TextBox22.SetFocus

End If

End Sub

Por favor se alguém puder me ajudar agradeço.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152k
    • Total Posts
      651.5k
×
×
  • Create New...