Ir para conteúdo
Fórum Script Brasil
  • 0

Verificar Campos Em Branco


StormRuller

Pergunta

Tenho um formulário com os campos Nome, Lider, E-mail, Data de Inicio e Data do Fim onde ao clicar no botão Gravar e vi que a função que eu usei abaixo mostra que o campo não foi digitado e pede para digitar.

Private Sub gravar_Click()
If txtnome.Text = Empty Then
    MsgBox "Nome não foi informado"
    TextBox.SetFocus
Else
End If

If txtlider.Text = Empty Then
    MsgBox "Líder não foi informado"
    TextBox.SetFocus
Else
End If

If txtemail.Text = Empty Then
    MsgBox "E-mail não foi informado"
    TextBox.SetFocus
Else
End If

If maskdtinicio.Text = Empty Then
    MsgBox "Data de inicio não foi informado"
    TextBox.SetFocus
Else
End If

If maskdtfim.Text = Empty Then
    MsgBox "Data do fim não foi informado"
    TextBox.SetFocus
Else
End If
End Sub

Teria algum modo mais facil de fazer esse tipo de funcao??? Tenho outros formularios para preencher e tem mais campos onde terei que fazer isso... existe algum modo mais simples???

Valeu!!

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

você pode fazer uma funcao pra ler todos os campos do formulario e checar quais estao em branco. a funcao seria tipo assim:

Public Function ValidaForm(f As Form) As Boolean
    Dim c As Control
    
    ValidaForm = False
    For Each c In f.Controls
        If TypeOf c Is TextBox Then
            If c.Text = "" Then
                MsgBox "Preencha todos os campos"
                c.SetFocus
                Exit Function
            End If
        ElseIf TypeOf c Is MaskEdBox Then
            c.PromptInclude = False
            If c.Text = "" Then
                MsgBox "Preencha todos os campos"
                c.PromptInclude = True
                c.SetFocus
                Exit Function
            End If
            c.PromptInclude = True
        End If
    Next
    ValidaForm = True
End Function[/code] depois é so adaptar pra todos os tipos de controle q você possa usar, tipo combobox, e etc. ai pra chamar você poderia fazer assim:
[code]If Not ValidaForm Me Then Exit Sub

so q essa funcao tem dois problemas. o primeiro é q ele vai validar todos os campos, mesmo os q não forem obrigatorios. o segundo é q ele não vai dar uma mensagem personalizada pra cada campo. exemplo, ele não vai falar "Preencha o campo Código.", so vai falar "Preencha todos os campos".

pra resolver esses dois problemas, usamos a propriedade Tag dos TextBox, MaskedBox e etc. tipo, os campos q forem obrigatorios, você preenche, por exemplo, com "obg". ai você adapta na funcao checando a Tag do controle. se não estiver preenchida com obg, você nem checa se ta em branco o não.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...