Notifications

Clear all

Preenchimento Obrigatorio de Campos no Formulario

Formulários

Post Recente por brunopefe 12 anos atrás

6 Posts

3 Usuários

0 Reactions

1,588 Visualizações

RSS

brunopefe

(@brunopefe)

Posts: 16

Active 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

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious 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

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 15/04/2013 8:21 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 15/04/2013 8:25 am

brunopefe

(@brunopefe)

Posts: 16

Active 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

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious 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

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 15/04/2013 8:32 am