Preenchimento Obrig...
 
Notifications
Clear all

Preenchimento Obrigatorio de Campos no Formulario

6 Posts
3 Usuários
0 Reactions
1,567 Visualizações
(@brunopefe)
Posts: 16
Eminent Member
Topic starter
 

Amigos,

Bom dia!

Preciso de ajuda para que consiga deixar obrigatorio o preenchimento de alguns campos em um formulario.

Poderiam me auxiliar por gentileza?

Mais uma vez, muito obrigado!

Abs.

 
Postado : 15/04/2013 8:11 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

brunopefe,

Bom Dia!

Supondo que você queira que a caixa de texto chamada TextBox1 seja preecnhida, basta que você insira, no evento Exit da caixa de texrto, o código abaixo:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Text = "" Then
        MsgBox "Caixa de Texto Textbox1.text deve ser preenchida!", vbCritical, "ERRO"
        Cancel = True
    End If
End Sub
 
Postado : 15/04/2013 8:21 am
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Alem da resposta do colega Morel de uma olhada em viewtopic.php?f=10&t=7675

 
Postado : 15/04/2013 8:25 am
(@brunopefe)
Posts: 16
Eminent Member
Topic starter
 

Wagner,

Obrigado pelo retorno!

Como faço pra que ao clicar no que seria o botão "Gravar" ele não deixasse que o cadastro fosse efetuado sem o preenchimento dos campos que são obrigatórios?

Desde já, muito obrigado!

Abs.

 
Postado : 15/04/2013 8:27 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Assim:

Private Sub Gravar_Click()
    If TextBox1.Text = "" Then
        MsgBox "A caixa de Texto TextBox1.Text deve ser preenchida!", vbCritical, "ERRO"
        TextBox1.SetFocus
    Else
        'Aqui entram os comandos para gravar normalmente
    End If
End Sub
 
Postado : 15/04/2013 8:32 am
(@brunopefe)
Posts: 16
Eminent Member
Topic starter
 

Muito obrigado Wagner e Reinaldo!

Consegui resolver meu problema!

Abs.

 
Postado : 15/04/2013 8:37 am