none
TextBox obrigatório em um userform RRS feed

  • Pergunta

  • OLÁ PESSOAL!
    Boa Noite!!!

    To numa dúvida tremenda para que possa deixar o meu projeto de VBA/Excel bem funcional, me dizem aí: "Como tornar um ou dois textbox obrigatório o seu preenchimento. Ou seja, não será possível fechar o formulário até os textbox sejam preenchidos por um certo número de caracteres."

    Espero anciosa uma dica de vcs. Como sempre! rsrs

    Abraços, fiquem com Deus!
    sexta-feira, 5 de fevereiro de 2010 20:44

Respostas

  • Olá...Faça assim

    Private Sub CommandButton1_Click()
        If TextBox1.Text = "" Then
            MsgBox "PREENCHIMENTO OBRIGATÓRIO", vbExclamation, "AVISO"
            TextBox1.SetFocus
            Exit Sub
        End If
        If TextBox2.Text = "" Then
            MsgBox "PREENCHIMENTO OBRIGATÓRIO", vbExclamation, "AVISO"
            TextBox2.SetFocus
            Exit Sub
        End If
        'restante do seu código
    End Sub

    O setfocus serve para dar foco ao controle...
    Até....
    • Marcado como Resposta Iranilce segunda-feira, 8 de fevereiro de 2010 18:25
    sábado, 6 de fevereiro de 2010 00:27

Todas as Respostas

  • OLÁ PESSOAL!
    Boa Noite!!!

    To numa dúvida tremenda para que possa deixar o meu projeto de VBA/Excel bem funcional, me dizem aí: "Como tornar um ou dois textbox obrigatório o seu preenchimento. Ou seja, não será possível fechar o formulário até os textbox sejam preenchidos por um certo número de caracteres."

    Espero anciosa uma dica de vcs. Como sempre! rsrs

    Abraços, fiquem com Deus!
    if textbox.text=""then
    msgbox("precisa ser prienchido")
    end if


    Just Be Humble Malange!
    sexta-feira, 5 de fevereiro de 2010 21:04
  • Olá...Faça assim

    Private Sub CommandButton1_Click()
        If TextBox1.Text = "" Then
            MsgBox "PREENCHIMENTO OBRIGATÓRIO", vbExclamation, "AVISO"
            TextBox1.SetFocus
            Exit Sub
        End If
        If TextBox2.Text = "" Then
            MsgBox "PREENCHIMENTO OBRIGATÓRIO", vbExclamation, "AVISO"
            TextBox2.SetFocus
            Exit Sub
        End If
        'restante do seu código
    End Sub

    O setfocus serve para dar foco ao controle...
    Até....
    • Marcado como Resposta Iranilce segunda-feira, 8 de fevereiro de 2010 18:25
    sábado, 6 de fevereiro de 2010 00:27